ID

#include <Array.au3> ; Wird für die Funktion _ArrayDisplay gebraucht

$file = @ScriptDir & "\data.ini"

If NOT FileExists($file) Then ;Wenn die Datei mit den Daten noch nicht existiert wird sie erstellt
    IniWrite($file, "Main", "Number", "1")
EndIf

$id = InputBox("", "Ihre ID zum Spiel?", "wanderladen")
$pw = InputBox("", "Ihr PW zum Spiel?", "wanderladen", "*")
_save($id, $pw) ;Ruft die selbsterstelle Funktion mit dem Parameter der Inputbox auf

$read = _read() ;Liest die Daten aus und gibt sie in ein Array
_ArrayDisplay($read) ;Zeigt das Array in einer Liste

Func _save($benutzername, $passwort)
    $number = IniRead($file, "Main", "Number", "1") ;Liest aus welche Number verwendet werden soll, dabei wird 1 verwendet wenn die Datei neu erstellt wurde
    IniWrite($file, "#" & $number, "ID", $benutzername) ;Speichert den Benutzernamen
    IniWrite($file, "#" & $number, "PW", $passwort) ;Speichert das Passwort
    IniWrite($file, "Main", "Number", $number + 1) ;Erhöht die Zahl um 1 für den nächsten Eintrag
EndFunc

Func _read()
    $names = IniReadSectionNames($file) ;Liest alle Sektionen aus der Datei aus
    _ArrayDisplay($names) ;Zeigt alle Sektionen + die Anzahl an
    Dim $read[$names[0] + 1][2] ;Erstellt ein mehrdimensionales Array
    For $i = 2 To $names[0] ;Fährt alle Sektionen ab, dabei wäre die nullte die Anzahl, die erste die Main Sektion und die zweite wäre erst das ID mit dem PW - siehe ArrayDisplay von vorhin
        $section = IniReadSection($file, $names[$i])
;~      _ArrayDisplay($section)
        $read[$i][0] = $section[1][1] ;Füllt das Array mit der ID auf
        $read[$i][1] = $section[2][1] ;Füllt das Array mit dem PW auf
    Next
    Return $read ;Gibt das Array der Funktion zurück damit es weiterverwendet kann z.B. über "$variable = _function(...)"
EndFunc