VBNet - Форум - Еще раз про INI

Вопрос: Еще раз про INI Добавлено: 10.07.03 16:09

Автор вопроса: Neptus | Web-сайт: neptus.fatal.ru | ICQ: 96166052

люди добрые поможите....

ладно это сюджа не подходит, вопрос такой хотя скорее это запрос. все у кого есть примеры про создание и использование INI файлов ПОЖАЛУЙСТА пришлите мне neptus@pisem.net или пришлите ссылки где их взят, я нашел но мне нужно еще

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

Neptus

ICQ: 96166052

Вопросов: 12
Ответов: 110

Web-сайт: neptus.fatal.ru
Профиль | | #1

Добавлено: 10.07.03 22:29

забыл сказать, проблема с сохранением и чтением из ини файла параметров check и option, проще галочек и точек

очень надо...

Ответить

Номер ответа: 2
Автор ответа:

denver_t

Вопросов: 8
Ответов: 25

Профиль | | #2

Добавлено: 10.07.03 23:08

Держи пример:

' В модуль ***********************************************
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
Alias "GetPrivateProfileIntA" _
(ByVal strSection As String, _
ByVal strKeyName As String, _
ByVal lngDefault As Long, _
ByVal strFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
(ByVal strSection As String, _
   ByVal strKeyName As String, _
   ByVal strDefault As String, _
   ByVal strReturned As String, _
   ByVal lngSize As Long, _
   ByVal strFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal strSection As String, _
    ByVal strKeyNam As String, _
    ByVal strValue As String, _
    ByVal strFileName As String) As Long
Public Function GetValueString(strSection As String, _
strKey As String, strFile As String) As String
Dim strBuffer As String * 256
Dim intSize As Integer
On Error GoTo PROC_ERR

intSize = GetPrivateProfileString(strSection, strKey, "", _
strBuffer, 256, strFile)
GetValueString = Left$(strBuffer, intSize)

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, _
vbExclamation = vbOKOnly, "GetValueString"
Resume PROC_EXIT
End Function
Public Function SetValue(strSection As String, strKey As String, _
strValue As String, strFile As String) As Integer
Dim intStatus As Integer
On Error GoTo PROC_ERR

intStatus = WritePrivateProfileString(strSection, strKey, _
strValue, strFile)
SetValue = (intStatus <> 0)

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, _
vbExclamation = vbOKOnly, "SetValue"
Resume PROC_EXIT
End Function

' В форму *************************************************

Dim q as variant
'чтение
GetValueString("Раздел", "Имя параметра", "Путь до ini")
'запись
q = SetValue("Раздел", "Имя параметра", "Значение", "Путь до ini")

Ответить

Номер ответа: 3
Автор ответа:

Dad

ICQ: 996691

Вопросов: 8
Ответов: 9

Профиль | | #3

Добавлено: 11.07.03 07:14

... проблема с сохранением и чтением из ини файла параметров check и option, проще галочек и точек...

у тя не с ини файлом проблемы ты элементарную работу со строками не освоиил не можешь обработать данные из ини файла ?

время седня позволяет, вот нацарапал и высылаю те примерчик с сохранением значений "галочек" и "точек" ) и подробное описание работы со строками ... удачи

Ответить

Номер ответа: 4
Автор ответа:

Neptus

ICQ: 96166052

Вопросов: 12
Ответов: 110

Web-сайт: neptus.fatal.ru
Профиль | | #4

Добавлено: 11.07.03 14:23

элементарную работу со строками я освоил причем давно, и вот поэтому и спрашивал, ибо не х.. просто не получилось, данные у меня читаются через раз

Ответить

Страница: 1 |