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 izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí celé číslo obsahující logickou hodnotu True , pokud bylo dosaženo konce souboru otevřeného pro náhodný nebo sekvenční vstup .
Syntaxe
EOF(číslo_souboru)
Povinný argument číslo_souboruje celé číslo obsahující libovolné platné číslo souboru.
Poznámky
Pomocí tlačítka EOF se můžete vyhnout chybě generované při pokusu o získání vstupu za konec souboru.
Funkce EOF vrací hodnotu False , dokud není dosaženo konce souboru. Když jsou soubory otevřené pro náhodný nebo binární přístup, funkce EOF vrací hodnotu False , dokud poslední provedený příkaz Get nemůže přečíst celý záznam.
Když jsou soubory otevřené pro binární přístup, pokus o čtení souboru pomocí funkce Input , dokud EOF nevrátí hodnotu True , vygeneruje chybu. Při čtení binárních souborů se vstupem použijte místo hodnoty EOF funkce LOF a Loc nebo při použití funkce EOF použijte funkci Get. Když jsou soubory otevřené pro výstup, EOF vždy vrátí 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.
V tomto příkladu se funkce EOF používá k detekci konce souboru. V tomto příkladu se předpokládá, že MYFILE se jedná o 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