Тема: VBScript: чтение и запись INI-файлов
Пример чтения и записи INI-файла с помощью объекта JSSys3.dll:
Set oIni = CreateObject("JSSys3.IniEdit")
iniFile = "C:\Temp\test.ini"
CreateObject("Scripting.FileSystemObject").CreateTextFile iniFile
str = "key1=value1" & Chr(0) & "key2=value2" & Chr(0)
errCode = oIni.WriteIniSection(iniFile, "NewSection", str) ' перезаписываает всю секцию, если она есть
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key3", "value3") ' запись значения
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key4", "value4")
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key4", "null") ' удаление параметра
errCode = oIni.WriteIniSection(iniFile, "New", "key1=value1" & Chr(0)) ' запись секции
errCode = oIni.WriteIniVal(iniFile, "New", "null", "null") ' удаление секции
SectionNames = oIni.GetIniSectionNames(iniFile) ' чтение имён всех секций
SectionNames = Mid(SectionNames, 1, Len(SectionNames)-1) ' убрать последний Chr(0)
For Each SectionName In Split(SectionNames, Chr(0)) ' обход секций
WScript.Echo SectionName ' имя секции
SectionKeys = oIni.GetIniSectionKeys(iniFile, SectionName) ' чтение ключей секции
SectionKeys = Mid(SectionKeys, 1, Len(SectionKeys)-1) ' убрать последний Chr(0)
For Each SectionKey In Split(SectionKeys, Chr(0)) ' обход ключей
val = oIni.GetIniVal(iniFile, SectionName, SectionKey)
WScript.Echo " " & SectionKey & " = " & val ' вывод пары ключ=значение
Next
SectionVals = oIni.GetIniSectionVals(iniFile, SectionName) ' чтение пар ключ=значение секции
SectionVals = Mid(SectionVals, 1, Len(SectionVals)-1) ' убрать последний Chr(0)
For Each SectionVal In Split(SectionVals, Chr(0)) ' обход пар
WScript.Echo " " & SectionVal ' вывод пары ключ=значение
Next
Next
См. также Обзор библиотеки AutoItX3.dll.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.