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

ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _

ByVal lpszFile$)

lpszSection -имя секции

lpszKey - имя ключа

lpszDefault - значение, возвращаемое по умолчанию, при строке ""

lpszReturnBuffer - место для строки

cchReturnBuffer - размер (длина) места для строки

lpszFile - имя файла

Declare Function WritePrivateProfileStringByKeyName% Lib _

"kernel32" Alias "WritePrivateProfileStringA" (ByVal _

lpApplicationName As String, ByVal lpKeyName As String, _

ByVal lpString As String, ByVal lplFileName As String)

lpApplicationName - имя секции

lpKeyName - имя ключа

lpString - строка

lplFileName - имя файла

5.Создайте подпрограмму Main - просто введите Sub Main.

6.В подпрограмму Main введите:

Sub Main()

создаём файл test.ini, в нём заголовок "Main", ключ "URL" _

и строку "http://members.tripod.de/cmvb"

Call WritePrivateProfileStringByKeyName("Main", "URL", _

"http://members.tripod.de/cmvb", "c:\test.ini")

создаём файл test.ini, в нём заголовок "Main", ключ "eMail" _

и строку "[email protected]"

Call WritePrivateProfileStringByKeyName("Main", "eMail", _

"[email protected]", "c:\test.ini")

End Sub

При запуске проекта на диске С: тут же будет создан файл Test.ini со следующим содержимым: