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