Реферат: Работа с текстовыми файлами в Visual Basic
URL=http://members.tripod.de/cmvb
8:-O!!! Не правда ли, просто? А считать это чуть-чуть сложнее. Итак, файл создан, теперь поробуем считать информацию оттуда. Удалите всё, что находится между строками "Sub Main()" и "End Sub". Впишите следующее:
Sub Main()
создаём переменную, в которую будет передоваться строка
Dim MyString As String
"набиваем" её пробелами
MyString = Space(100)
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "URL"
Call GetPrivateProfileString("Main", "URL", "", MyString, _
Len(MyString), "C:\test.ini")
выводится на экран содержимое переменной MyString
MsgBox MyString
открывается файл файл test.ini, и в переменную MyString _
записывается строка из заголовка "Main", ключа "eMail"
Call GetPrivateProfileString("Main", "eMail", "", MyString, _
Len(MyString), "C:\test.ini")
выводится на экран содержимое переменной MyString
MsgBox MyString
End Sub