Funktsioon EOF

Märkus. : Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastab täisarvu kahendväärtuse True, kui jõutakse otsepöördusega või jadapöördusega Input-funktsiooniga avatud faili lõppu.

Süntaks

EOF( )

Nõutav on täisarv, milles on parameetri failinumber sobiv väärtus.

Kommentaarid

Funktsiooni EOF abil saab vältida tõrkeid, mis tekivad siis, kui faili üritatakse sisse lugeda selle lõpust edasi.

Funktsioon EOF tagastab väära väärtuse, kuni jõuab faili lõppu. Kui fail on avatud juhusliku juurdepääsuga või kahendkoodis, tagastab EOF väära väärtuse, kui viimane käitatav Get-lause ei saa kogu kirjet lugeda.

Kahendkoodis avatud failide korral Input-funktsiooni abil faili lugemine tekitab tõrke, kuni EOF tagastab tõese väärtuse. Kasutage Input-funktsiooniga kahendfailide lugemisel funktsiooni EOF asemel funktsioone LOF ja Loc või funktsiooni EOF kasutamise korral funktsiooni Get. Output-funktsiooniga avatud failide korral tagastab EOF alati tõese väärtuse.

Näide

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Järgmises näites kasutatakse funktsiooni EOF faili lõpu tuvastamiseks. Selles näites eeldatakse, et MYFILE on paari tekstireaga tekstifail.

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
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×