vbscript显示输出到空白行

时间:2017-05-24 03:56:08

标签: vbscript

我的txt文件1是

Fruits
-------

Apple

Banana

Orange

Vegetables
---------
broccoli

Beans

txtfile 2

Fruits 

Vegetables
输出应该是:

Banana

Orange


Brocoli

Beans

我应该能够从-------抓到空白区域而且我在做这件事时遇到了问题。

1 个答案:

答案 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