Funkcija EOF

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čno vrednost True, ko je dosežen konec datoteke, ki je bila odprta za naključni ali zaporedni vnos.

Sintaksa

EOF( številka datoteke )

Obvezen argument številka datoteke je celo število, ki vsebujejo poljubno veljavno številko 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
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×