Кстати, понял почему я не знал про пары - в русской справке про них ни слова.
]]>Для прочтения каждой секции нужно каждый раз обращаться к файлу - а ты ж как-раз этого хотел избежать.
А, ну да. Значит GetPrivateProfile больше рассматриваем.
У тебя и так всё кешируется, так как не указан флаг FILE_FLAG_NO_BUFFERING
О как, то есть FileOpen сначала копирует весь файл в кеш? И есть смысл этого избегать?
]]>тогда причём тут одна секция?
Для прочтения каждой секции нужно каждый раз обращаться к файлу - а ты ж как-раз этого хотел избежать.
что даёт страничный кеш в данной задаче
Не совсем тебя понял. У тебя и так всё кешируется, так как не указан флаг FILE_FLAG_NO_BUFFERING.
]]>Ini := new IniFile(A_ScriptDir "\Settings.Ini")
Ini.Write("MySection", "MyKey1", " a ")
MsgBox % """" Ini.Read("MySection", "MyKey1") """"
Ini.Save()
Ini := new IniFile(A_ScriptDir "\Settings.Ini")
MsgBox % """" Ini.Read("MySection", "MyKey1") """"Также в планах было оставлять комментарии, а их GetPrivateProfile не прочитает.
Class IniFile {
__New(File, FileBackUp = "") {
this.Path := File
this.FileBackUp := FileBackUp
IniRead, SectionNames, % File
Loop, Parse, SectionNames, `n, `r
{
this.Data[SectionName := this._StrUtf8BytesToText(A_LoopField)] := {}
IniRead, Section, % File, % A_LoopField
Loop, Parse, % this._StrUtf8BytesToText(Section), `n, `r
{
i := InStr(A_LoopField, "=")
this.Data[SectionName, SubStr(A_LoopField, 1, i - 1)] := SubStr(A_LoopField, i + 1)
}
}
}
Read(Section, Key, Default = "") {
If (Default != "" && !this.Data[Section].HasKey(Key))
Return Default
Return this.Data[Section][Key]
}
Write(Section, Key, Value = "") {
If !IsObject(this.Data[Section])
this.Data[Section] := {}
this._CheckChanged()
Return this.Data[Section][Key] := Value
}
Delete(Section, Key) {
this._CheckChanged()
Return this.Data[Section].Delete(Key)
}
DeleteSection(Section) {
this._CheckChanged()
Return this.Data.Delete(Section)
}
_CheckChanged() {
If !this.changed
this.changed := 1
}
Save() {
If !this.changed
Return
For Section, Keys in this.Data
{
Str .= "[" Section "]`n"
For Key, Value in Keys
Str .= Key "=" Value "`n"
}
If this.FileBackUp
FileCopy, % this.Path, % this.FileBackUp, 1
oFile := FileOpen(this.Path, "w", "UTF-8")
oFile.Length := 0
oFile.Write(Str)
oFile.Close()
}
_StrUtf8BytesToText(vUtf8) ; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=38511
{
if A_IsUnicode
{
VarSetCapacity(vUtf8X, StrPut(vUtf8, "CP0"))
StrPut(vUtf8, &vUtf8X, "CP0")
return StrGet(&vUtf8X, "UTF-8")
}
else
return StrGet(&vUtf8, "UTF-8")
}
}
Получается или преобразовать файл в UTF-16, сделав его размер раза в полтора - два больше, или перекодировать все данные. Не поймёшь что правильнее и надёжнее.
]]>Unicode: IniRead and IniWrite rely on the external functions GetPrivateProfileString¬ and WritePrivateProfileString¬ to read and write values. These functions support Unicode only in UTF-16 files; all other files are assumed to use the system's default ANSI code page.
Filename := A_ScriptDir "\Settings.Ini"
IniRead, OutputVarSectionNames, % Filename
MsgBox % OutputVarSectionNames
Loop, Parse, OutputVarSectionNames, `n, `r
{
IniRead, OutputVarSection, % Filename, % A_LoopField
MsgBox, , % A_LoopField, % OutputVarSection
}
Тогда можно для ini с одной секцией избавиться от парсинга регулярными выражениями.
А как создать массив без regex?
]]>Баг:
Поправил.
Почитал ещё раз, так и не пойму что даёт страничный кеш в данной задаче.
Файл всё равно надо загрузить весь в ОП.
Плюс только в том что при закрытии программы файл вероятнее всего останется в кеше, и его не надо будет загружать снова?
Но если оперативки 8 гигов, а как тут говорилось файл будет в 9 гигов, то его всё равно весь не загрузишь, придётся периодически ждать жёсткий диск.
У меня в примере такой файл конечно мы и прочитать то не сможем, но можно сделать чтение порциями. И хоть так, хоть по другому, всё равно не хватит памяти создать массив секций с ключами.
Баг:
Ini := new IniFile(A_ScriptDir "\Settings.Ini")
Ini.Write("MySection", "MyKey1", " a ")
MsgBox % """" Ini.Read("MySection", "MyKey1") """"
Ini.Save()
Ini := new IniFile(A_ScriptDir "\Settings.Ini")
MsgBox % """" Ini.Read("MySection", "MyKey1") """"за один раз это можно сделать с помощью iniwrite
Не всегда известно, что текущее изменение будет последним.
]]>]]>