Deze zelfstudie laat zien hoe u een tekstbestand in een tekenreeks in VBA kunt lezen.
We kunnen het tekstbestand regel voor regel of als een heel bestand lezen.
Een heel tekstbestand in een string lezen
Tekst in een tekstbestand bestaat meestal uit meerdere regels, gescheiden door scheidingstekens. Dit kunnen een komma (“,”), een komma met een spatie (“, “), een puntkomma (“;”), een puntkomma met een spatie (“; “), een spatie (“ “), een tab (vbTab ) of in zeldzame gevallen een ander teken zoals een tilde (~). De regels worden normaal gescheiden door een regeleinde (vbCRLF).
De eenvoudigste manier om een volledig tekstbestand in VBA te lezen, is door de volgende code uit te voeren die de volledige inhoud van het tekstbestand in een tekenreeksvariabele plaatst. Deze procedure maakt gebruik van de VBA Open-instructie en de VBA FreeFile-functie.
| 12345678910 | Sub ReadFile()Dim iTxtFile als geheel getalDim strFile As StringDim strFileText As StringstrFile = "C:\Test\TestFile.txt"iTxtFile = FreeFileOpen strFile voor invoer als gratis bestandstrFileText = Input(LOF(iTxtFile), iTxtFile)Sluit iTxtFileEinde sub |
We kunnen ook een tekstbestand in VBA lezen met behulp van het FileSystemObject. In de onderstaande code hebben we late binding gebruikt met het File System Object.
| 1234567891011 | Sub ReadTextFile()Dim strTekst als tekenreeksDim FSO als objectTSO dimmen als objectStel FSO = CreateObject ("Scripting.FileSystemObject") inStel TSO = FSO.OpenTextFile ("C:\Test\TestFile.txt") instrText = TSO.ReadAllTSO.SluitenTSO instellen = nietsStel FSO = Niets inEinde sub |
We kunnen ook vroege binding in de code gebruiken en het bestandssysteemobject declareren door in ons Excel-project een verwijzing naar het bestandssysteemobject te maken.
| 1234567891011 | Sub ReadTextFile()Dim strTekst als tekenreeksDim FSO als nieuw bestandssysteemobjectTSO dimmen als objectStel FSO = CreateObject ("Scripting.FileSystemObject") inStel TSO = FSO.OpenTextFile ("C:\Test\TestFile.txt") instrText = TSO.ReadAllTSO.SluitenTSO instellen = nietsStel FSO = Niets inEinde sub |
