Applies ToAccess for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa kokonaisluvun, joka sisältää totuusarvoarvon Tosi, kun tiedoston loppu avataan Random-tilassa tai peräkkäinen Input-tila on saavutettu.

Syntaksi

EOF( filenumber )

Pakollinen filenumberargumentti on kokonaisluku, joka sisältää minkä tahansa kelvollisen tiedoston numeron.

Huomautuksia

Voit EOF-funktion avulla välttää virheen, joka luodaan, kun yrität saada syötteen ylittämään tiedoston lopun.

EOF-funktio palauttaa Epätosi, kunnes tiedoston loppu on saavutettu. Kun tiedostot avataan Random- tai Binary-tilassa, EOF palauttaa Epätosi, kunnes viimeksi suoritettu Get-lauseke ei pysty lukemaan koko tietuetta.

Kun tiedostot avataan Binary-tilassa, järjestelmä yrittää lukea tiedoston Input-funktion avulla, kunnes EOF-funktion palauttama Tosi aiheuttaa virheen. Käytä LOF- ja Loc-funktioita EOF-funktion sijasta, kun luet binaaritiedostoja Input-funktion kanssa, tai käytä Get-lauseketta, kun käytät EOF-funktiota. Kun tiedostot avataan Output-tilassa, EOF-funktio palauttaa aina Tosi.

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä käytetään EOF-funktiota havaitsemaan tiedoston loppu. Tässä esimerkissä oletetaan, että MYFILE on tekstitiedosto, jossa on muutama tekstirivi.

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    

Tarvitsetko lisäohjeita?

Haluatko lisää vaihtoehtoja?

Tutustu tilausetuihin, selaa harjoituskursseja, opi suojaamaan laitteesi ja paljon muuta.

Osallistumalla yhteisöihin voit kysyä kysymyksiä ja vastata niihin, antaa palautetta sekä kuulla lisää asiantuntijoilta, joilla on runsaasti tietoa.