Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

Line Input #FileNum, txt

теперь к переменной alltxt добавляем содержимое переменной txt -

строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка

должна быть с новой строки :-)

alltxt = alltxt + txt + vbCrLf

Loop

закрываем файл с номером FileNum

Close #FileNum

выводим содержимое переменной alltext

MsgBox alltxt

2. Открытие файла для записи информации в него.

Записать информацию в файл ещё проще!!! Эта операция отличается  от предыдущей только тем, что открыть файл надо в режиме записи:

Open "c:text.txt" For Output As FileNum

и вместо цикла нужно вставить оператор Print #, который записывает в файл содержимое переменной:

Print #FileNum, "Азбука Visual Basic"

или

Print #FileNum, alltext

Пример:

Dim FileNum As Integer

Dim txt As String

FileNum = FreeFile

txt = "http://members.tripod.de/cmvb"

открываем файл в режиме записи

Open "c:text.txt" For Output As FileNum

Print #FileNum, txt

закрываем файл с номером FileNum

Рекомендуем скачать другие рефераты по теме: мтс сообщения, лечение шпоры.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата