Ez az oktatóanyag bemutatja, hogyan kell szöveges fájlt beolvasni egy karakterláncba a VBA -ban.
A szöveges fájlt soronként vagy egész fájlként olvashatjuk.
Olvasson egy teljes szövegfájlt karakterlánccá
A szövegfájl szövege általában több sorból áll, elválasztójelekkel elválasztva. Ezek lehetnek vessző (","), vessző szóközzel (","), pontosvessző (";"), pontosvessző szóközzel (";"), szóköz (""), tab (vbTab ) vagy ritka esetekben bármely más karakter, például tilde (~). A vonalakat rendszerint egy sortörés választja el egymástól (vbCRLF).
A legegyszerűbb módja annak, hogy egy teljes szövegfájlt olvasson a VBA -ban, ha futtatja a következő kódot, amely a szövegfájl teljes tartalmát egy karakterlánc -változóba helyezi. Ez az eljárás a VBA Open utasítást és a VBA FreeFile funkciót használja.
| 12345678910 | Sub ReadFile ()Dim iTxtFile mint egészDim strFile karakterlánckéntDim strFileText karakterlánckéntstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileNyissa meg az strFile fájlt FreeFile -kéntstrFileText = Bemenet (LOF (iTxtFile), iTxtFile)Zárja be az iTxtFile fájltEnd Sub |
Szöveges fájlt is olvashatunk a VBA -ban a FileSystemObject használatával. Az alábbi kódban késői kötést használtunk a fájlrendszer objektumhoz.
| 1234567891011 | Sub ReadTextFile ()Dim strText karakterlánckéntDim FSO mint ObjectDim TSO mint ObjectSet FSO = CreateObject ("Scripting.FileSystemObject")Állítsa be a TSO = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. Zárja beTSO beállítása = semmiFSO beállítása = semmiEnd Sub |
Használhatjuk a korai kötést is a kódban, és deklarálhatjuk a fájlrendszer -objektumot, ha Excel -projektünkben hivatkozást hozunk létre a fájlrendszer -objektumra.
| 1234567891011 | Sub ReadTextFile ()Dim strText karakterlánckéntDim FSO mint új FileSystemObjectDim TSO mint ObjectSet FSO = CreateObject ("Scripting.FileSystemObject")Állítsa be a TSO = FSO.OpenTextFile fájlt ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. Zárja beTSO beállítása = semmiFSO beállítása = semmiEnd Sub |
