Hallo Bug-Fix!
erstmal DANKE, eine Sache funktioniert nicht und zwar das
If IsArray($var) then..
da steigt der beim einlesen der letzten Zeile irgendwie aus, hab jetzt einfach noch einen Filter rumgelegt, wenn nicht ein 3 Teiliger Wert aus dem 1D-Arry kommt.
Wollt das jetzt noch besser machen, mit ner eigenen Schleife auf das Array $ar, wenn der Wert nicht 3-teilig, dann _arraydelete($ar,$i) nur das funktioniert gar nicht (die test.txt wird bei mir "manuell" von mehreren Leuten editiert, wenn da ein Schrott drin ist, dann soll er das gleich komplett aus dem Array werfen)
==============
warum geht das nicht
For $i = 1 To UBound($ar) -1
$var = StringSplit($ar[$i], ' ')
if $var[0] <> 3 then ; schrottwert in der zeile
_arraydelete($ar,$i) ; raus damit
EndIf
Next
====================
so gehts jetzt (den Filter, der nicht funktioniert, wollte ich einfach voher laufen lassen.
For $i = 1 To UBound($ar) -1
$var = StringSplit($ar[$i], ' ')
if $var[0]=3 then
; msgbox(0,"erster Wert", $var[1])
If IsArray($var) Then
$arSortable[$i-1][0] = $var[1] ; Geb.Dat.
$arSortable[$i-1][1] = $var[2] ; Vorname
$arSortable[$i-1][2] = $var[3] ; Name
EndIf
EndIf
Next
Danke & Gruss aus dem Spessart
German