AutoHotkey Community

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

ini =
(
[Tip]
TimeStamp = 20090716194758
[Recent File List]
File1=F:\testfile.ahk
File2=Z:\tempfile.tmp
)
MsgBox %ini%
ini_replaceSection(ini, "Tip", "[test]`nkey=value")
MsgBox %ini%

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

ini_1 =
(
[Tip]
TimeStamp = 20090716194758
[Recent File List]
File1=F:\testfile.ahk
File2=Z:\tempfile.tmp
)
ini_2 =
(
[test]
Some = Thing
)

section := ini_getSection(ini_1, "Tip")
rename_section(section, "test")
ini_replaceSection(ini_2, "test", section)
MsgBox %ini_2%

rename_section(ByRef _ini, _newName)
{
    _ini := RegExReplace(_ini, "`aisUS)(*BSR_ANYCRLF)(?=(?:\R|^)\s*)\[[^\r\n]+]", "[" . _newName . "]")
}

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

ini_1 =
(
[Tip]
TimeStamp = 20090716194758
[Recent File List]
File1=F:\testfile.ahk
File2=Z:\tempfile.tmp
)
ini_2 =
(
[test]
Some = Thing
)

section := ini_getSection(ini_1, "Tip")
rename_section(section)
ini_replaceSection(ini_2, "test", "")
MsgBox %ini_2%
ini_insertSection(ini_2, "test", section)
MsgBox %ini_2%

rename_section(ByRef _ini, _newName="")
{
    if (_newName = "")
    {
        _ini := RegExReplace(_ini, "`aisUS)(*BSR_ANYCRLF)(?=(?:\R|^)\s*)\[[^\r\n]+]\R")
    }
    else
    {
        _ini := RegExReplace(_ini, "`aisUS)(*BSR_ANYCRLF)(?=(?:\R|^)\s*)\[[^\r\n]+]", "[" . _newName . "]")
    }
}

ini_setSection( content, ByRef ini ) {
; place section into ini
; if it already exists it is replaced
   StringTrimLeft,section,content,1 ; section name is string between [ ]
   section := strUntilChr( section, "]" )
   if ini_getSection( ini, section )
      ini_replaceSection( ini, section, content ) ; if section exists we replace it
   else
      ini := ini . "`n" . content ; else we add content to end of ini
   }

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ini_setKey( section, key, value, ByRef ini ) {
; place key into ini
; if it already exists it is replaced
   newLine := key . "=" . value
   if (ini_getKey( ini, section, key ) )
      ini_replaceKey( ini, section, key, newLine ) ; if key exists within section, we replace it
   else {
      secContent := ini_getSection( ini, content )
      if (secContent)
         secContent := secContent . "`n" . newLine ; if section exists and key doesn't we add it to end
      else
         secContent := "[" . section . "]`n" . newLine ; if even section doesn't exist, we create one
      ini_setSection( secContent, ini )  ; use upper function to set content of section with key.
      }
}

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
strUntilChr( str, char ) {
; returns string from first char from str until it finds char
Loop, parse, str
   if (A_LoopField<>char)
      result := result . A_LoopField
   else
      return result
}