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    

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.