Funkcija Input

Velja za
Access za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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, [# ] številka datoteke)

Sintaksa funkcije Input ima te argumente:

Argument Opis
Številka Obvezen. Poljuben veljaven številski izraz, ki določa število vrnjenih znakov.
št. datoteke Obvezen. 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. Pri argumentu InputBargument število določa število bajtov, ki bodo vrnjeni, in ne števila znakov, ki naj jih funkcija vrne.

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 je predvideno, TESTFILE da je to 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.