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 valido che specifica il numero di caratteri da restituire. |
|
numfile |
Obbligatorio. Qualsiasi numero di file valido. |
Note
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 . L'esempio presuppone che TESTFILE sia un file di testo contenente alcune righe di dati di esempio.
Dim MyCharOpen "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.LoopClose #1 ' Close file.
