Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu je zakázaná, pokud je služba Microsoft Jet Expression Service spuštěná v režimu izolovaného prostoru (sandbox), což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru najdete v nápovědě k režimu izolovaného prostoru.

Vrátí celé číslo obsahující Logická hodnotapravda, pokud byl dosažen konec souboru otevřeného pomocí posloupnosti nebo náhodného vstupu.

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é tím, že se pokusíte dostat vstupní hodnoty až za konec souboru.

Funkce EOF vrátí hodnotu False až do dosažení konce souboru. U souborů otevřených pro náhodnýnebo binární přístup vrátí funkce EOF hodnotu False až do posledního spuštění příkazu Get, který nemůže přečíst celý záznam.

U souborů otevřených v binárním přístupu se pokus o přečtení souboru pomocí funkce Vstup, dokud funkce EOF nevrátí hodnotu Pravda, vygeneruje chybu. Při čtení binárních souborů pomocí funkce Inputpoužijte místo funkce EOF funkce LOF a Loc, nebo funkci Get použijte při použití funkce EOF. U souborů otevřených 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.

V tomto příkladu se funkce EOF používá ke zjištění konce souboru. V tomto příkladu se MYFILE , že 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

Potřebujete další pomoc?

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojit se k programu Microsoft Insider

Byly tyto informace užitečné?

Jak jste spokojeni s kvalitou překladu?

Co ovlivnilo váš názor?

Máte další zpětnou vazbu? (Nepovinné)

Děkujeme za váš názor!

×