使用按键精灵编写了如下脚本
读取的文本文档只要有第二行文本就会在tempname2 = endname1(1)这行提示下标越界
但是不影响下面的条件判断
但是这个是循环不停执行条件判断的
下标越界多了程序就崩溃了
求大神指点
Sub 对比已完成
已存在 =1 //已存在是1为未找到 已存在是2为已找到
Text = Plugin.File.ReadFileEx(进度记录 & "已完成名称记录.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i = 0
For UBound(MyArray)
//下面这句是得到文本内容
//Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
endname = cstr(myarray(i))
endname1 = split(endname, "*")
tempname1 = endname1(0)
tempname2 = endname1(1)
If filename = tempname2 Then
已存在 = 已存在 + 1
Goto 已找到
End If
i=i+1
Next
End If
Rem 已找到
End Sub