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

1.Создайте стандартный проект.
2.Введите модуль.
3.Удалите форму и кликните два раза по модулю.
4.В раздел General Declarations следующее объявление двух, вышеназванных функций:

Declare Function GetPrivateProfileString& Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _
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" _
и строку "v1500mk@t-online.de"
Call WritePrivateProfileStringByKeyName("Main", "eMail", _
"v1500mk@t-online.de", "c:\test.ini")

End Sub

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

[Main]
URL=http://members.tripod.de/cmvb
eMail=v1500mk@t-online.de

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



Copyright ©, 2000 - 2001 'Азбука Технологий Программирования'. Все права защищены