[Brauche Hilfe] Array in ListView

[surorek5]

Hey EPvP

Ich wollte mal fragen, wieso dieser Code nicht geht:

 Spoiler

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

 AutoIt Version: 3.3.10.2
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <String.au3>
#include <Array.au3>

Local $iI, $idListview, $abbrechen, $speichern

$number = 1
$keydata=FileOpen("key.txt")
$keyread = FileRead("key.txt")
$sabber = $keyread + $number

$file = "Daten.ini"

$Ort = IniReadSection($file, "Ort")
$Benutzer = IniReadSection($file, "Benutzername")
$Passwort = IniReadSection($file, "Passwort")
$Sicherheit1 = IniReadSection($file, "Sicherheit 1")
$Antwort1 = IniReadSection($file, "Antwort 1")
$Sicherheit2 = IniReadSection($file, "Sicherheit 2")
$Antwort2 = IniReadSection($file, "Antwort 2")
$Kommentar = IniReadSection($file, "Kommentar")
$cryptOrtUN = _StringEncrypt (0, $Ort, "bla")
$cryptBenutzerUN = _StringEncrypt (0, $Benutzer, "bla")
$cryptPasswortUN = _StringEncrypt (0, $Passwort, "bla")
$cryptSicherheit1UN = _StringEncrypt (0, $Sicherheit1, "bla")
$cryptAntwort1UN = _StringEncrypt (0, $Antwort1, "bla")
$cryptSicherheit2UN = _StringEncrypt (0, $Sicherheit2, "bla")
$cryptAntwort2UN = _StringEncrypt (0, $Antwort2, "bla")
$cryptKommentarUN = _StringEncrypt (0, $Kommentar, "bla")

; GUI erstellen
GUICreate("DatenINI by KillTrot", 1000,500,"","",$WS_SIZEBOX)
$idListview = GUICtrlCreateListView("",0,0,1000,400,"",$LVS_EX_INFOTIP)
$hinzufuegen=GUICtrlCreateButton("Hinzufügen", 10, 410)
GUISetState(@SW_SHOW)

_GUICtrlListView_AddColumn($idListview, "Ort", 95)
_GUICtrlListView_AddColumn($idListview, "Benutzername oder E-mail", 155)
_GUICtrlListView_AddColumn($idListview, "Passwort", 125)
_GUICtrlListView_AddColumn($idListview, "Sicherheit 1", 125)
_GUICtrlListView_AddColumn($idListview, "Antwort 1", 125)
_GUICtrlListView_AddColumn($idListview, "Sicherheit 2", 125)
_GUICtrlListView_AddColumn($idListview, "Antwort 2", 125)
_GUICtrlListView_AddColumn($idListview, "Kommentar", 125)

_GUICtrlListView_SetItemCount($idListview, 5000)

Local $aItems[1][8]
For $iI = 0 To UBound($aItems) - 1
   $aItems[$iI][0] = $Ort
   $aItems[$iI][1] = $cryptBenutzerUn
   $aItems[$iI][2] = $cryptPasswortUn
   $aItems[$iI][3] = $cryptSicherheit1Un
   $aItems[$iI][4] = $cryptAntwort1Un
   $aItems[$iI][5] = $cryptSicherheit2Un
   $aItems[$iI][6] = $cryptAntwort2Un
   $aItems[$iI][7] = $cryptKommentarUn
Next
_GUICtrlListView_AddArray($idListview, $aItems)


$check = GUICreate("Speichern", 180, 35, -1, -1,$WS_POPUPWINDOW)
$speichern=GUICtrlCreateButton("Speichern", 2.5,5,87.5,25)
$abbrechen=GUICtrlCreateButton("Abbrechen", 90,5,87.5,25)
GUISetState(@SW_HIDE, $check)

FileClose("key.txt")

While 1
   Switch GUIGetMsg()
	  Case $GUI_EVENT_CLOSE
            ExitLoop
	  Case $hinzufuegen
		 _hinzufuegen()
	  Case $abbrechen
		 _abbrechen()
	  Case $speichern
		 _speichern()
   EndSwitch

 WEnd

 Func	_hinzufuegen()
   $hinzufuegenOrt = InputBox("Wo","Bitte beschreiben sie kurz, wo diese Daten gebraucht werden.", "zB. ")
   if @error = 0 then
	  $cryptOrt =_StringEncrypt (1, $hinzufuegenOrt, "bla")
	  IniWrite($file, "Ort", $keyread,$cryptOrt)
	  $hinzufuegenBenutzer = InputBox("Benutzername oder E-Mail","Bitte schreiben sie hier ihren Benutzernamen bzw. ihre E-Mail herein.","zB. MaxMustermann oder ")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	  $cryptBenutzer =_StringEncrypt (1, $hinzufuegenBenutzer, "bla")
	  IniWrite($file,"Benuntzername",$keyread, $cryptBenutzer)
	  $hinzufuegenPasswort = InputBox("Passwort", "Bitte geben sie hier ihr Passwort ein.","","#")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	  $cryptPasswort =_StringEncrypt (1, $hinzufuegenPasswort, "bla")
	  IniWrite($file,"Passwort",$keyread, $cryptPasswort)
	  $hinzufuegenSicherheit1 = InputBox("Mehr","Hier bitte Sicherheitsfrage 1 eingeben. Wenn nicht vorhanden leer lassen.")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	   $cryptSicherheit1 =_StringEncrypt (1, $hinzufuegenSicherheit1, "bla")
	   IniWrite($file,"Sicherheit 1",$keyread, $cryptSicherheit1)
	  $hinzufuegenAntwort1 = InputBox("Mehr", "Hier bitte die Antwort auf Sicherheitsfrage 1 eingeben. Wenn nicht vorhanden leer lassen")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	  $cryptAntwort1 =_StringEncrypt (1, $hinzufuegenAntwort1, "bla")
	  IniWrite($file,"Antwort 1",$keyread, $cryptAntwort1)
	  $hinzufuegenSicherheit2 = InputBox("Mehr","Hier bitte Sicherheitsfrage 2 eingeben. Wenn nicht vorhanden leer lassen.")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	  $cryptSicherheit2 =_StringEncrypt (1, $hinzufuegenSicherheit2, "bla")
	  IniWrite($file,"Sicherheit 2",$keyread, $cryptSicherheit2)
	  $hinzufuegenAntwort2 = InputBox("Mehr", "Hier bitte die Antwort auf Sicherheitsfrage 2 eingeben. Wenn nicht vorhanden leer lassen")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 then
	  $cryptAntwort2 =_StringEncrypt (1, $hinzufuegenAntwort2, "bla")
	  IniWrite($file,"Antwort 2",$keyread, $cryptAntwort2)
	  $hinzufuegenKommentar = InputBox("Kommentar", "Hier können sie einen Kommenar zum Account hinterlassen")
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
   If @error = 0 Then
	  $cryptKommentar =_StringEncrypt (1, $hinzufuegenKommentar, "bla")
	  IniWrite($file,"Kommentar",$keyread, $cryptKommentar)
	  GUISetState(@SW_SHOW, $check)
   ElseIf @error = 1 Then
	  MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen", 15)
	  IniDelete($file,"Ort",$keyread)
	  IniDelete($file,"Benutzername",$keyread)
	  IniDelete($file,"Passwort",$keyread)
	  IniDelete($file,"Sicherheit 1",$keyread)
	  IniDelete($file,"Antwort 1",$keyread)
	  IniDelete($file,"Sicherheit 2",$keyread)
	  IniDelete($file,"Antwort 2",$keyread)
	  IniDelete($file,"Kommentar",$keyread)
	  Return
   EndIf
EndFunc

Func _abbrechen()
   GUISetState(@SW_HIDE, $check)
   MsgBox(0,"Abgebrochen", "Sie haben den Vorgang abgebrochen.", 15)
   IniDelete($file,"Ort",$keyread)
   IniDelete($file,"Benutzername",$keyread)
   IniDelete($file,"Passwort",$keyread)
   IniDelete($file,"Sicherheit 1",$keyread)
   IniDelete($file,"Antwort 1",$keyread)
   IniDelete($file,"Sicherheit 2",$keyread)
   IniDelete($file,"Antwort 2",$keyread)
   IniDelete($file,"Kommentar",$keyread)
EndFunc

Func _speichern()
   GUISetState(@SW_HIDE, $check)
   FileWrite("key.txt", $sabber)
   MsgBox(0,"Gespeichert", "Ihre Angaben wurden gespeichert und können nun auf der Hauptseite eingesehen werden. Programm wird neu gestartet.", 15)
   ShellExecute("DatenNEU.au3")
   Exit
EndFunc

Fehler dabei ist, dass die Daten nicht in der Listview angezeigt werden...

[Ich weiss, der Code ist schlecht, bin auch noch Neuling. Jegliche andere Verbesserungen dürft ihr mir natürlich auch schreiben.]


MFG

[surorek5]

#push

[lolkop]

Originally Posted by surorek5

#push

Das ganze mit der ini würde ich lassen.

Baue dir deinen Inhalt der Tabelle am Besten von Anfang an über ein Array ein und arbeite mit den Grundfunktionen von AutoIT. Keine Includes, keine höhere Logik... Beschränkung auf die Grundlagen ist in diesem Fall wohl das sinnvollste...

Statt der Ini-Funktionen (langsam und ineffizient) dann noch auf normale FileWrite und FileRead Vorgänge beschränken und es sollte keine Probleme geben.

Edit:
Beispielcode:

Dim $array[1][9]=[[0]], $fileContent = StringSplit(FileRead('data.txt'), @CRLF, 1)
GUICreate('GUI', 700, 300, Default, Default, 0x10C80000)
$listView = GUICtrlCreateListView('Ort|Benutzer|Passwort|Sicherheitsfrage 1|Antwort 1|Sicherheitsfrage 2|Antwort 2|Kommentar',10 ,10, 680, 240)
For $i=0 To 7
   $array[0][$i+1] = GUICtrlCreateInput('', 10+$i*85, 250, 85, 20)
Next
For $line=1 To $fileContent[0]-1
   $newSplit = StringSplit($fileContent[$line], '|', 1)
   $array[0][0]+=1
   ReDim $array[$array[0][0]+1][9]
   For $i=1 To $newSplit[0]
	  If $i>=9 Then ExitLoop
	  $array[$array[0][0]][$i] = $newSplit[$i]
   Next
   $array[$array[0][0]][0]=GUICtrlCreateListViewItem($fileContent[$line], $listView)
Next
$buttonAdd = GUICtrlCreateButton('Hinzufügen', 10, 270, 340, 20)
$buttonDel = GUICtrlCreateButton('Entfernen', 350, 270, 340, 20)

While Sleep(1)
   Switch GUIGetMsg()
	  Case -3
		 $fileContent = ''
		 For $i=1 To $array[0][0]
			For $h=1 To 8
			   $fileContent &= $array[$i][$h]&'|'
			Next
			$fileContent &= @CRLF
		 Next
		 FileDelete('data.txt')
		 FileWrite('data.txt', $fileContent)
		 Exit
	  Case $buttonAdd
		 $array[0][0]+=1
		 ReDim $array[$array[0][0]+1][9]
		 $controlString = ''
		 For $i=1 To 8
			$array[$array[0][0]][$i] = GUICtrlRead($array[0][$i])
			$controlString &= GUICtrlRead($array[0][$i])&'|'
		 Next
		 $array[$array[0][0]][0]=GUICtrlCreateListViewItem($controlString, $listView)
	  Case $buttonDel
		 $selected = GUICtrlRead($listView)
		 For $i=1 To $array[0][0]
			If $array[$i][0] = $selected Then
			   For $i=$i To $array[0][0]-1
				  For $h=0 To 8
					 $array[$i][$h] = $array[$i+1][$h]
				  Next
			   Next
			   ExitLoop
			EndIf
		 Next
		 ReDim $array[$array[0][0]][9]
		 $array[0][0] -= 1
		 GUICtrlDelete($selected)
   EndSwitch
WEnd

[surorek5]

Danke viel mal, werde es anschauen.