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
