Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează Șir care conține caractere dintr-un fișier deschis în modul intrare sau binar .
Sintaxă
Input( număr, [# ] număr fișier)
Sintaxa funcției Input are următoarele argumente:
|
Argument |
Descriere |
|
număr |
Obligatoriu. Orice expresie numerică validă care specifică numărul de caractere de returnat. |
|
număr fișier |
Obligatoriu. Orice număr fișier valid . |
Observații
Datele citite cu funcția Input sunt scrise de obicei într-un fișier cu Imprimare # sau Put. Utilizați această funcție doar cu fișierele deschise în modul intrare sau binar .
Spre deosebire de instrucțiunea Input # , funcția Input returnează toate caracterele pe care le citește, inclusiv virgule, sfârșituri de linie, fluxuri de linie, ghilimele și spații inițiale.
Cu fișierele deschise pentru acces binar , o încercare de a citi fișierul utilizând funcția Input până când EOF returnează True generează o eroare. Utilizați funcțiile LOF și Loc în loc de EOF atunci când citiți fișiere binare cu Input sau utilizați Get atunci când utilizați funcția EOF .
Notă: Utilizați funcția InputB pentru datele byte conținute în fișierele text. Cu InputB, număr specifică numărul de byți de returnat în loc de numărul de caractere de returnat.
Exemplu
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția Input pentru a citi câte un caracter pe rând dintr-un fișier și a-l imprima în fereastra Instantanee . Acest exemplu presupune că TESTFILE este un fișier text cu câteva linii de date eșantion.
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.
