Hi Leute
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
Code:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.8.1
Author: Christian Freisheimer
Skype: C.Freisheimer
WWW: http://www.ServerHosting24.com
Script Function:
Schulnotenmanager
#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"
GUICreate("Schulnotenmanager", 600, 600)
$iListView = GUICtrlCreateListView("Vorname|Nachname|Klasse|Fach|Note", 0, 30, 550, 350)
GUICtrlCreateListViewItem("Wi|ll|ko|mm|en", $iListView)
$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)
$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]
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|"
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
Danke
mfG Saguhilla (C.Freisheimer)
PS: Heute ist Freitag der 13.