Hi Community,

gern würde ich mal wieder eure Hilfe in anspruch nehmen...
Mit nachfolgendem Code lese ich Daten aus einem Textfile ein.
Mein Problem ist nun, das die Werte für "Turnen(ZZ).Zeiten" von 1-5 in einer Zeile variieren. Gibt es eine Möglichkeit(Methode) wie bei Textstreamobjekten, das Ende der Zeile festzustellen ?

Gruß Gabor

~begin~
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.Fileexists(ThisWorkbook.Path & "\" & TurnenDat) Then
FF = FreeFile
Open ThisWorkbook.Path & "\" & TurnenDat For Input As FF
Do Until EOF(FF)
ReDim Preserve Turnen(ZZ)
Input #FF, LAbt
If LAbt = AktAbt Then
Turnen(ZZ).Abteilung = LAbt
Input #FF, Turnen(ZZ).Starttag, Turnen(ZZ).Zeiten(1),
Turnen(ZZ).Zeiten(2), Turnen(ZZ).Zeiten(3),
Turnen(ZZ).Zeiten(4), Turnen(ZZ).Zeiten(5)
End If
ZZ = ZZ + 1
Loop
Close #FF
Erfolg = True
Else
Erfolg = False
End If
Set FS = Nothing
~end~