VBNet - Форум - нажать, открыть, записать, закрыть...

Вопрос: нажать, открыть, записать, закрыть... Добавлено: 27.02.03 22:03

Автор вопроса: Marat

Ситуация простая. Хочу нажать на кнопку, после чего должен создаться файл, допустим list.txt в него пишется какой-нибудь текст и этот файл потом сохраняется.

Если кто-то решится ответить, прошу учесть - я не Джедай, а только учусь.

br

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

CaS

ICQ: 165551179

Вопросов: 10
Ответов: 124

Web-сайт: www22.brinkster.com/casperz
Профиль | | #1

Добавлено: 27.02.03 22:40

#F=freefile

open "list.txt" for output as #F

Print #F, txt 'txt - текст, который запихиваешь в файл

close #F

Ответить

Номер ответа: 2
Автор ответа:

Amides712

Вопросов: 1
Ответов: 11

Профиль | | #2

Добавлено: 27.02.03 23:23

Можно сделать так:

Command1_Click()

dim ff as integer, sFile as string, sTemp as string

ff=FreeFile

sFile="c:\temp\list.txt"'путь к файлу list.txt

sTemp=text1.text 'переменная с текстом текстового блока text1

open sFile for apped shared as #ff

print #ff, sTemp'записываем текст из переменной sTemp в файл

'(типа как это делает блокнот

close #ff'закрываем файл (ОБЯЗАТЕЛЬНО !)

ПРИМЕЧАНИЕ!: при использовании Append Shared данные в файле, в который

производится запись, будут пополняться, то есть добавление в конец файла

с сохранением уже имеющихся данных.

При использовании же Output старые данные в файле будут затерты, а с

первой же строки будут записаны новые данные.

ВЫВОД: Для создания файла протокола или чего-то в этом роде, нужно использовать

параметр open for append shared as #.

Ответить

Номер ответа: 3
Автор ответа:

Sergey M.

Вопросов: 9
Ответов: 68

Профиль | | #3

Добавлено: 28.02.03 03:01

Private Sub Command1_Click()

Dim fso As FileSystemObject

Dim retval

Set fso = CreateObject("Scripting.FileSystemObject")

'ForAppending - открыть файл и записать в конец файла

'ForWriting - открыть файл для записи (содержимое уничтожается)

Set retval = fso.OpenTextFile(fso.BuildPath(App.Path, "list.txt"), ForAppending, True)

retval.Write "text" & vbCrLf

retval.Close

End Sub

Ответить

Номер ответа: 4
Автор ответа:

Страшный Сон

Вопросов: 46
Ответов: 848

Профиль | | #4

Добавлено: 28.02.03 14:33

Я соорудил самую удобную систему использования FSO. Подключив библю MS Scripting Runtime, использую следующие вещи:

Dim fso As FileSystemObject

Sub InitFSO()
Set fso = New Scripting.FileSystemObject
End Sub

Function fsoReadFile(FileName$) As String
On Error Resume Next
Dim fsoTS As TextStream, fsoFile As File
Set fsoFile = fso.GetFile(FileName)
Set fsoTS = fsoFile.OpenAsTextStream(ForReading)
fsoReadFile = fsoTS.ReadAll
fsoTS.Close
End Function

Sub fsoRecordFile(FileName$, Str$)
On Error Resume Next
Dim fsoTS As TextStream, fsoFile As File
Set fsoTS = fso.CreateTextFile(FileName)
fsoTS.Write Str
fsoTS.Close
End Sub

В процедуре Form_Load вызывается InitFSO, затем всё уже получается элементарно.

Ответить

Страница: 1 |