Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. További információt a védőfalas üzemmódról a „korlátozott engedélyek” kifejezésre keresve talál a súgóban.
Olyan karakterláncot ad eredményül, amely beviteli vagy bináris üzemmódban megnyitott fájlban szereplő karaktereket tartalmaz.
Szintaxis
Input(number; [# ] filenumber)
Az Input függvényszintaxis az alábbi argumentumokból áll:
| Argumentum | Leírás: |
|---|---|
| Szám | Kötelező megadni. Bármely érvényes numerikus kifejezés, amely a visszaadandó karakterek számát adja meg. |
| fájlszám | Kötelező megadni. Bármely érvényes fájlszám. |
Megjegyzések
Az Input függvénnyel beolvasott adatok általában a Print # vagy a Put utasítással írhatók fájlba. A függvényt csak bevitelre vagy bináris módban megnyitott fájlhoz használja.
Az Input # utasítással ellentétben az Input függvény minden beolvasott karaktert eredményül ad, beleértve a vesszőket, a kocsivissza és a soremelés karaktereket, az idézőjeleket és a kezdő szóközöket is.
A bináris hozzáféréshez megnyitott fájlok esetén, ha az Input függvénnyel addig olvassa be a fájlt, amíg az EOF függvény Igaz értéket ad, hibát kap. Ezért ha az Input függvénnyel olvas be bináris fájlokat, az EOF függvény helyett használja a LOF vagy a Loc függvényt, vagy a Get függvénnyel használja az EOF függvényt.
Megjegyzés
A szöveges fájlokban tárolt bájtadatokhoz használja az InputB függvényt. Az InputB esetében a szám a visszaadni kívánt bájtok számát adja meg a visszaadandó karakterek száma helyett.
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ebben a példában az Input függvény egyesével beolvassa a karaktereket egy fájlból, és kiírja őket az Immediate ablakra. Ez a példa azt feltételezi, hogy TESTFILE ez egy szövegfájl néhány sornyi mintaadattal.
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.