Ši pamoka parodys, kaip perskaityti teksto failą į eilutę VBA.
Mes galime skaityti teksto failą eilute po eilutės arba kaip visą failą.
Perskaitykite visą teksto failą į eilutę
Tekstą teksto faile paprastai sudaro kelios eilutės, atskirtos skiriamuoju ženklu. Tai gali būti kablelis („,“), kablelis su tarpais („,“), kabliataškis („;“), kabliataškis su tarpais („;“), tarpas („“), skirtukas (vbTab ) arba retais atvejais - bet koks kitas simbolis, pvz., tildė (~). Paprastai linijos atskiriamos eilučių pertrauka (vbCRLF).
Lengviausias būdas perskaityti visą tekstinį failą VBA yra paleisti šį kodą, kuris visą teksto failo turinį įdės į eilutės kintamąjį. Ši procedūra naudoja „VBA Open“ teiginį ir „VBA FreeFile“ funkciją.
12345678910 | Sub ReadFile ()Dim iTxtFile kaip sveikasis skaičiusDim strFile As StringDim strFileText kaip eilutėstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileAtidarykite „strFile“, kad galėtumėte įvesti kaip „FreeFile“strFileText = Įvestis (LOF (iTxtFile), iTxtFile)Uždarykite „iTxtFile“Pabaiga Sub |
Mes taip pat galime perskaityti tekstinį failą VBA naudodami „FileSystemObject“. Žemiau esančiame kode mes naudojome vėlyvą susiejimą su failų sistemos objektu.
1234567891011 | Sub ReadTextFile ()„Dim strText“ kaip eilutėUžtemdyti FSO kaip objektąUžblokuoti PSO kaip objektąNustatykite FSO = CreateObject ("Scripting.FileSystemObject")Nustatykite TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllPSO. UždarytiNustatyti TSO = NiekoNustatyti FSO = NiekoPabaiga Sub |
Taip pat galime naudoti ankstyvą kodo įrišimą ir deklaruoti failų sistemos objektą, sukurdami „Excel“ projekte nuorodą į failų sistemos objektą.
1234567891011 | Sub ReadTextFile ()„Dim strText“ kaip eilutėPritemdyti FSO kaip naują „FileSystemObject“Užblokuoti PSO kaip objektąNustatykite FSO = CreateObject ("Scripting.FileSystemObject")Nustatykite TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllPSO. UždarytiNustatyti TSO = NiekoNustatyti FSO = NiekoPabaiga Sub |