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 kehtiv arvuline avaldis, mis määrab tagastatavate märkide arvu. |
| filenumber | Nõutav. Mis tahes kehtiv 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 arv tagastatavate baitide arvu, mitte tagastatavate mä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 tegemist on mõne rea näidisandmetega tekstifailiga.
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.