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 koji važeći numerički izraz koji 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 da je to TESTFILE tekstualna datoteka sa nekoliko redova uzoraka podataka.
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.