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( szám, [# ] fájlszám)
Az Input függvényszintaxis az alábbi argumentumokból áll:
Argumentum |
Leírás |
szám |
Kötelező. Bármely érvényes numerikus kifejezés, amely megadja az értékül adandó karakterek számát. |
fájlszám |
Kötelező. 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 függvénynél a szám az eredményül adandó bájtok, és nem az eredményül adandó karakterek számát adja meg.
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. A példa feltételezi, hogy a TESTFILE egy néhány mintaadat alkotta sorból álló fájl.
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.