EOF-Funktion

FileNumber

Erforderlich. Ein Integer-Wert mit einer beliebigen gültigen Dateinummer.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Mit EOF vermeiden Sie den Fehler, der ausgelöst wird, wenn Sie versuchen, die Eingabe über das Dateiende hinaus fortzusetzen.

Die EOF-Funktion gibt so lange False zurück, bis das Ende der Datei erreicht ist. Bei Dateien, die im Random-Zugriffsmodus oder im Binary-Zugriffsmodus geöffnet wurden, gibt EOF so lange False zurück, bis die zuletzt ausgeführte FileGet-Funktion keinen ganzen Datensatz mehr lesen kann.

Bei Dateien, die im Zugriffsmodus Binary geöffnet wurden, führt der Versuch, sie so lange mithilfe der Input-Funktion zu lesen, bis die EOF-Funktion True zurückgibt, zu einem Fehler. Verwenden Sie statt der EOF-Funktion die LOF-Funktion und die Loc-Funktion, wenn Sie mit Input binäre Dateien lesen, oder verwenden Sie die EOF-Funktion mit Get. Bei Dateien, die für Output geöffnet wurden, gibt EOF immer True zurück.

In diesem Beispiel wird die EOF-Funktion verwendet, um das Ende einer Datei zu erkennen. In diesem Beispiel ist Testfile eine Textdatei mit einigen Textzeilen.

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)

Diese Funktion wird nicht unterstützt.

Namespace:Microsoft.VisualBasic

Modul:FileSystem

Assembly:Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Referenz