Šī apmācība parādīs, kā lasīt teksta failu virknē VBA.
Mēs varam lasīt teksta failu pa rindām vai visu failu.
Visu teksta failu izlasiet virknē
Teksts teksta failā parasti sastāv no vairākām rindām, kuras atdala ar atdalītājiem. Tie var būt komats (","), komats ar atstarpi (","), semikols (";"), semikols ar atstarpi (";"), atstarpe (""), cilne (vbTab ) vai retos gadījumos jebkuru citu rakstzīmi, piemēram, tildi (~). Līnijas parasti atdala līnijas pārtraukums (vbCRLF).
Vienkāršākais veids, kā izlasīt visu teksta failu VBA, ir palaist šādu kodu, kas visu teksta faila saturu ievietos virknes mainīgajā. Šī procedūra izmanto VBA Open paziņojumu un VBA FreeFile funkciju.
| 12345678910 | Apakšlasīšanas fails ()Dim iTxtFile kā vesels skaitlisDim strFile kā virkneDim strFileText kā virknestrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileAtveriet strFile ievadīšanai kā FreeFilestrFileText = Ievads (LOF (iTxtFile), iTxtFile)Aizveriet iTxtFileBeigu apakš |
Mēs varam arī izlasīt teksta failu VBA, izmantojot FileSystemObject. Zemāk esošajā kodā mēs esam izmantojuši vēlu saistīšanu ar failu sistēmas objektu.
| 1234567891011 | Sub ReadTextFile ()Dim strText kā virkneAptumšojiet FSO kā objektuDim PSO kā objektsIestatīt FSO = CreateObject ("Scripting.FileSystemObject")Iestatīt TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllPSO. AizvērtIestatīt TSO = NekasIestatīt FSO = NekasBeigu apakš |
Mēs varam arī izmantot agrīno saistīšanu kodā un deklarēt failu sistēmas objektu, savā Excel projektā izveidojot atsauci uz failu sistēmas objektu.
| 1234567891011 | Sub ReadTextFile ()Dim strText kā virkneDim FSO kā jauns FileSystemObjectDim PSO kā objektsIestatīt FSO = CreateObject ("Scripting.FileSystemObject")Iestatīt TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllPSO. AizvērtIestatīt TSO = NekasIestatīt FSO = NekasBeigu apakš |
