Question

按键精灵循环读取TXT文档的问题

我想实现读取第一个文档的第一行以后读取第二个文档的第一、二、三行后
再读取第一个文档第二行、第二个文档的四、五、六行，以此类推直到读完为止

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
最好能时后台的

Answer 1

先两个文档内容皮扮都读出来，最后For一起处理就行了。显然，第一个文伏陪档第i行，对应第二个文档的缺握蠢第3i-2，3i-1，3i这三行。代码如下：

Text1 = Plugin.File.ReadFileEx("d:\我的文档\桌面\文档1.txt")
Text2 = Plugin.File.ReadFileEx("d:\我的文档\桌面\文档2.txt")
MyArray1 = Split(Text, "|")
MyArray2 = Split(Text, "|")
If UBound(MyArray1)>=0 And UBound(MyArray2)>=3*UBound(MyArray1) Then
For i=0 To UBound(MyArray1)
SayString Cstr(MyArray1(i))
Delay 1000
For j=0 To 2
SayString Cstr(MyArray2(3i-2+j))
Delay 1000
Next
Next
End If

你要想代码后台，就是把SayString用后台代码表示，如果从来没写过后台代码，那你要先学一些基础，因为后台牵涉的基础还是挺多的，这里我不一一讲解了。

追问

SayString Cstr(MyArray2(3i-2+j))
这句无法识别呀

追答

把它分解两句话：
Text=Cstr(MyArray2(3i-2+j))
SayString Text
如果还不行，继续分解3i-2+j。

Answer 2

Text1 = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档笑型没1.txt")//文档位置你自己改
Text2 = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档2.txt")
dim MyArray
MyArray1 = Split(Text1, "|")
MyArray2 = Split(Text2, "|")
If UBound(MyArray1)>=0 Then
i=1
For UBound(MyArray1)
//下面这句是得到文本内容
SayString Cstr(MyArray1(i-1))
Delay 1000
Msgbox "成功输入文本1第 " & i &" 行文本内容为："& Cstr(MyArray(i-1))
j=i*3
for 3
//下面这句是得到文本内容
SayString Cstr(MyArray2(j-3))
Msgbox "成功输入文本2第 " & j-2 &" 行文本内容为："& Cstr(MyArray(j-3))
j=j+1
Next
Delay 1000
i=i+1
Next
End If
你要是把弹窗撤了文件操作不应该本来就后台么? 反正我好久没用按键了 记不住...上面这段没加延迟 你自己租告看着弄, 反正逻辑就是这么个逻辑,当然我写的不工整,要是那块跑不起碰纳来你再调调...一万多年没写过这玩意了..

Answer 3

那你是要从文档取账号密码

追问

不是的，普通的数据