Freigeben über


EOF-Funktion

Gibt einen Integer-Wert mit dem Boolean-Wert True zurück, wenn das Ende einer für wahlfreie oder sequenzielle Eingabe geöffneten Datei erreicht wird.

Syntax

EOF(filenumber)

Das erforderliche Filenumber-Argument ist eine ganze Zahl, die eine beliebige gültige Dateinummer enthält.

Hinweise

Verwenden Sie EOF, um den Fehler zu vermeiden, der beim Versucht einer Eingabe über das Dateiende hinaus ausgegeben wird.

Die EOF-Funktion gibt False zurück, bis das Ende der Datei erreicht ist. Wenn Dateien für zufälligen oder binären Zugriff geöffnet werden, gibt EOFFalse zurück, bis die zuletzt ausgeführte Get-Anweisung keinen gesamten Datensatz lesen kann.

Wenn Dateien für den Binärzugriff geöffnet wurden, generiert ein Versuch, die Datei mithilfe der Eingabefunktion zu lesen, bis EOFTrue zurückgibt, einen Fehler. Verwenden Sie die Funktionen LOF und Loc anstelle von EOF beim Lesen von Binärdateien mit Input, oder verwenden Sie Get , wenn Sie die EOF-Funktion verwenden. Bei Dateien, die für Output geöffnet sind, gibt EOF immer True zurück.

Beispiel

In diesem Beispiel wird mit der EOF -Funktion das Ende einer Datei erkannt. Im Beispiel wird angenommen, dass MYFILE eine Textdatei mit einigen Zeilen Text ist.

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.