In Textdatei Zeilenende ermitteln
06.08.2003 07:55:19
Gabor
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~