Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí celé číslo obsahující hodnotu Logická hodnotaTrue , pokud bylo dosaženo konce souboru otevřeného pro náhodný nebo sekvenční vstup .
Syntaxe
EOF( číslo souboru )
Požadované číslo souboruArgument je celé číslo obsahující všechny platné Číslo souboru.
Poznámky
Pomocí funkce EOF se vyhnete chybě vygenerované pokusem o získání vstupu za konec souboru.
Funkce EOF vrací hodnotu False , dokud nebude dosaženo konce souboru. U souborů otevřených pro náhodný nebo binární přístup vrátí funkce EOFhodnotu False , dokud poslední spuštěný příkaz Get nemůže přečíst celý záznam.
Při otevření souborů pro binární přístup se při pokusu o čtení souboru pomocí funkce Input , dokud funkce EOF nevrátí hodnotu True , vygeneruje chybu. Při čtení binárních souborů se vstupem použijte funkce LOF a Loc místo funkce EOF. Při použití funkce EOF použijte funkci Get. Při otevření souborů pro výstup vrátí funkce EOF vždy hodnotu True.
Příklad
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci EOF ke zjištění konce souboru. Tento příklad předpokládá, že MYFILE je textový soubor s několika řádky textu.
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