Text in Array einlesen

Hallo!

Du hast ein paar Fehler im Code!

1. Dim $days[10][8] erzeugt ein Array mit 10x8 Feldern, die Nummerierung beginnt immer bei 0, also für die 2. Dimension 0 - 7. In der Schleife weißt Du aber Werte von 0 - 8 zu.

2. Until @error = -1 ist zwas Syntaktisch richtig, allerdings enthält zu diesem Zeitpunkt @error den Fehlerstatus von StringSplit und nicht mehr den von FileReadLine!

3 Am Ende greifst Du mit MsgBox(0, "titel", $days[258][5]) einfach auf ein Element zu von dem Du gar nicht wissen kannst ob es existiert!

Ich habs mal etwas umgeschrieben:

#include <Array.au3>
#include <File.au3>
#include <String.au3>

Dim $days[1][7], $zwischen

$file = FileOpen("c:\EURNOK 5min.csv", 0)
If @error = -1 Then
MsgBox(0,"Fehler", "Fehler beim öffnen!")
Exit
EndIf

$CountLines = _FileCountLines("c:\EURNOK 5min.csv")

ReDim $days[$CountLines][7]

For $x = 0 To $CountLines -1
$line = FileReadLine($file)
If @error <> 0 Then
MsgBox(0,"Fehler", "Fehler beim lesen!")
ExitLoop
EndIf

ConsoleWrite($line & @CRLF) ; gelesene Zeile zur Kontrolle ausgeben

$zwischen = StringSplit($line, ";") ; $zwischen[0] enthält die Anzahl der Elemente (sollte immer 7 sein)

for $i = 1 To $zwischen[0]
$days[$x][$i-1] = $zwischen[$i]
Next
Next

MsgBox(0, "titel", $days[$CountLines - 1][5])