Zobrazit vše

Skrýt vše

Vrátí hodnotu Integer (Typ dat Integer: Základní typ dat zahrnující celá čísla. Proměnná Integer je uložena jako 16bitové (2bajtové) číslo s hodnotou v rozsahu od -32,768 do 32,767.) obsahující logickou (Logická hodnota: Výraz, který lze vyhodnotit jako pravda (není nula) nebo nepravda (0). Pomocí klíčových slov True a False můžete zadat hodnoty -1 a 0. Typ dat pole Ano/Ne je typu Logická hodnota a obsahuje hodnotu -1 pro hodnotu Ano.) hodnotu True při dosažení konce souboru, otevřeného pro náhodný přístup nebo sekvenční funkci Input.

Syntaxe

EOF(číslo_souboru)

Povinný argument (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.) číslo_souboru je celé číslo obsahující libovolné platné číslo souboru (Číslo souboru: Číslo použité v příkazu Open při otevírání souboru. U souborů, které nejsou přístupné z jiných aplikací, používejte čísla v rozsahu 1–255 včetně. U souborů dostupných z jiných aplikací používejte čísla v rozsahu 256–511.).

Poznámky

Pomocí funkce EOF lze zabránit chybě, ke které dochází při pokusu o získání vstupu za koncem souboru.

Dokud není dosaženo konce souboru, vrací funkce EOF hodnotu False. Jsou-li soubory otevřeny pro náhodný nebo binární přístup, bude funkce EOF vracet hodnotu False do doby, než nebude pomocí posledního spuštěného příkazu Get možné načíst celý záznam.

Jsou-li soubory otevřeny pro binární přístup a dojde k pokusu o čtení souboru pomocí funkce Input dříve, než funkce EOF vrátí hodnotu True, je generována chyba. Při čtení binárních souborů pomocí funkce Input použijte místo funkce EOF funkce LOF a Loc nebo použijte s funkcí EOF příkaz Get. Jsou-li soubory otevřeny pro funkci Output, funkce EOF vrátí vždy hodnotu True.

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu je funkce EOF použita 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