EOF-Funktion
Aktualisiert: November 2007
Gibt den booleschen Wert True zurück, wenn das Ende einer Datei erreicht ist, die im Zugriffsmodus Random oder Input für sequenzielle Eingaben geöffnet wurde.
Public Function EOF(ByVal FileNumber As Integer) As Boolean
Parameter
- FileNumber
Erforderlich. Ein Integer-Wert mit einer beliebigen gültigen Dateinummer.
Ausnahmen
Ausnahmetyp |
Fehlernummer |
Bedingung |
---|---|---|
FileNumber ist nicht vorhanden. |
||
Dateimodus ist ungültig. |
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.
Hinweise
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.
Beispiel
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)
Hinweise für Entwickler intelligenter Geräte
Diese Funktion wird nicht unterstützt.
Anforderungen
Namespace:Microsoft.VisualBasic
**Modul:**FileSystem
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)