...txt文档 逐行提取这个txt的内容然后进行文字输出
发布网友
发布时间：12小时前
共1个回答
热心网友
时间：9小时前
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为："& Text
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
i=i+1
Next
End If
//以上是按键精灵例子，要点是搞清楚
Split（分开）函数
UBound段落函数，这个函数可以暂时不理会，只要你懂得Split就好办
