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 egész számot ad vissza, amely az Igaz logikai változó értéket tartalmazza, ha egy véletlenszerű vagy sorozatos adatbevitelre megnyitott fájl végét elérte az alkalmazás.
Szintaxis
EOF( fájlszám )
A kötelezően megadandó fájlszámargumentum bármilyen érvényes fájlszámot tartalmazó egész számok.
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. A példa feltételezi, hogy a MYFILE egy néhány szövegsorból álló szöveges fájl.
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
