Question

按键精灵，我要读取txt，每行有三段，空格隔开。分别都有用。 怎么一行一行取3个值 mid能用么？

Dim fso,ts,text,fri
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
//下面是批量账号文本路径！需要自己修改。
Set ts = fso.OpenTextFile("e:\好号.txt", ForReading)
While ts.AtEndOfStream <> true
test=ts.ReadLine
fri=cstr(test)
用这个改改可以么？这是取整行的，没有分段

Answer 1

dim filepath,TextArray,NArray
filepath=Plugin.File.SelectFile()
Delay 1000
Text = Plugin.File.ReadFileEx(filepath)
TextArray = Split(Text, "|")
n = UBound(TextArray)
i=0
For n
NArray = Split(TextArray(i), " ")
MessageBox "第" & i+1 &"行文本内容为：" & TextArray(i) & Chr(13) & Chr(10) & "前三个数值分别是" & Chr(13) & Chr(10) & NArray(0) & Chr(13) & Chr(10) & NArray(1)& Chr(13) & Chr(10) & NArray(2)
i=i+1
Next
---------------------------
自己试一下吧,TXT文件内容整齐的话运行是没有问题的,如果三个数值之间的空格数量不确定就会少显示数据,不过也是有办法的,如果需要你再提出来吧