|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
28.07.2006, 15:55 | #1 | |
функции для работы с ini-файлами
Регистрация: 08.12.2005
Сообщений: 17
|
||
Просмотров: 5268
|
|
||||
Регистрация: 13.06.2005
Сообщений: 314
|
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Function GetFromFile(Section As String, Key As String, FullName As String) As String If Not FileExists(FullName) Then Exit Function Dim buffer As String buffer = Space$(2048) GetPrivateProfileString Section, Key, "", buffer, Len(buffer) - 1, FullName GetFromFile = Left$(buffer, InStr(buffer, Chr(0)) - 1) End Function Public Sub SetToFile(Section As String, Key As String, Value As String, FullName As String) WritePrivateProfileString Section, Key, Value, FullName End Sub |
|||
|
||||
проектирование систем безопасности Регистрация: 08.08.2006
г. Иваново
Сообщений: 30
|
Посмотри здесь http://autolisp.ru/dwlsp/21 это то что тебе нужно
|
|||
|
||||
Thượng Tá Quân Đội Nhân Dân Việt Nam Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 13,381
|
Цитата:
Код:
Код:
|
|||