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