Nota
La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce Stringa contenente i caratteri di un file aperto in modalità input o binario .
Sintassi
Input(num; [# ] numerofile)
Gli argomenti della sintassi della funzione Input sono i seguenti:
| Argomento | Descrizione |
|---|---|
| Numero | Obbligatorio. Qualsiasi espressione numerica valida che specifica il numero di caratteri da restituire. |
| numfile | Obbligatorio. Qualsiasi numero di file valido. |
Osservazioni
I dati letti con la funzione Input vengono in genere scritti in un file con Print # o Put. Usare questa funzione solo con i file aperti in modalità input o binario .
A differenza dell'istruzione Input # , la funzione Input restituisce tutti i caratteri letti, inclusi virgole, ritorni a capo, linefeed, virgolette e spazi iniziali.
Con i file aperti per l'accesso binario , un tentativo di leggere il file usando la funzione Input finché EOF non restituisce True genera un errore. Usare le funzioni LOF e Loc invece di EOF durante la lettura di file binari con Inputoppure get quando si usa la funzione EOF .
Nota
Usare la funzione InputB per i dati byte contenuti nei file di testo. Con InputB, num specifica il numero di byte da restituire anziché il numero di caratteri da restituire.
Esempio
Nota
Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione Input per leggere un carattere alla volta da un file e stamparlo nella finestra Immediata . Questo esempio presuppone che si tratti TESTFILE di un file di testo con alcune righe di dati di esempio.
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.