Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Daje ceo broj koji sadrži Bulovu vrednost "True " kada se dostigne kraj datoteke otvorene za nasumični ili sekvencijalni unos .
Sintaksa
EOF(broj datoteke)
Potrebni argument broja datotekeje ceo broj koji sadrži bilo koji važeći broj datoteke.
Napomene
Koristite EOF da biste izbegli grešku generisanu prilikom pokušaja dobijanja unosa posle kraja datoteke.
Funkcija EOF daje vrednost False dok se ne dostigne kraj datoteke. Sa datotekama otvorenim za nasumični ili binarni pristup, EOF daje False do poslednje izvršene naredbe Get ne može da pročita ceo zapis.
Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke korišćenjem funkcije Input dok EOF ne vrati vrednost "True " generiše grešku. Koristite funkcije LOF i Loc umesto EOF kada čitate binarne datoteke pomoću funkcije Input ili koristite Get kada koristite funkciju EOF . Kada se datoteke otvore za izlaz, EOF uvek daje vrednost "Tačno".
Primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju EOF za otkrivanje kraja datoteke. U ovom primeru se pretpostavlja da je to MYFILE tekstualna datoteka sa nekoliko redova 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