Dim shuzu
Dim i
Dim text
shuzu = Plugin.lxj_Plug.lxj_Txtline("E:\单位名称.txt")
TracePrint shuzu(0)//显示文本文件的总行数
For i = 1 to shuzu(0)
Text =Lib.文件.读取指定行文本内容("E:\单位名称.txt",i)//文本文件需要使用ansi编码,ut8有乱码
TracePrint text
MoveTo 505, 523//坐标的获取使用录制功能,不知为何使用抓抓定位的不准
LeftClick 1
Delay 1000
SayString text//将读取的每行文本放入科目名称栏
MoveTo 784, 782
Delay 3000
LeftClick 1
Delay 1
Next
For i = 1 to 20
Text = Plugin.Office.ReadXls(1, i, 1,"E:\单位名称.xls")
MoveTo 291, 480
LeftClick 1
Delay 1000
SayString text
MoveTo 646, 750
Delay 1000
LeftClick 1
Delay 1
Next