Funkce EOF

Poznámka: Snažíme se pro vás co nejrychleji zajistit aktuální obsah nápovědy ve vašem jazyce. Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát ve spodní části této stránky vědět, jestli vám informace v článku pomohly? Pokud byste se rádi podívali na jeho anglickou verzi, najdete ji tady.

Poznámka: Funkce, metody, objektu nebo vlastnosti popsaných v tomto tématu je vypnutá, když běží služba Microsoft Jet výraz v režimu izolovaného prostoru, který brání hodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledejte v nápovědě "režim izolovaného prostoru".

Vrátí hodnotu typu Integer obsahující Logická hodnota hodnotu True při konec soubor otevřen pro náhodná nebo dosáhla sekvenční vstupní .

Syntaxe

EOF ( číslo_souboru )

Povinný číslo_souboruArgument je celé číslo obsahující libovolný platný Číslo souboru.

Poznámky

Chcete-li předejít chybě generované pokoušející se zobrazí při zadávání za koncem souboru pomocí EOF .

Funkce EOF vrátí hodnotu False , dokud dosáhl konci souboru. U souborů otevřených přístup pomocí protokolu náhodná nebo binárníEOF vrátí hodnotu False , dokud poslední příkaz získat nedokáže číst celý záznam.

Pokus o čtení souboru pomocí funkceEOF vrátí hodnotu True , dokud u souborů otevřených binární přístup pomocí protokolu, dojde k chybě. Funkce LOF a Loc místo EOF při čtení binární soubory s vstupnínebo Při použití funkce EOF . U souborů otevřených jako výstupníhoEOF 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.

Tento příklad používá funkci EOF zjišťování konci souboru. V tomto příkladu předpokládá, že tento MYFILE je textový soubor s několik řádků 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
Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×