Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća ceo broj koji sadrži Bulov vrednost True kada se dostigne kraj datoteke otvorene za Nasumični ili sekvencijalni unos.
Sintaksa
EOF(broj datoteke )
Potrebni broj datotekeargument je ceo broj koji sadrži bilo koju važeću broj datoteke.
Napomene
Koristite EOF da biste izbegli grešku generisanu tako što ćete pokušati da umetnete nešto posle kraja datoteke.
Funkcija EOF vraća vrednost Netačno dok se ne dođe do kraja datoteke. Kada su datoteke otvorene za nasumični ili binarni pristup, EOF vraća vrednost " False " sve dok poslednji izvršeni izraz " Get " ne bude mogao da pročita ceo zapis.
Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke pomoću funkcije unosa dok EOF ne vrati vrednost True generiše grešku. Koristite funkcije LOF i Loc umesto EOF prilikom čitanja binarnih datoteka sa unosom ili koristite funkciju Get prilikom korišćenja funkcije EOF. Kada su datoteke otvorene za izlaz, EOF uvek vraća 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. Ovaj primer pretpostavlja MYFILE predstavlja tekstualnu datoteku 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
