我的txt文件1是
Fruits
-------
Apple
Banana
Orange
Vegetables
---------
broccoli
Beans
txtfile 2
Fruits
Vegetables
输出应该是:
Banana
Orange
Brocoli
Beans
我应该能够从-------抓到空白区域而且我在做这件事时遇到了问题。
答案 0 :(得分:0)
我认为以下代码可能会让您对阅读txt文件有所了解,
Set fso = CreateObject("Scripting.FileSystemObject")
strWholeData = fso.OpenTextFile("C:\...\xxx.txt").ReadAll
strDataArr = Split(Trim(strWholeData),vbNewLine)
For di = Lbound(strDataArr) To Ubound(strDataArr)
Msgbox strDataArr(di)
Next