Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne celo število, ki vsebuje Logičen vrednost True , ko je dosežen konec datoteke, odprte za naključniali zaporedni vnos.
Sintaksa
EOF( številka datoteke )
Zahtevano število datotek jeargument celo število , ki vsebuje katero koli veljavno številka datoteke.
Opombe
Uporabite funkcijo EOF, da preprečite napako, ustvarjeno pri poskusu vnosa mimo konca datoteke.
Funkcija EOF vrača vrednost False, dokler ni dosežen konec datoteke. Z datotekami, odprtimi za naključni ali dvojiški dostop, funkcija EOF vrača vrednost False, dokler zadnja izvedena izjava Get ne more prebrati celotnega zapisa.
Z datotekami, odprtimi za dvojiški dostop, poskus branja datoteke z uporabo funkcije Input, dokler funkcija EOF ne vrne vrednosti True, ustvari napako. Pri branju dvojiških datotek s funkcijo Input, namesto funkcije EOF, uporabite funkciji LOF in Loc, ali pa pri uporabi funkcije EOF uporabite izjavo Get. Z datotekami, odprtimi za Output, funkcija EOF vedno vrne True.
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je funkcija EOF uporabljena za zaznavanje konca datoteke. V tem primeru se predvideva, da je MYFILE besedilna datoteka z nekaj vrsticami besedila.
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