Функция IniRead - Позволяет читать из типичного Ini-файла данные, основываясь на имени файла, имени секции, и ключа:
Код: Function IniRead(IniFile, SectionName, Key, Default) Dim fso, hFile, Line, SplitArr Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(IniFile) Then IniRead = -1 Exit Function End If Set hFile = fso.OpenTextFile(IniFile, 1, False) Do While hFile.AtEndOfStream <> True Line = hFile.ReadLine If StrComp("[" & SectionName & "]", Line, 1) = 0 Then While hFile.AtEndOfStream <> True Line = hFile.ReadLine SplitPos = InStr(Line, "=")-1 If InStr(Line, "=") <> 0 Then StrToComp = Left(Line, SplitPos) Else StrToComp = Line End If If StrComp(StrToComp, Key, 1) = 0 And InStr(Line, "=") > 0 Then SplitArr = Split(Line, "=") CommentPos = InStr(SplitArr(1), ";")-1 If InStr(SplitArr(1), ";") <> 0 Then IniRead = Left(SplitArr(1), CommentPos) Else IniRead = SplitArr(1) End If hFile.Close Exit Function End If Wend IniRead = Default hFile.Close Exit Function End If Loop hFile.Close IniRead = Default End Function |
Синтаксис:
IniRead("путь\к\Ini-файлу.ini", "Имя секции", "Ключ" , "Значение по умолчанию")
Типичное содержание Ini-Файла:
[Имя секции]
Ключ=Значение
Возвращаемые значения:
Ini-файл не найден = -1
Не найдена секция/ключ = Значение по умолчанию
Если найдена секция и ключ = возвращается значение ключа
---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! |