Hallo zusammen,
nachdem ich das script nun nur noch angepasst habe wie es am günstigen ist, bin ich darauf gestossen das die funktion der account löschung fehlt!
Da dies hier aber nicht normal geschrieben ist nach Sectionen (verbessert mich wenn ich mich irre), verzweifle ich gerade bei den Versuchen dieses hin zu bekommen.
Gelöscht aus der ini bei buttonklick soll werden:
Name in der Combo + alle 3 spalten + alle 3 lagerorte kurz geagt aless von dem in der combo angezeigtem account.
Hier nochmal das script:
Spoiler anzeigen
#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
;------------------------------------------------------------------------------------------
Global $aSpalte1[37], $aSpalte2[37], $aSpalte3[37]
Global $DataINI = 'data.ini'
;------------------------------------------------------------------------------------------
$Form1 = GUICreate("Form1", 990, 900, 192, 5)
$Form1= GUICtrlCreatePic("bilder\Background XYBotchen.tgx", 0, 0, 1050, 900)
GUICtrlSetState(-1, $GUI_DISABLE)
;------------------------------------------------------------------------------------------
$Group1 = GUICtrlCreateGroup("", 346, 6, 276, 36)
$Button3 = GUICtrlCreateButton("Neuer Acc", 360, 16, 110, 22)
$Button2 = GUICtrlCreateButton("Speichern", 500, 16, 110, 22)
;------------------------------------------------------------------------------------------
$Group2 = GUICtrlCreateGroup("", 706, 6, 276, 36)
$Button1 = GUICtrlCreateButton("Exit", 860, 16, 110, 22)
$Button4 = GUICtrlCreateButton("Acc Löschen",720, 16, 110, 22)
;------------------------------------------------------------------------------------------
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 8, 50, 276, 816)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Lagerort1", 20, 65, 80, 19)
$Input1 = GUICtrlCreateInput("", 100, 64, 170, 21)
$Group4 = GUICtrlCreateGroup("", 346, 50, 276, 816)
$Label2 = GUICtrlCreateLabel("Lagerort2", 360, 65, 80, 19)
$Input2 = GUICtrlCreateInput("", 440, 64, 170, 21)
$Group5 = GUICtrlCreateGroup("", 706, 50, 276, 816)
$Label3 = GUICtrlCreateLabel("Lagerort3", 720, 65, 80, 19)
$Input3 = GUICtrlCreateInput("", 800, 64, 170, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("", 8, 6, 276, 36)
$Combo1 = GUICtrlCreateCombo("", 100, 16, 170, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1,_setCombo())
$Label2 = GUICtrlCreateLabel("Eintrag", 22, 17, 80, 19)
GUICtrlCreateGroup("", -99, -99, 1, 1)
_generateLagerSpalte($aSpalte1,20)
_generateLagerSpalte($aSpalte2,360)
_generateLagerSpalte($aSpalte3,720)
GUISetState(@SW_SHOW)
;------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Button1
Exit
Case $Combo1
_LoadData()
Case $Button2
_SaveData()
Case $Button3
_clearGUI()
Case $Button4
_deleteAccount()
EndSwitch
WEnd
;------------------------------------------------------------------------------------------
Func _generateLagerSpalte(ByRef $ArrayToUse,$left)
$Abstand = 2
For $i = 1 To UBound($ArrayToUse)-1
GUICtrlCreateLabel(' Lagerplatz ' & $i,$left,100+$Abstand,90)
$ArrayToUse[$i] = GUICtrlCreateInput("",80+$left,100+$Abstand,170)
$Abstand +=21
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _LoadData()
GUICtrlSetData($Input1,IniRead($DataINI,GUICtrlRead($Combo1),08,''))
GUICtrlSetData($Input2,IniRead($DataINI,GUICtrlRead($Combo1),09,''))
GUICtrlSetData($Input3,IniRead($DataINI,GUICtrlRead($Combo1),10,''))
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],IniRead($DataINI,GUICtrlRead($Combo1),1&$i,''))
GUICtrlSetData($aSpalte2[$i],IniRead($DataINI,GUICtrlRead($Combo1),2&$i,''))
GUICtrlSetData($aSpalte3[$i],IniRead($DataINI,GUICtrlRead($Combo1),3&$i,''))
Next
EndFunc
;------------------------------------------------------------------------------------------
Func _SaveData()
IniWrite($DataINI,GUICtrlRead($Combo1),08,GUICtrlRead($Input1))
IniWrite($DataINI,GUICtrlRead($Combo1),09,GUICtrlRead($Input2))
IniWrite($DataINI,GUICtrlRead($Combo1),10,GUICtrlRead($Input3))
For $i = 1 To UBound($aSpalte1)-1
IniWrite($DataINI,GUICtrlRead($Combo1),1&$i,GUICtrlRead($aSpalte1[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),2&$i,GUICtrlRead($aSpalte2[$i]))
IniWrite($DataINI,GUICtrlRead($Combo1),3&$i,GUICtrlRead($aSpalte3[$i]))
Next
_clearGUI()
EndFunc
;------------------------------------------------------------------------------------------
Func _deleteAccount()
IniDelete("data.ini", "Section1")
EndFunc
;------------------------------------------------------------------------------------------
Func _clearGUI()
GUICtrlSetData($Input1,'')
GUICtrlSetData($Input2,'')
GUICtrlSetData($Input3,'')
GUICtrlSetData($Combo1,'')
For $i = 1 To UBound($aSpalte1)-1
GUICtrlSetData($aSpalte1[$i],'')
GUICtrlSetData($aSpalte2[$i],'')
GUICtrlSetData($aSpalte3[$i],'')
Next
GUICtrlSetData($Combo1,_setCombo())
EndFunc
;-------------------------------------------------------------------------------------------
Func _setCombo()
Local $Sections = IniReadSectionNames($DataINI)
Local $SectionString = _ArrayToString($Sections,'|',1,UBound($Sections)-1)
Return($SectionString)
EndFunc
Im anhang noch ne ini zum testen.
Mfg Ghostleader