Input-funktio

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa merkkijonon, joka sisältää merkkejä tiedostosta, joka on avattu Input- tai Binary-tilassa.

Syntaksi

Input ( luku, [# ] tiedostonumero)

Input-funktion syntaksilla on seuraavat argumentit:

Argumentti

Kuvaus

luku

Pakollinen. Mikä tahansa kelvollinen numeerinen lauseke, joka määrittää palautettavien merkkien määrän.

tiedostonumero

Pakollinen. Mikä tahansa kelvollinen tiedoston numero.


Huomautuksia

Input-funktion avulla luetut tiedot kirjoitetaan yleensä tiedostoon, jossa on Print # tai Put. Käytä tätä funktiota vain tiedostoissa, jotka on avattu Input- tai Binary-tilassa.

Toisin kuin Input # -lausunnossa, Input-funktio palauttaa kaikki lukemansa merkit, myös pilkut, rivinvaihdot, rivinsiirrot, lainausmerkit ja välilyönnit.

Kun tiedostot avataan Binary-tilassa, järjestelmä yrittää lukea tiedoston Input-funktion avulla, kunnes EOF-funktion palauttama Tosi aiheuttaa virheen. Käytä LOF- ja Loc-funktioita EOF-funktion sijasta, kun luet binaaritiedostoja Input-funktion kanssa, tai käytä Get-lauseketta, kun käytät EOF-funktiota.

Huomautus:  Käytä InputB-funktiota tekstitiedostojen sisältämille bittitiedoille. Kun käytät InputB-funktiota, luku määrittää palautettavien bittien määrän palautettavien merkkien määrän sijasta.

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä Input-funktion avulla luetaan yksi merkki kerrallaan tiedostosta ja tulostetaan se Välitön-ikkunaan. Tässä esimerkissä oletetaan, että TESTFILE on tekstitiedosto, jossa on muutama rivi mallitietoja.

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.
Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×