Einlesen aus Datei - EOF

20/02/2008 - 15:36 von Eric March | Report spam
Moinsen!

Wahrscheinlich sehe ich den Wald vor lauter Bàumen nicht; jemand hat mir
eine an sich einfache Textdatei untergeschoben die ich Zeileweise mit
Line Input auswerten will...

Dummerweise enthàlt das Ding EOF's! (Damit habe ich mit anderer SW auch
schon genug Bauchschmerzen.) Der gute alte Weg mit
Open ... As #1
While Not EOF(1)
...
Wend
Close 1
erlebt mittendrin eine klàgliche Bauchlandung.

Wie lese ich die Datei bis zum echten Schluss ein? Auf Kunststücke mit
Error-Abfrage beim Line Input möchte ich dankend verzichten.

Eric March

Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit
liegt das Verderben der Zukunft.
"Die Geschichte ist der beste Lehrmeister - mit den unaufmerksamsten
Schülern." Indira Gandhi
 

Lesen sie die antworten

#1 Peter Schleif
20/02/2008 - 15:48 | Warnen spam
Eric March schrieb:

Wahrscheinlich sehe ich den Wald vor lauter Bàumen nicht; jemand hat mir
eine an sich einfache Textdatei untergeschoben die ich Zeileweise mit
Line Input auswerten will...



So müsste es gehen.

Peter

Sub zeilen_einlesen()

Dim fso As Object
Dim fp As Object
Dim ts As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.GetFile("C:\test.txt")
Set ts = fp.OpenAsTextStream(1)

While Not ts.AtEndOfStream
Debug.Print ts.ReadLine
Wend

Set ts = Nothing
Set fp = Nothing
Set fso = Nothing

End Sub

Ähnliche fragen