Ini read aktualisieren

1. offizieller Beitrag
    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    $ini = (@ScriptDir & "\List.ini"); Trennzeichen |

    [/autoit] [autoit][/autoit] [autoit]

    If Not FileExists($ini) Then
    IniWrite(@ScriptDir & "\List.ini", "Eintrag", "Wert", "")
    EndIf
    Global $edf
    Opt("GUIOnEventMode", 1)
    GUICreate("B_Z-Liste", 220, 281, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "ende")
    GUICtrlCreateLabel("Neuer Eintrag", 61, 153, 89, 17)
    Global $input = GUICtrlCreateInput("", 24, 120, 160, 21)
    Global $auswahl = GUICtrlCreateCombo($edf, 24, 56, 160, 25)
    GUICtrlSetData($auswahl, IniRead($ini, "Eintrag", "Wert", ""))
    GUICtrlCreateLabel("B_Z Liste", 64, 32, 66, 17)
    Global $save = GUICtrlCreateButton("Save", 65, 210, 90, 40, 0)
    GUICtrlSetOnEvent(-1, "save")
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func save()
    $file = FileWrite($ini, GUICtrlRead($input) & "|")
    FileClose($ini)
    GUICtrlSetData($input,"")
    GUICtrlSetData($auswahl,"")
    GUICtrlSetData($auswahl,IniRead("List.ini", "Eintrag", "Wert", ""))
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ende()
    ClipPut(GUICtrlRead($auswahl))
    Exit
    EndFunc

    [/autoit]


    Der inhalt von $auswahl muß vor dem neusetzen der Daten gelöscht werden.