Funkcja EOF

Funkcja EOF zwraca wartość typu Integer zawierającą wartość Boolean True, jeżeli został osiągnięty koniec pliku otwartego w trybie Random lub Input.

Składnia funkcji EOF:

EOF(NrPliku)

Argument NrPliku jest wymaganym wyrażeniem typu Integer zawierającym poprawny numer otwartego pliku.

Należy używać funkcji EOF aby nie powodować błędów przy próbie dostępu do danych za końcem pliku.

Funkcja EOF zwraca False dopóki nie zostanie osiągnięty koniec pliku. Dla plików otwartych w trybie Random lub Binary, funkcja EOF zwraca False, dopóki wykonanie rozkazu Get będzie zdolne odczytać zawartość całego rekordu.

W plikach otwartych dla dostępu Binary, próba odczytu z pliku przy użyciu funkcji Input() gdy EOF zwraca True, spowoduje błąd.
Należy używać funkcji LOF() i Loc() zamiast funkcji EOF podczas odczytu plików binarnych przez Input() oraz używać rozkazu Get podczas używania funkcji EOF.
Dla plików otwartych jako Output funkcja EOF zawsze zwraca True.

Przykład użycia funkcji EOF:

Dim varInput As Variant
Open "FILE" For Input As #1  'otwórz plik
Do While Not EOF(1)  'sprawdzenie czy koniec pliku
Line Input #1, varInput  'czytaj linię danych
Loop
Close #1  'zamknij plik

(Zmienne, typy zmiennych, rozkazy Open, Close, Line Input # i Do While zostały opisane w innych częściach kursu.)

na górę strony...