Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy Igaz logikai értéket tartalmazó egész számot ad vissza, ha elérte a véletlenszerű vagy szekvenciális bemenetre megnyitott fájl végét.
Szintaxis
EOF(filenumber)
A szükséges filenumberargumentum egy érvényes fájlszámot tartalmazó egész szám.
Megjegyzések
Az EOF függvény használatával elkerülhető az a hiba, amely annak következtében lép fel, hogy a fájl végét követően kísérel meg adatot bevinni.
Az EOF függvény Hamis értéket ad vissza, amíg el nem érte a fájl végét. A véletlenszerű vagy bináris hozzáféréssel megnyitott fájlok esetén az EOF függvény Hamis értéket ad vissza, amíg az utoljára végrehajtott Get utasítás nem tud beolvasni egy teljes rekordot.
A bináris hozzáféréssel megnyitott fájlok esetén, ha az Input függvénnyel addig olvassa be a fájlt, amíg az EOF függvény Igaz értéket nem ad vissza, hibát kap. Ezért ha az Input függvénnyel olvas be bináris fájlokat, az EOF függvény helyett használja a LOF vagy a Loc függvényt, illetve az EOF függvény használata esetén használja a Get utasítást. Az Output hozzáféréssel megnyitott fájlok esetén az EOF mindig Igaz értéket ad vissza.
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa az EOF függvényt használja a fájl végének észleléséhez. Ez a példa azt feltételezi, hogy MYFILE ez egy szövegfájl néhány sornyi szöveggel.
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