Questo tutorial dimostrerà come leggere un file di testo in una stringa in VBA.
Possiamo leggere il file di testo riga per riga o come un intero file.
Leggi un intero file di testo in una stringa
Il testo in un file di testo è solitamente composto da più righe, separate da delimitatori. Possono essere una virgola (“,”), una virgola con uno spazio (“, “), un punto e virgola (“;”), un punto e virgola con uno spazio (“; “), uno spazio (“ “), una tabulazione (vbTab ) o in rari casi qualsiasi altro carattere come una tilde (~). Le righe sono normalmente separate da un'interruzione di riga (vbCRLF).
Il modo più semplice per leggere un intero file di testo in VBA consiste nell'eseguire il codice seguente che inserirà l'intero contenuto del file di testo in una variabile stringa. Questa procedura utilizza l'istruzione VBA Open e la funzione VBA FreeFile.
| 12345678910 | File di lettura secondario()Dim iTxtFile As IntegerDim strFile As StringDim strFileText As StringstrFile = "C:\Test\TestFile.txt"iTxtFile = FreeFileApri strFile per l'input come FreeFilestrFileText = Input(LOF(iTxtFile), iTxtFile)Chiudi iTxtFileFine sottotitolo |
Possiamo anche leggere un file di testo in VBA utilizzando FileSystemObject. Nel codice seguente abbiamo utilizzato l'associazione tardiva con l'oggetto File System.
| 1234567891011 | Sub ReadTextFile()Dim strText As StringDim FSO come oggettoDim TSO come oggettoImposta FSO = CreateObject("Scripting.FileSystemObject")Imposta TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllTSO.ChiudiImposta TSO = NienteImposta UST = NienteFine sottotitolo |
Possiamo anche utilizzare l'associazione anticipata nel codice e dichiarare l'oggetto File System creando un riferimento nel nostro progetto Excel all'oggetto File System.
| 1234567891011 | Sub ReadTextFile()Dim strText As StringDim FSO come New FileSystemObjectDim TSO come oggettoImposta FSO = CreateObject("Scripting.FileSystemObject")Imposta TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllTSO.ChiudiImposta TSO = NienteImposta UST = NienteFine sottotitolo |
