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.
