IBM Lotus Symphony
|
Bestimmt, ob der Dateizeiger das Ende einer Datei erreicht hat.
Eof (Integer-Ausdruck As Integer)
Bool
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.
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