Wann ist eine txt Datei zu Ende ?

[Automatikk]

hi

Ich hätte eine frage und zwar will ich VB eine txt einlesen nun soll und das innenstehende ausgeben bsp in einer msg box nur wie erkenne ich wann das txt doc zu ende ist ?

Also Praktisch EOF funktioniert nicht ich brauch ne andere methode

thx 4 help

 

[Da Hacker]

Herzlich Willkommen in Forum, Automatikk!

Wieso funktioniert EOF nicht? EOF ist genau das, was du brauchst. Achte darauf, dass du EOF in eine While-Schleife einbauen musst, mit der du voneinander getrennte Variablen einlesen möchtest. Etwa so:

While EOF(Dateinummer) = false
'... Code fürs Einlesen der Variablen ...
WEnd

Neben EOF gibt es noch LOF(Length of File). In Verbindung mit der Seek-Funktion kannst du auch überprüfen ob das Ende einer Datei erreicht ist. Damit habe ich mich aber noch nicht beschäftigt, deshalb nur ein Auszug aus der MSDN:

Bei Dateien, die nicht mit wahlfreiem Zugriff (Random) geöffnet wurden, legt Seek die Byte-Position fest, an der die nächste Operation stattfindet. In dem Beispiel enthält die Datei DATEI1 einige Zeilen mit Text.

Dim MaxGröße, ZeichenPos, Zeichen1
Open "DATEI1" For Input As #1   ' Datei zum Lesen öffnen.
MaxGröße = LOF(1)   ' Größe der Datei in Bytes bestimmen.
' Die Schleife liest alle Zeichen und beginnt mit dem letzten Zeichen.
For ZeichenPos = MaxGröße To 1 Step -1   
   Seek #1, ZeichenPos   ' Position festlegen.
   Zeichen1 = Input(1, #1)   ' Zeichen lesen.
Next ZeichenPos
Close #1   ' Datei schließen.

Ich hoffe, ich konnte dir helfen.

Ciao:
Da' Hacker

 

[Automatikk]

Hmmm

So aber die txt Datei weiß ja nicht wann die datei zu ende.
Das FSO dies kann ist mir schon klar nur kan das auch die txt datei ?

thx for help bin über jede hilfe glücklich

gretz

 

[Shakie]

Was meinst du damit "kann das auch die Textdatei"? Eine Textdatei kann grundsätzlich mal gar nichts und wird auch nie was selber tun können.