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 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.
