Ich hab jetzt nochmal mein Skript bearbeitet, jetzt wird der Inhalt der Liste nicht mehr alphabetisch angezeigt:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
Global $GruppeA = 1
Global $GruppeB = 1
Global $GruppeC = 1
Global $GruppeD = 1
#Region ### START Koda GUI section ### Form=
$Form1_1_1 = GUICreate("Gruppen", 903, 606, 186, 122)
GUISetFont(12, 400, 0, "Monotype Corsiva")
GUISetBkColor(0xC0C0C0)
GUICtrlSetFont(-1, 60, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x316AC5)
$Button1 = GUICtrlCreateButton("OK", 176, 120, 33, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$List1 = GUICtrlCreateList("", 8, 192, 153, 150, $WS_BORDER)
GUICtrlSetData(-1, "")
$Input1 = GUICtrlCreateInput("Team", 6, 117, 161, 26)
GUICtrlSetColor(-1, 0x800000)
$Label1 = GUICtrlCreateLabel("Gruppe A", 16, 160, 136, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0x800000)
$Button2 = GUICtrlCreateButton("OK", 396, 121, 33, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$List2 = GUICtrlCreateList("", 228, 193, 153, 150, $WS_BORDER)
GUICtrlSetData(-1, "")
$Input2 = GUICtrlCreateInput("Team", 226, 118, 161, 26)
GUICtrlSetColor(-1, 0x800000)
$Label2 = GUICtrlCreateLabel("Gruppe B", 236, 161, 136, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0x800000)
$Button3 = GUICtrlCreateButton("OK", 620, 121, 33, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$List3 = GUICtrlCreateList("", 452, 193, 153, 150, $WS_BORDER)
GUICtrlSetData(-1, "")
$Input3 = GUICtrlCreateInput("Team", 450, 118, 161, 26)
GUICtrlSetColor(-1, 0x800000)
$Label3 = GUICtrlCreateLabel("Gruppe C", 460, 161, 134, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0x800000)
$Button4 = GUICtrlCreateButton("OK", 844, 121, 33, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$List4 = GUICtrlCreateList("", 676, 193, 153, 150, $WS_BORDER)
GUICtrlSetData(-1, "")
$Input4 = GUICtrlCreateInput("Team", 674, 118, 161, 26)
GUICtrlSetColor(-1, 0x800000)
$Label4 = GUICtrlCreateLabel("Gruppe D", 684, 161, 138, 28)
GUICtrlSetFont(-1, 15, 400, 0, "Monotype Corsiva")
GUICtrlSetColor(-1, 0x800000)
$weg1 = GUICtrlCreateButton("Liste löschen", 24, 384, 121, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$weg2 = GUICtrlCreateButton("Liste löschen", 244, 384, 121, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$weg3 = GUICtrlCreateButton("Liste löschen", 472, 381, 121, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$weg4 = GUICtrlCreateButton("Liste löschen", 695, 383, 121, 25, 0)
GUICtrlSetColor(-1, 0x800000)
$Weiter = GUICtrlCreateButton("Weiter", 768, 560, 75, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Abbrechen = GUICtrlCreateButton("Abbrechen", 656, 560, 75, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Team1 = GUICtrlRead($Input1)
GUICtrlSetData($List1, $Team1)
IniWrite(@ScriptDir & "\Teams.ini", "Gruppe A", $GruppeA & ")", $Team1) ;;; Du hast überall vergessen den Pfad deiner ini anzugeben!
GUICtrlSetData($Input1, "")
$GruppeA += 1
Case $Button2
$Team2 = GUICtrlRead($Input2)
GUICtrlSetData($List2, $Team2)
IniWrite(@ScriptDir & "\Teams.ini", "Gruppe B", $GruppeB & ")", $Team2)
GUICtrlSetData($Input2, "")
$GruppeB += 1
Case $Button3
$Team3 = GUICtrlRead($Input3)
GUICtrlSetData($List3, $Team3)
IniWrite(@ScriptDir & "\Teams.ini", "Gruppe C", $GruppeC & ")", $Team3)
GUICtrlSetData($Input3, "")
$GruppeC += 1
Case $Button4
$Team4 = GUICtrlRead($Input4)
GUICtrlSetData($List4, $Team4)
IniWrite(@ScriptDir & "\Teams.ini", "Gruppe D", $GruppeD & ")", $Team4)
GUICtrlSetData($Input4, "")
$GruppeD += 1
Case $weg1
GUICtrlSetData($List1, "")
IniDelete(@ScriptDir & "\Teams.ini", "Gruppe A")
Case $weg2
GUICtrlSetData($List2, "")
IniDelete(@ScriptDir & "\Teams.ini", "Gruppe B")
Case $weg3
GUICtrlSetData($List3, "")
IniDelete(@ScriptDir & "\Teams.ini", "Gruppe C")
Case $weg4
GUICtrlSetData($List4, "")
IniDelete(@ScriptDir & "\Teams.ini", "Gruppe D")
Case $Abbrechen
FileDelete(@ScriptDir & "\Teams.ini")
Exit
Case $Weiter
Exit
EndSwitch
WEnd