Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća cijeli broj koji sadrži Booleovu vrijednost True kada se dosegne kraj datoteke otvorene za nasumični ili uzastopni unos .
Sintaksa
EOF(broj datoteke)
Obavezni argument broj datotekecijeli je broj koji sadrži bilo koji valjani broj datoteke.
Napomene
Koristite EOF da biste izbjegli pogrešku koja generira pokušaj dohvaćanja unosa nakon kraja datoteke.
Funkcija EOF vraća vrijednost False dok se ne dosegne kraj datoteke. Kada su datoteke otvorene za nasumični ili binarni pristup, EOF vraća False sve dok zadnja izvedena naredba Get ne može pročitati cijeli zapis.
S datotekama otvorenim za binarni pristup, pokušaj čitanja datoteke pomoću funkcije Input dok EOF ne vrati True generira pogrešku. Koristite funkcije LOF i Loc umjesto EOF kada čitate binarne datoteke s funkcijom Inputili Get kada koristite funkciju EOF . Kad su datoteke otvorene za izlaz, EOF uvijek vraća vrijednost True.
Primjer
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru pomoću funkcije EOF otkriva kraj datoteke. U ovom se primjeru pretpostavlja da je riječ MYFILE o tekstnoj datoteci s nekoliko redaka teksta.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1