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