Funkcija Input

Opomba : V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne niz z znaki iz datoteke, ki je odprta v načinu za vnos ali dvojiškem načinu.

Sintaksa

Input( število, [# ] št. datoteke)

Sintaksa funkcije Input ima te argumente:

Argument

Opis

število

Obvezno. Poljuben, veljaven številski izraz, ki določa število vrnjenih znakov.

št. datoteke

Obvezno. Poljubna veljavna številka datoteke.


Opombe

Podatki, prebrani s funkcijo Input, se običajno zapišejo v datoteko z izjavo Print # ali Put. To funkcijo uporabite samo za datoteke, ki so odprte v načinu za vnos ali v dvojiškem načinu.

Za razliko od izjave Input #, funkcija Input vrne vse znake, ki jih prebere, vključno z vejicami, znaki za prelom vrstic, znaki za pomik v novo vrstico, narekovaji in začetnimi presledki.

V datotekah, odprtih za dvojiški dostop, poskus branja datoteke z uporabo funkcije Input, dokler funkcija EOF ne vrne vrednosti True, ustvari napako. Pri branju dvojiških datotek s funkcijo Input, namesto funkcije EOF, uporabite funkciji LOF in Loc, ali pa pri uporabi funkcije EOF uporabite izjavo Get.

Opomba :  Uporabite funkcijo InputB za bajtne podatke, ki jih vsebujejo besedilne datoteke. V funkciji InputB, argument število določa število bajtov, ki bodo vrnjeni, in ne števila znakov.

Primer

Opomba : V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru se funkcija Input uporablja za branje enega znaka iz datoteke in njegov izpis v neposrednem oknu. V tem primeru se predvideva, da je TESTFILE besedilna datoteka z nekaj vrsticami vzorčnih podatkov.

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.
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×