Applies ToMicrosoft 365 rakendus Access Access 2024 Access 2021 Access 2019 Access 2016

Märkus.: Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastab stringi, mis sisaldab sisestus- või kahendrežiimis avatud faili tärke.

Süntaks

Input( number, [# ] filenumber)

Funktsiooni Input süntaksil on järgmised argumendid.

Argument

Kirjeldus

number

Nõutav. Mis tahes sobiv arvuline avaldis, mis määrab tagastatavate tärkide arvu.

filenumber

Nõutav. Mis tahes sobiv failinumber.

Kommentaarid

Andmed, mida loeb funktsioon Input, kirjutatakse tavaliselt faili lausega Print # või Put. Kasutage seda funktsiooni ainult sisestus- või kahendrežiimis avatud failide korral.

Erinevalt lausest Input # tagastab funktsioon Input kõik loetud tärgid (sh komad, tagasijooksud, reavahetused, jutumärgid ja algustühikud).

Kahendrežiimis avatud failide korral genereerib katse lugeda faili funktsiooni Input abil seni, kuni EOF tagastab väärtuse True, tõrke. Kasutage funktsiooniga Input kahendfailide lugemisel funktsiooni EOF asemel funktsioone LOF ja Loc või funktsiooni EOF kasutamise korral lauset Get.

Märkus.:  Tekstifailides sisalduvate baitandmete korral kasutage funktsiooni InputB. Funktsiooni InputB korral määrab argument number tagastatavate baitide arvu, mitte tagastatavate tärkide arvu.

Näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni Input selleks, et lugeda failist ükshaaval tärgid ja printida need vahetusse aknasse. Selles näites eeldatakse, et TESTFILE on mõne rea näidisandmetega tekstifail.

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.

Kas vajate veel abi?

Kas soovite rohkem valikuvariante?

Siin saate tutvuda tellimusega kaasnevate eelistega, sirvida koolituskursusi, õppida seadet kaitsma ja teha veel palju muud.

Kogukonnad aitavad teil küsimusi esitada ja neile vastuseid saada, anda tagasisidet ja saada nõu rikkalike teadmistega asjatundjatelt.