Ini read aktualisieren

[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]