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 100
i=i+1
Next
End If
以上代码是依次调用一个txt文档里的段落，但是我想实现分别调用4个txt文档的第一段，然后再调用4个文档的第二段，第三段......以此类推

Answer 1

Text1 = Plugin.File.ReadFileEx("d:\素材1.txt")
Text2= Plugin.File.ReadFileEx("d:\素材2.txt")
Text3= Plugin.File.ReadFileEx("d:\素材3.txt")
Text4 = Plugin.File.ReadFileEx("d:\素材4.txt")

MyArray1 = Split(Text1, "|")
MyArray2= Split(Text2, "|")
MyArray3 = Split(Text3, "|")
MyArray4 = Split(Text4, "|")

If UBound(MyArray)>=0 Then
For i=0 To UBound(MyArray)
SayString Cstr(MyArray1(i))
Delay 100
SayString Cstr(MyArray2(i))
Delay 100
SayString Cstr(MyArray3(i))
Delay 100
SayString Cstr(MyArray4(i))
Delay 100
Next
End If

追问

运行了没反应啊，是不是少了点什么

追答

你要看文件路径和文件名哦，你自己有那些文件吗，我也是从你那里复制过来修改的，我觉得我这样写，你应该明白逻辑了。
哦，有地方弄错了，是这里：If UBound(MyArray)>=0
改成四个判断，所有判断满足就执行下面For循环