Nummerrierung eines Array Eintrages

wolkenloser

Hi,

Ich habe wieder mal ein Phänomen welches ich nicht verstehe:

Ich habe ein GUI indem ich eine Telfonliste darstelle:
Wenn man einen Namen aus der Liste schreibt, springt die Markirung zu dem EIntrag, was sehr gut und gewünscht ist, so kann mann zB. schnell einen Eintrag auffinden.

Was mir jetzt Problem bereitet ist, daß ich versuche einen Eintrag zu bearbeiten und dann wegzuschreiben.

Auch das gelingt prinzipiell, allerdings habe ich festgestellt, das ich immer einen "versatz" im Index habe.
Also wenn ich den dritten Eintag aus der Liste bearbeiten will, muß ich beim Arrayindex immer etwas abziehen um den richtigen Datensatz zu bekommen.
Allerdings ist die Differenz nie gleich

Code

$markiert = GUICtrlRead($listview)
$nr = $markiert - 5
MsgBox(0,"","Name:" & $aRecords[$nr])

Woran liegt das ?

Hier nochmal das ganze Script:

C

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>


dim $aRecords, $x, $listview


$file = "C:\Adressbuch.csv"




GUICreate("Telefonlisten",530,300, 100,200,-1,$WS_EX_ACCEPTFILES)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern = GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen = GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
GUISetState()




If Not _FileReadToArray($file, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)

Next




func bearbeiten()


$markiert = GUICtrlRead($listview)
$nr = $markiert - 5
MsgBox(0,"","Name:" & $aRecords[$nr])
$input = InputBox("Bearbeiten","Datensatz kann jetzt bearbeitet werden",$aRecords[$nr])
_ArrayDelete( $aRecords,$nr)
_ArrayInsert( $aRecords,$nr,$input)


GUICtrlDelete($listview)
sleep(50)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
EndFunc




Func speichern()
FileOpen($file,2 )


For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next	


EndFunc






While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop

	case $msg = $bearbeiten
	bearbeiten()	


	case $msg = $speichern
	speichern()


	Case Else
;~ 		;;;
	EndSelect


WEnd

Alles anzeigen

Hier noch die Stuktur meiner Adressdatei:

Zitat

Pan|Peter|306||0160-00000001
Merkel|Angela|351||0160-1111111111
Lustig|Peter|125|493|0160-500600900
Engelke|Anke|105|271|0160-500600901
Stamm|Baum|215|169|

**GtaSpider**

Na!
Das ligt daran dass, wenn ein falscher name bearbeitet wird $nr = -5 ist bzw -4 -3 -2 -1
Also z.B.:
Merkel|Angelia|34
da fehlt doch was..da sind nämlich nur 3 angegebne und wenn das so ist gibt es auch logischer weise einen fehler, denn das würde dann so aussehen:
aRecords[-5]...
Beispiel wie mann es lösen könnte:

Code

If $nr < 6 Then
	MsgBox(16,"","Invalid Name")
	Return
EndIf

Ganzer code:

C

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>


dim $aRecords, $x, $listview


$file = "Adressbuch.csv"




GUICreate("Telefonlisten",530,300, 100,200,-1,$WS_EX_ACCEPTFILES)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern = GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen = GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
GUISetState()




If Not _FileReadToArray($file, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)


Next




func bearbeiten()


$markiert = GUICtrlRead($listview)
$nr = $markiert - 5
If $nr < 6 Then
	MsgBox(16,"","Invalid Name")
	Return
EndIf
MsgBox(0,"","Name:" & $aRecords[$nr])
$input = InputBox("Bearbeiten","Datensatz kann jetzt bearbeitet werden",$aRecords[$nr])
_ArrayDelete( $aRecords,$nr)
_ArrayInsert( $aRecords,$nr,$input)


GUICtrlDelete($listview)
sleep(50)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
EndFunc




Func speichern()
FileOpen($file,2 )


For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next 


EndFunc






While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop


case $msg = $bearbeiten
bearbeiten() 




case $msg = $speichern
speichern()




Case Else
;~  ;;;
EndSelect


WEnd

Alles anzeigen

wolkenloser

Ok, da habe ich etwas übersehen.
Das liegt aber daran, das meine ursprüngliche Liste ca 100 Einträge hatte, ich habe dann einfach eine DummyListe gemacht, da sieht das wohl anders aus.

Hier nochmal eine andere Adressliste.

Dann wird der Fehler vielleicht nachvollziehbarer

Code

kdmknkstrktkon||306||
kdmknkstrktkon||351||
kltun|Zkfkr|0281-9424-0|493|
knkschkwskk|Rklf|105|271|
Bkumgkrtkn|Mkrtknk|215|169|
Bky|Dorks|217||
Bkckhoff |Thomks|211|226|0111-2222-190
Bkllwknkkl|Jürgkn|205||
Bktrkkbsrkt||376||
Boltknburg|Ulfkrt|216|333|0111-2222-031
Bönnkkkn|Bärbkl|199|393|
Boumhkdk|kbdkllkh|306||
Boumhkdk|Mklknkk|351|227|
Cklkskkn|kskm|316|0111-2222-182
Dolkk|Skschk|138|
Drkkskn|Frknk|255|
khlkrt|Rklf|535||
khrksmknn|Chrkstoph|401|489|0111-2222-143
krtks|Cknkr|290|
krtks|Mkrykn|136||
Fkschkr|Mkchkkl|241|106|0111-2222-151
Gkkdk|Mkrkus|201|108|0111-2222-140
Gknz|Pktkr|247|
Glks|Hkns-Wklhklm|535|336|
Gokczyk|kndrkks|220|
Grkhmknn|Svkn|319|
Hkmpkl|kchkm|132|
Hkmpkl|Jkdwkgk|341||0111-2222-183
Hklkukr|Kkrstkn|141|
Hkrdkr|Bkrnd|314|
Hkrzog|Jürgkn|219|
Hkrzog|Skschk|228||
Hkymknn|Clkudkk|244|248|0111-2222-185
Hkckmknn|kndrkks||0111-2222-181
Hkklschkr|Mkchkkl|206||
Hoffmknn|Hkrmknn|413||
Hofmknn|Kkrolknk|202||
kT-kbtkklung|Fkx:|0281-4608-280||
Jkcob-Gkkskn|Brkgkttk|199|393|
Kkrolknk|Hofmknn|254|
Kkssklmknn|Dknnks|498|
Kkllkng|kndrkks|218|
Kkmpk|Skkgmund|402|337|0111-2222-180
Kkschkl|kgbkrt|336||
Kokovkkdks|Chrkstos|132|
Könkg|Rüdkgkr|231||0111-2222-030
Kossofkr|Mkrc|493|
Lkknkwkbkr|Frknk|420|0111-2222-144
Lorknz|Thorstkn|374||0111-2222-186
Mkrbks|Chrkstkkn|224|
Mkrfkld|Pktkr|413|
Mkykr|Dktlkf|162||0111-7421-524
Mkngkrs|Mknfrkd|131||
Mkskkvych|kdukrd|213||
Mross|Rkknkr|321|
Nkumkykr|Dkrk|164||0111-2222-033
Okutucu|Murkt|136||
Orknt|knnk|322|257|
Orknt|Skggk|536||
Öztürk|Nkzmkyk|252|422|
Pkus|Ulrkch|232|
Pförtnkr||393||
Plkutz|Gukdo|298|253|0111-2222-153
Puschkkrskk|Skbrknk|301||
Rückwkld|kngklhkrd|212|313|0111-3303-442
Ruthkrt|kvk-Mkrkk|537||
Skgkbkum|Hklmut|166||0111-2222-142
Schäfkr|Nkdknk|192|424|
Schkffkr|Rüdkgkr||0111-2222-189
Schkrskch|Jksmkn|303||
Schkrskch|Jksskck|374|246|
Schkrbkn|Mknfrkd|207||
Schmktz|Klkus|228||
Schnkkdkr|klkxkndkr|131||0111-2222-141
Schrkmmkr|Skndrk|541|315|
Schumkchkr|kndré|540|297|0111-2222-157
Schumkchkr|Tkm|494|
Hkymknn|Gkby|243|308|
Stkckmknn|kngo|216|491|
Strkhlow|Dkrk|165||0111-2222-032
Sturm|Thorstkn|488|0111-2222-178
Tkkm||321||
Tkllnkr|Jochkn|254|
Thkkmrodt|Kkk|245||0111-2222-145
Thkkmrodt|Mkchkkl|168|
Tsorkkkdks|Fotkos|269|
Vogkl|Ursulk|217||
Wkkgklt|Thorstkn|233|
Wknklkr|Bkrgkt|214||
Wkntkrs|Mkchkkl|228||
Zkmmkrmknn|knjk|108|

Alles anzeigen

wolkenloser

Zitat

Original von gtaspider
Na!
Das ligt daran dass, wenn ein falscher name bearbeitet wird $nr = -5 ist bzw -4 -3 -2 -1
Also z.B.:
Merkel|Angelia|34
da fehlt doch was..da sind nämlich nur 3 angegebne und wenn das so ist gibt es auch logischer weise einen fehler, denn das würde dann so aussehen:

Ich habe deine Nachricht nochmal genauer gelesen.

Also mit der $nr hole ich nicht die Telefonnummer oder Handynummer, sondern das nummeriert die ganze Zeile

siehe Bild:

wolkenloser

Das Mit denBilder klappt irgendwie nicht richtig

Noch ein Versuch

wolkenloser

Zitat
Original von wolkenloser
...
Code
$markiert = GUICtrlRead($listview)
$nr = $markiert - 5
MsgBox(0,"","Name:" & $aRecords[$nr])
Woran liegt das ?

Schade das ich mir immer selber helfen muß

Bin im Englischen AUTOIT Forum fündig geworden, aber das ist immer so mühselig, weil dort immer soviel zu einem Thema steht, und ich doch rechtgroße Mühe habe mit der Übersetzung.

Die Lösung für mein Problem sieht so aus, vielleicht nutzt es ja irgendwem.

Code

$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
MsgBox(0,"","Name:" & $aRecords[$nr])

wolkenloser

Hallo Hier das fertige Script zu meiner kleinen Telefonliste:-)

C

#include <file.au3>
#include <Array.au3>
#include <GUIConstants.au3>


Opt("TrayIconDebug", 1) ; zeigt am trayicon welchen Befehl  das Script gerade Ausführt
;~ #NoTrayIcon; AutoIt-Icon nicht im Windows-Tray-Bereich zeigen
;~ ToolTip("bei Problemen, bitte Hr. Meyer (EXEL-Hünxe) anrufen (01727421524)")




dim $aRecords, $x, $listview, $name, $vorname, $tel, $mobil, $handy, $einfuegen, $Button1, $Button2, $uebernehmen, $nr, $x_n


$file = "C:\publictelefon.csv"


GUICreate("Telefonlisten",540,315, 100,200,-1,$WS_EX_ACCEPTFILES)
$listview 	= GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,520,230)
$bearbeiten = GUICtrlCreateButton("Bearbeiten",10,250,80,20)
$speichern 	= GUICtrlCreateButton("Datei speichern",100,250,80,20)
$anlegen 	= GUICtrlCreateButton("Datensatz anlegen",190,250,100,20)
$loeschen 	= GUICtrlCreateButton("Datensatz löschen",300,250,100,20)
$array	 	= GUICtrlCreateButton("Array anzeigen",410,250,100,20)


;---Editfeld
$name 		= GUICtrlCreateInput("Name",10, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$vorname 	= GUICtrlCreateInput("Vorname",100, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$tel 		= GUICtrlCreateInput("Telefon",190, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$mobil 		= GUICtrlCreateInput("Schnurlos",280, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$handy 		= GUICtrlCreateInput("Handy",370, 280,80,20,-1 ,$WS_EX_CLIENTEDGE )
$Button1 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
$Button2 	= GUICtrlCreateButton("",1460,280,70,20); Buttons sollen nicht sichtbar sein !
GUISetState()




;--- PROGRAMM ABLAUF


If Not _FileReadToArray($file, $aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf


For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next


; Ich zerstöre diese direkt wieder , weil sonnst immer direkt die Funktion für Button1 ausgeführt wird
; Vielleicht weiß jemand warum ?
GUICtrlDelete($Button1)
GUICtrlDelete($Button2)


While 1
$msg = GuiGetMsg()


Select
Case $msg = $GUI_EVENT_CLOSE
	ExitLoop

case $msg = $bearbeiten
bearbeiten()	

case $msg = $speichern
speichern()


Case $msg = $anlegen
anlegen()


Case $msg = $Button1
uebernehmen()


Case $msg = $Button2
hinzufuegen()


Case $msg = $loeschen
loeschen()	


case $msg = $array
	_ArrayDisplay($aRecords, "Array Anzeigen")


Case Else
;~ 		;;;
EndSelect


WEnd


;--- PROGRAMM ABLAUF ende










;--- FUNKTIONEN




func bearbeiten()
$Button1 = GUICtrlCreateButton("übernehmen",460,280,70,20)
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1
;~ MsgBox(0,"",$aRecords[$nr])
$Datensatz = StringSplit($aRecords[$nr],"|")
;~ MsgBox(0,"Datensatz hat n Elemente, n= ",$Datensatz[0])
If $Datensatz[0] > 0 Then GUICtrlSetData($name,$Datensatz[1])
If $Datensatz[0] > 1 Then GUICtrlSetData($vorname,$Datensatz[2])
If $Datensatz[0] > 2 Then GUICtrlSetData($tel,$Datensatz[3])
If $Datensatz[0] > 3 Then GUICtrlSetData($mobil,$Datensatz[4])
If $Datensatz[0] > 4 Then GUICtrlSetData($handy,$Datensatz[5])
;~ _ArrayDisplay($Datensatz,"")
EndFunc




Func speichern()
FileOpen($file,2 )
For $x = 1 to $aRecords[0]
FileWriteLine($file,$aRecords[$x])
FileClose($file)
Next	
EndFunc




func anlegen()
	MsgBox(4096,"Datensatz anlegen","Bitte die entsprechenden Felder füllen" & @CR & @CR & 'Dann "hinzufügen" auswählen')
$Button2 = GUICtrlCreateButton("hinzufügen",460,280,70,20)	




EndFunc	


Func hinzufuegen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)
$new = $aRecords[0]+1
_ArrayInsert($aRecords,$new,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
$aRecords[0] = $new	
refresh()	
EndFunc	






Func uebernehmen()
$name_read 		= GUICtrlRead($name)
$vorname_read 	= GUICtrlRead($vorname)
$tel_read	 	= GUICtrlRead($tel)
$mobil_read 	= GUICtrlRead($mobil)
$handy_read 	= GUICtrlRead($handy)


;~ MsgBox(0,"",$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
_ArrayDelete($aRecords,$nr)
_ArrayInsert($aRecords,$nr,$name_read & "|" & $vorname_read & "|" & $tel_read 	 & "|" & $mobil_read  & "|" & $handy_read)
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc






Func loeschen()
$nr = ControlListView("","",$listview,"GetSelected")
$nr = $nr+1	
$new = $aRecords[0]-1


_ArrayDelete($aRecords,$nr)	
;~ _ArrayDisplay($aRecords,"")
$aRecords[0] = ""
;~ _ArraySort($aRecords)
$aRecords[0] = $new
;~ _ArrayDisplay($aRecords,"")
refresh()
EndFunc	




func refresh()
$new = $aRecords[0]
$aRecords[0] = ""
_ArraySort($aRecords)
$aRecords[0] = $new


GUICtrlDelete($listview)
GUICtrlDelete($Button1)
GUICtrlDelete($Button2)
$listview = GUICtrlCreateListView ("Name              |Vorname              |Telefon|Schnurlos|Handy  ",10,10,500,230);,$LVS_SORTDESCENDING)
For $x = 1 to $aRecords[0]
GUICtrlCreateListViewItem($aRecords[$x],$listview)
Next
EndFunc

Alles anzeigen

**GtaSpider**

tut mir leit...-_- aber: selbst ist der mann!