Funktsioon Input

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.
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×