Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća niz koji sadrži znakove iz datoteke otvorene u načinu unosa ili binarnom načinu.
Sintaksa
Input(broj, [# ] broj datoteke)
Sintaksa funkcije Input sadrži ove argumente:
| Argument | Opis |
|---|---|
| broj | Obavezno. Bilo koji valjani brojčani izraz koji određuje broj znakova za vraćanje. |
| broj datoteke | Obavezno. Bilo koji valjani broj datoteke. |
Napomene
Podaci pročitani pomoću funkcije Input obično se zapisuju u datoteku pomoću naredbe Ispiši # ili Put. Tu funkciju koristite samo s datotekama otvorenim u načinu unosa ili binarnom načinu.
Za razliku od naredbe Input # , funkcija Input vraća sve znakove koje čita, uključujući zareze, znakove za novi redak, znakove redaka, navodnike i početne razmake.
S datotekama otvorenim 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 kada čitate binarne datoteke s funkcijom Inputili Get kada koristite funkciju EOF .
Napomena
Funkciju InputB koristite za bajtovne podatke u tekstnim datotekama. Uz InputBbroj određuje broj bajtova koji se vraćaju, a ne broj znakova koji će biti vraćen.
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 primjeru se pomoću funkcije Input iz datoteke čita jedan po jedan znak i ispisuje u izvršni prozor. U ovom se primjeru pretpostavlja da je riječ TESTFILE o tekstnoj datoteci 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.