Poznámka
Funkce, metoda, objekt nebo vlastnost popsané v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí řetězec obsahující znaky ze souboru otevřeného ve vstupním nebo binárním režimu.
Syntaxe
Vstup(číslo, [# ] číslo_souboru)
Syntaxe funkce INPUT obsahuje tyto argumenty:
| Argument | Popis |
|---|---|
| číslo | Povinný argument. Libovolný platný číselný výraz určující počet znaků, které mají být vráceny. |
| FileNumber | Povinný argument. Libovolné platné číslo souboru. |
Poznámky
Data čtená pomocí funkce Input se obvykle zapisují do souboru pomocí Print # nebo Put. Tuto funkci použijte 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ávratů na začátek řádku, odřádkování, uvozovek a mezer.
Když jsou soubory otevřené pro binární přístup, pokus o čtení souboru pomocí funkce Input , dokud EOF nevrátí hodnotu True , vygeneruje chybu. Při čtení binárních souborů se vstupem použijte místo hodnoty EOF funkce LOF a Loc nebo při použití funkce EOF použijte funkci Get.
Poznámka
Pro údaje o bajtech obsažené v textových souborech použijte funkci InputB . U InputBurčuje číslo počet bajtů, které se mají vrátit, místo počtu 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í jednotlivých znaků ze souboru a jejich tisku do okna Příkazy . V tomto příkladu se předpokládá, že TESTFILE jde 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.