Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća cijeli broj koji sadrži vrijednost booleovskiTrue kada je dosegnut kraj datoteke otvorene za slučajni ili uzastopni unos.
Sintaksa
EOF( brojdatoteka )
Potrebni brojdatotekaargumentcijeli broj koji sadrži sve valjane broj datoteke.
Napomene
Koristite EOF da biste izbjegli pogrešku generiranu pokušajem unosa nakon završetka datoteke.
Funkcija EOF vraća False dok se ne dosegne kraj datoteke. Kada su datoteke otvorene za slučajni ili binarni pristup, EOF vraća False dok zadnja izvršena naredba Get ne bude mogla pročitati cijeli zapis.
Kada su datoteke otvorene 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 prilikom čitanja binarnih datoteka s ulazom ili koristiteGet kada koristite funkciju EOF . Kada su datoteke otvorene za izlaz, EOF uvijek vraća 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 koristi funkcija EOF da bi se otkrio kraj datoteke. U ovom se primjeru pretpostavlja MYFILE je tekstna datoteka 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
