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 sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí řetězec obsahující znaky ze souboru otevřeného ve vstupním nebo binárním režimu.
Syntaxe
Input(number; [# ] filenumber)
Syntaxe vstupní funkce má tyto argumenty:
| Argument | Popis |
|---|---|
| Číslo | Povinný argument. Libovolný platný číselný výraz určující počet znaků, které se mají vrátit. |
| filenumber | Povinný argument. Libovolné platné číslo souboru. |
Poznámky
Data přečtená pomocí funkce Input se obvykle zapisuje do souboru pomocí příkazu Print # nebo Put. Tuto funkci použijte pouze 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é přečte, včetně čárek, návratů na začátek řádku, uvozovek a úvodních mezer.
Při otevření souborů pro binární přístup se při pokusu o čtení souboru pomocí funkce Input , dokud funkce EOF nevrátí hodnotu True , vygeneruje chybu. Při čtení binárních souborů se vstupem použijte funkce LOF a Loc místo funkce EOF. Při použití funkce EOF použijte funkci Get.
Poznámka
Funkci InputB použijte pro bajtová data obsažená v textových souborech. U inputBurčuje číslo počet bajtů, které se mají vrátit, a ne 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.
Tento příklad používá funkci Input ke čtení jednoho znaku ze souboru a jeho tisku do okna Immediate . 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.