IBM Lotus Symphony


Eof-Funktion [Laufzeit]

Bestimmt, ob der Dateizeiger das Ende einer Datei erreicht hat.

Syntax:

Eof (Integer-Ausdruck As Integer)

Rückgabewert:

Bool

Parameter:

Integer-Ausdruck: Integer-Ausdruck, der in die Nummer einer geöffneten Datei ausgewertet wird.

Verwenden Sie EOF, um Fehler beim Versuch zu vermeiden, Eingaben hinter das Ende einer Datei einzufügen. Wenn Sie die Input- oder Get-Anweisung zum Lesen aus einer Datei verwenden, wird der Dateizeiger um die Anzahl der gelesenen Byte erweitert. Wenn das Dateiende erreicht wird, gibt EOF den Wert "True" (Wahr, -1) zurück.

Fehlercodes

5 Invalid procedure call

52 Bad file name or number

Beispiel:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Erste Textzeile"

Print #iNumber, "Weitere Textzeile"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken