Applies ToAccess pro Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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. Všechny platné Číselný výraz určující počet znaků, které se mají vrátit.

filenumber

Povinný argument. Všechny 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 . Tento příklad předpokládá, že TESTFILE je textový soubor s několika řádky ukázkových dat.

Dim MyCharOpen "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.LoopClose #1    ' Close file.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.