<< Click to Display Table of Contents >> EOF (Funktion)

EOF(Dateinummer)

Liefert True, wenn das Dateiende ("End Of File") erreicht wurde.

Dateinummer ist die in der Open-Anweisung vergebene Nummer der betreffenden Datei.

Siehe auch: Open

Beispiel:

' Jeweils 10 Zeichen aus einer Datei lesen und anzeigen.

' "Testfile" muss bereits existieren.

Sub Main

 Open "TESTFILE" For Input As #1   ' Datei öffnen

 Do While Not EOF(1)               ' Wiederhole bis Dateiende

         MyStr = Input(10, #1)          ' 10 Zeichen lesen

         MsgBox MyStr

 Loop

 Close #1                          ' Datei schließen

End Sub