Hallo,
ich wollte eine CSV-Datei in ein zweidimensinales Array einlesen. Habe dazu bisher folgende Funktion geschrieben
[autoit]Func CSVlesen($file) ;Liest den Inhalt der übegebebenen CSV-Datei in ein zweidimensionales Array und gibt dieses zurück (erstes Element enthält Anzahl Zeilen)
Local $CountLines = _FileCountLines($file)
Local $zeilen[$CountLines+1]
Local $zeile
$zeilen[0] = $CountLines
$csv = FileOpen($file, 0)
For $i = 1 To $CountLines
$zeile = FileReadLine($csv)
If @error = -1 Then
ExitLoop
EndIf
MsgBox(64, "Test", "Inhalt: " & $zeile) ;hier wird die ganze Zeile korrekt ausgegeben.
$zeilen[$i] = StringSplit($zeile, ";")
MsgBox(64, "Test", "Inhalt: " & $zeilen[$i]) ;ist scheinbar leer
MsgBox(64, "Test", "Inhalt: " & $zeilen[$i][0]) ;erzeugt Fehlermeldung!
Next
FileClose($csv)
Return $zeilen
EndFunc
Leider gibts die folgende Fehlermeldung:
==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
MsgBox(64, "Test", "Inhalt: " & $zeilen[$i][0])
MsgBox(64, "Test", "Inhalt: " & ^ ERROR
Kann mir jemand verraten, woran das liegt?