Applies ToAccess za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 MyCharOpen "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.LoopClose #1    ' Close file.

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.