Ovaj će vodič pokazati kako čitati tekstualnu datoteku u niz u VBA -i.
Tekstualnu datoteku možemo čitati redak po redak ili kao cijelu datoteku.
Pročitajte cijelu tekstualnu datoteku u niz
Tekst u tekstualnoj datoteci obično se sastoji od nekoliko redaka, odvojenih graničnicima. To mogu biti zarez (“,”), zarez s razmakom (“,“), točka -zarez (“;”), točka -zarez s razmakom (“;“), razmak (““), kartica (vbTab ) ili u rijetkim slučajevima bilo koji drugi znak poput tilde (~). Linije su obično odvojene prijelomom retka (vbCRLF).
Najjednostavniji način čitanja čitave tekstualne datoteke u VBA -i je pokretanje sljedećeg koda koji će cijeli sadržaj tekstualne datoteke smjestiti u string varijablu. Ovaj postupak koristi naredbu VBA Open i funkciju VBA FreeFile.
12345678910 | Podčitana datoteka ()Zatamnite iTxtFile kao cijeli brojDim strFile As StringZatamni strFileText kao nizstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileOtvorite strFile za unos kao FreeFilestrFileText = Ulaz (LOF (iTxtFile), iTxtFile)Zatvorite iTxtFileKraj podm |
Također možemo čitati tekstualnu datoteku u VBA pomoću FileSystemObject. U donjem kodu koristili smo kasno vezivanje za objekt datotečnog sustava.
1234567891011 | Sub ReadTextFile ()Zatamni strText kao nizZatamnite FSO kao objektDim TSO kao objektPostavi FSO = CreateObject ("Scripting.FileSystemObject")Postavi TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ZatvoritePostavite TSO = NištaPostavite FSO = NištaKraj podm |
Također možemo koristiti rano vezivanje u kodu i deklarirati objekt datotečnog sustava stvaranjem reference u našem Excel projektu na objekt datotečnog sustava.
1234567891011 | Sub ReadTextFile ()Zatamni strText kao nizZatamnite FSO kao novi FileSystemObjectDim TSO kao objektPostavi FSO = CreateObject ("Scripting.FileSystemObject")Postavi TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ZatvoritePostavite TSO = NištaPostavite FSO = NištaKraj podm |