Ta vadnica bo pokazala, kako prebrati besedilno datoteko v niz v VBA.
Besedilno datoteko lahko beremo po vrsticah ali kot celotno datoteko.
Preberite celotno besedilno datoteko v niz
Besedilo v besedilni datoteki je običajno sestavljeno iz več vrstic, ločenih z ločili. To so lahko vejica (“,”), vejica s presledkom (“,“), podpičje (“;”), podpičje s presledkom (“;“), presledek (““), zavihek (vbTab ) ali v redkih primerih kateri koli drug znak, na primer tilda (~). Vrstice so običajno ločene s prelomom vrstice (vbCRLF).
Najlažji način za branje celotne besedilne datoteke v VBA je izvajanje naslednje kode, ki bo celotno vsebino besedilne datoteke postavila v spremenljivko niza. Ta postopek uporablja stavek VBA Open in funkcijo VBA FreeFile.
| 12345678910 | Sub ReadFile ()Zatemni iTxtFile kot celo številoZatemni strFile As StringZatemni strFileText kot nizstrFile = "C: \ Test \ TestFile.txt"iTxtFile = Brezplačna datotekaOdprite strFile za vnos kot FreeFilestrFileText = Vnos (LOF (iTxtFile), iTxtFile)Zaprite iTxtFileEnd Sub |
Besedilno datoteko lahko v VBA preberemo tudi z uporabo FileSystemObject. V spodnji kodi smo uporabili pozno vezavo s predmetom datotečnega sistema.
| 1234567891011 | Sub ReadTextFile ()Zatemni strText kot nizZatemni FSO kot objektDim TSO kot objektNastavite FSO = CreateObject ("Scripting.FileSystemObject")Nastavite TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ZapriNastavite TSO = NičNastavite FSO = NičEnd Sub |
V kodi lahko uporabimo tudi zgodnjo vezavo in razglasimo predmet datotečnega sistema tako, da v našem Excelovem projektu ustvarimo sklic na predmet datotečnega sistema.
| 1234567891011 | Sub ReadTextFile ()Zatemni strText kot nizZatemni FSO kot nov FileSystemObjectDim TSO kot objektNastavite FSO = CreateObject ("Scripting.FileSystemObject")Nastavite TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ZapriNastavite TSO = NičNastavite FSO = NičEnd Sub |
