Funkce Input

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í řetězec obsahující znaky ze souboru otevřeného ve vstupním nebo binárním režimu.

Syntaxe

Input( číslo, [# ] filenumber)

Syntaxe funkce Vstup obsahuje následující argumenty:

Argument

Popis

Číslo:

Povinný argument. Všechny platné Číselný výraz zadání počtu znaků, které se má vrátit.

filenumber

Povinný argument. Všechny platné Číslo souboru.


Poznámky

Data čtená pomocí funkce Vstup se obvykle zapisou do souboru, ve které jsou možnosti Tisk # nebo Put. Tuto funkci používejte jenom u souborů otevřených ve vstupním nebo binárním režimu.

Na rozdíl od příkazu Input # vrátí funkce Input všechny znaky, které čte, včetně čárek, návratu na řádek, linefeeds, uvozovek a úvodních mezer.

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.

Poznámka:  Funkci InputB použijte pro data o bytech obsažená v textových souborech. U argumentu InputBurčuje číslo počet bajtů, které se mají vrátit, a nikoli počet znaků, které se mají vrátit.

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 Input používá ke čtení jednoho znaku ze souboru a k tisku do okamžitého okna. V tomto příkladu se TESTFILE , že se jedná o textový soubor s několika řádky ukázkových dat.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.

Potřebujete další pomoc?

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! Pravděpodobně bude užitečné, když vás spojíme s některým z našich agentů podpory Office.

×