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

Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.

Vraća nisku koja sadrži znakove iz datoteke koja je otvorena u režimu unosa ili binarnom režimu .

Sintaksa

Input( broj, [# ] broj datoteke)

Sintaksa funkcije Input ima sledeće argumente:

Argument

Opis

broj

Obavezno. Bilo koja važeća brojni izraz koja navodi broj znakova koji će biti vraćeni.

broj datoteke

Obavezno. Bilo koji važeći broj datoteke.

Napomene

Podaci koji se čitaju pomoću funkcije "Unos " obično su napisani u datoteci pomoću stavki Štampanje # ili Put. Koristite ovu funkciju samo sa datotekama otvorenim u režimu unosaili binarnom režimu.

Za razliku od instrukcije Input # , funkcija Input vraća sve znakove koje čita, uključujući zareze, znakove za povratak na početak reda, znakove za navode i razmake na početku.

Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke pomoću funkcije unosa dok EOF ne vrati vrednost True generiše grešku. Koristite funkcije LOF i Loc umesto EOF prilikom čitanja binarnih datoteka sa unosom ili koristite funkciju Get prilikom korišćenja funkcije EOF.

Napomena:  Koristite funkciju InputB za bajt podatke sadržane u tekstualnim datotekama. Pomoću funkcije InputB, broj navodi broj bajtova koji će se vratiti, a ne broj znakova koji će biti vraćeni.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Ovaj primer koristi funkciju unosa da bi čitao jedan po jedan znak iz datoteke i štampao ga u prozoru "Neposredno ". Ovaj primer pretpostavlja TESTFILE je tekstualna datoteka sa nekoliko redova uzoraka podataka.

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.

Da li vam je potrebna dodatna pomoć?

Želite još opcija?

Istražite pogodnosti pretplate, pregledajte kurseve za obuku, saznajte kako da obezbedite uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na pitanja, dajete povratne informacije i čujete mišljenje od stručnjaka sa bogatim znanjem.