Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Daje nisku koja sadrži znakove iz datoteke otvorene u ulaznom 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 treba da se dobiju. |
| broj datoteke | Obavezno. Bilo koji važeći broj datoteke. |
Napomene
Podaci koji se čitaju pomoću funkcije Input obično se upisuju u datoteku pomoću funkcija Print # ili Put. Koristite ovu funkciju samo sa datotekama otvorenim u ulaznom ili binarnom režimu.
Za razliku od instrukcije Input # , funkcija Input daje sve znakove koje čita, uključujući zareze, znakove za kraj reda, znakove za položaj u sledećem redu, znakove navoda i razmake na početku.
Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke korišćenjem funkcije Input dok EOF ne vrati vrednost "True " generiše grešku. Koristite funkcije LOF i Loc umesto EOF kada čitate binarne datoteke pomoću funkcije Input ili koristite Get kada koristite funkciju EOF .
Napomena
Koristite funkciju InputB za podatke u bajtovima koji se nalaze u tekstualnim datotekama. Kod funkcije InputB, argument broj određuje broj koji se vraća, a ne broj znakova koji se dobijaju.
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 Input za čitanje jednog po jednog znaka iz datoteke i štampanje u trenutnom prozoru. U ovom primeru se pretpostavlja da je to TESTFILE tekstualna datoteka sa nekoliko redova probnih 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.