Реферат: Работа с текстовыми файлами в Visual Basic

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

Close #FileNum

Проверьте содержимое файла.

И ещё хочу предложить второй способ записи информации в файл - с помощью API-функции WritePrivateProfileStringByKeyName. Считывать же информацию нужно с помощью API-функции GetPrivateProfileString. Теперь расскажу - как всё это работает?

1.Создайте стандартный проект.

2.Введите модуль.

3.Удалите форму и кликните два раза по модулю.

4.В раздел General Declarations следующее объявление двух, вышеназванных функций:

Declare Function GetPrivateProfileString& Lib _

"kernel32" Alias "GetPrivateProfileStringA" (ByVal _