Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service 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ă șirul care conține caractere dintr-un fișier deschis în modul de intrare sau binar .
Sintaxă
Input(număr, [# ]numărfiș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ărfișier | Obligatoriu. Orice număr de fișier valid. |
Observații
Datele citite cu funcția Input sunt de obicei scrise într-un fișier cu Print # sau Put. Utilizați această funcție doar cu fișiere deschise în modul de intrare sau binar .
Spre deosebire de instrucțiunea Input # , funcția Input returnează toate caracterele pe care le citește, inclusiv virgulele, sfârșiturile de linie, caracterele nouă și spațiile la început.
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 cuprinse în fișierele text. Cu InputB, număr specifică numărul de byți de returnat, nu 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 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.