按键精灵 读取 TXT文件一行循环一次整个代码。

//读取txt
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行

For i = 0 To UBound(hang)
FindPic 0,0,4000,2500,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx+6, inty+2
LeftClick 1
End If
Delay 2000
FindPic 0,0,4000,2500,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
LeftClick 1
Delay 2000
SayString hang(i)
End If
Delay 2000
FindPic 0,0,4000,2500,"Attachment:\3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
LeftClick 1
Delay 2000
SayString "909090"
Delay 2000
End If
FindPic 0,0,4000,2500,"Attachment:\4.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
LeftClick 1
Delay 2000
End If
Delay 2000
FindPic 0,0,4000,2500,"Attachment:\5.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty
LeftClick 1
End If
Delay 3000
FindPic 0,0,4000,2500,"Attachment:\6.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, inty + 150
LeftClick 1
MoveTo intx, inty + 100
Delay 1000
LeftDown 1
MoveTo intx, inty + 400
Delay 2000
LeftUp 1
Delay 1000

LeftClick 2
End If
Delay 4000
Next
出现循环第二次时，不取TXT数据，其它部份功能不使用，第三次时又正常，是什么原因

你第一行就已经把文件内容全部读取了，后面循环根本没有读取文件，只是把文件内容填到某个地方，但是你填写内容的时候是有条件的，必须要找到图，没有填写是因为你那次循环没找到图，或者你要填写的那个框当时没被选中。

直接录制鼠标打开txt文件操作 打开后录制鼠标一定选定 录制ctrl+c 录制运行calc 录制+1 重新复制回txt并保存 ……