EOF-Funktion

Access für Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger

Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".

Gibt eine ganze Zahl zurück, die den booleschen Wert True enthält, wenn das Ende einer Datei erreicht wurde, die für die zufällige oder sequentielle Eingabe geöffnet wurde.

Syntax

EOF( Dateinummer )

Das erforderliche filenumber- Argument ist eine Ganzzahl , die eine beliebige gültige Dateinummer enthält.

Bemerkungen

Verwenden Sie EOF , um den Fehler zu vermeiden, der durch den Versuch entsteht, Eingaben über das Ende einer Datei hinaus abzurufen.

Die EOF -Funktion gibt False zurück, bis das Ende der Datei erreicht ist. Bei Dateien, die für wahlfreien oder binären Zugriff geöffnet sind, gibt EOF False zurück, bis die zuletzt ausgeführte Get -Anweisung keinen vollständigen Datensatz lesen kann.

Bei Dateien, die für den binären Zugriff geöffnet sind, erzeugt ein Versuch, die Datei mit der Input -Funktion zu lesen, bis EOF True zurückgibt, einen Fehler. Verwenden Sie die LOF- und Loc -Funktionen anstelle von EOF , wenn Sie Binärdateien mit Input lesen, oder verwenden Sie Get , wenn Sie die EOF- Funktion verwenden. Bei für die Ausgabe geöffneten Dateien gibt EOF immer True zurück.

Beispiel

Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

Dieses Beispiel verwendet die EOF -Funktion, um das Ende einer Datei zu erkennen. Dieses Beispiel geht davon aus, dass MYFILE eine Textdatei mit einigen Textzeilen ist.

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