Befehlsreferenz - Dateisystem: EOF-Funktion

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Die EOF-Funktion gibt einen boolschen Wert zurück, der angibt ob das Ende einer Datei erreicht wurde. EOF spricht sich End Of File.

Syntax:

EOF (Dateinummer)

Parameter:

Dateinummer

(Integer) Eine beliebige gültige Dateinummer.

Die EOF-Funktion gibt True zurück, sobald das Ende einer Datei erreicht wird.
Für Dateien, die im Zugriffsmodus Random oder Binary geöffnet wurden, gibt die EOF-Funktion True zurück, sobald mit der Get-Funktion kein ganzer Datensatz mehr gelesen werden kann.

Beispiel:

Dim TextLine As String, ff As Integer
ff = FreeFile ' Nächste verfügbare Dateinummer
Open "test.txt" For Input As #ff ' Testdatei öffnen
Do While Not EOF(ff) ' Solange das Dateiende nicht erreicht ist
   Line Input #ff, TextLine ' nächste Zeile der Datei in TextLine speichern
   Msgbox InputData
Loop
Close #ff ' Datei schließen

Siehe auch:

FileLen-Funktion