Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća niz koji sadrži znakove iz datoteke otvorene u ulaznom ilibinarnom načinu .
Sintaksa
Input( broj, [# ] brojdatoteka)
Sintaksa funkcije Input sadrži ove argumente:
Argument |
Opis |
broj |
Obavezno. Sve valjane numerički izraz koji određuju broj znakova koji će se vratiti. |
brojdatoteka |
Obavezno. Sve valjane broj datoteke. |
Napomene
Podaci koji se čitaju pomoću funkcije Input obično se zapisuju u datoteku s ispisom # ili put. Koristite ovu funkciju samo s datotekama koje su otvorene u ulaznom ilibinarnom načinu rada.
Za razliku od naredbe Ulazno # , funkcija Input vraća sve znakove koje čita, uključujući zareze, povrate redaka, sažetke sadržaja redaka, navodnike i početne razmake.
Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke pomoću funkcije Input dok EOF ne vrati True generira pogrešku. Koristite funkcije LOF i Loc umjesto EOF prilikom čitanja binarnih datoteka s ulazom ili koristiteGet kada koristite funkciju EOF .
Napomena: Funkciju InputB koristite za bajtne podatke u tekstnim datotekama. Uz InputBbroj određuje broj bajtova koji će se vratiti, a ne broj znakova koji će se vratiti.
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru funkcija Input koristi za čitanje jednog po jednog znaka iz datoteke i ispis u neposredni prozor. U ovom se primjeru TESTFILE je tekstna datoteka s nekoliko redaka oglednih 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.