Schulnotenmanager - Hilfe benötigt

  • Hi Leute :D
    Ich
    war leider lange net mehr on, und habe jetzt angefangen ein neues
    Projekt zu schreiben bzw zu starten, einen Schulnotenmanager.
    Leider verstehe ich nicht warum das nicht funzt mit dem Einlesen, bei mir kommt immer nur die 1. Spalte ...
    Bitte helft mir 8)
    Code:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.8.1
    Author: Christian Freisheimer
    Skype: C.Freisheimer
    WWW: http://www.ServerHosting24.com

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

    Script Function:
    Schulnotenmanager

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

    #ce ----------------------------------------------------------------------------
    #include <GuiListView.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <AVIConstants.au3>
    #include <TreeViewConstants.au3>
    Local $Ini_Standard = @ScriptDir & "/SNM.Crypt"
    Local $Datafile = @ScriptDir & "/List.Crypt"
    Local $defaultstatus = "Willkommen beim Schulnotenmanager"

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

    GUICreate("Schulnotenmanager", 600, 600)
    $iListView = GUICtrlCreateListView("Vorname|Nachname|Klasse|Fach|Note", 0, 30, 550, 350)
    GUICtrlCreateListViewItem("Wi|ll|ko|mm|en", $iListView)

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

    $viewmenu = GUICtrlCreateMenu("Schüler", -1, 1) ; is created before "?" menu
    $Menu_List_Add = GUICtrlCreateMenuItem("Schüler hinzufügen", $viewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateButton("Senden", 50, 130, 70, 20)

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

    $BT_Data_Read = GUICtrlCreateButton("Einlesen", 180, 530, 70, 20)

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

    $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 0, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $BT_DATA_READ
    $Gesammt = IniRead($Ini_Standard,"SNM","Anzahl","1")
    _GUICtrlListView_DeleteAllItems($iListView)
    For $Line = 1 to $Gesammt step +1
    $Read = FileReadLine($Datafile,$Line)
    $Splitter = StringSplit($Read,"|SPLIT|")
    $Vorname = $Splitter[1]
    $Nachname = $Splitter[2]
    $Klasse = $Splitter[3]
    $Fach = $Splitter[4]
    $Note = $Splitter[5]

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

    GUICtrlCreateListViewItem($Vorname & "|" & $Nachname
    & "|" & $Klasse & "|" & $Fach & "|" & $Note,
    $iListView)
    Next
    TrayTip("Fertig","Daten alle eingelesen !!!",2)
    Case $msg = $MENU_List_Add
    $New_Vorname = InputBox("Schüler adden","Vorname:","")
    $New_Nachname = InputBox("Schüler adden","Nachname:","")
    $New_Klasse = InputBox("Schüler adden","Klasse:","")
    $New_Fach = InputBox("Schüler adden","Fach:","")
    $New_Note = InputBox("Schüler adden","Note:","")
    $Students = IniRead($INI_Standard,"SNM","Anzahl","Error")
    If $Students = "Error" Then
    MsgBox(16,"SNM 2014","Fehler beim Auslesen ..." &@CRLF& "Erstelle eine neue Indexdatei ...")
    IniWrite($Ini_Standard,"SNM","Anzahl","1")
    Else
    $AlteAnzahl = IniRead($INI_Standard,"SNM","Anzahl","0")
    $NeueAnzahl = $AlteAnzahl +1
    IniWrite($Ini_Standard,"SNM","Anzahl",$NeueAnzahl)
    TrayTip("SNM 2014","Neue Datei erfolgreich erstellt !!!",2)
    EndIf
    FileOpen($Datafile)
    Local $Sepa = "|SPLIT|"

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

    FileWrite($Datafile,$New_Vorname & $Sepa & $New_Nachname
    & $Sepa & $New_Klasse & $Sepa & $New_Fach & $Sepa
    & $New_Note & @CRLF)
    TrayTip("OK","Schüler geadded",2)
    EndSelect
    WEnd

    [/autoit]


    Danke
    mfG Saguhilla (C.Freisheimer)
    PS: Heute ist Freitag der 13. :thumbup:

  • StringSplit sollte so aussehen

    [autoit]

    $Splitter = StringSplit($Read, "|SPLIT|", 1)

    [/autoit]


    "flag = 1, es wird der gesamte Trennzeichenstring als Trennmarkierung genutzt"

  • Danke, das einzigste woran es gelegen hat war, dass das mit "|SPLIT|" nicht funktioniert hat :D Mit allem anderem funzt es :)
    mfG Christian