问题补充说明:有一个Excel表格,其中只有A列有数据(很多行,是数字),我要复制第一行然后到一个程序中执行下,再回来复制第二行再返回到程序中执行,如此反复。问题是,我怎么让按键精灵自动的一行一行的复制下去? 高手们能不能给个说明或脚本,谢谢
这我就想不通了,为什么你不把这表越乎老么百印阳认致格的内容全部放进按键里让它自动阶灯乐识大减米听供爱依次把这些内容逐对半而束速于侵个地复制到粘贴板呢?!
也就是说:把这些肉容放入一个变量,获得第一行后,把相时律这行内容放入粘贴板。然后运行另一个程序,再获得第二行放入粘贴板再运行程序···
例:
1,先建立个txt文本,取名叫s,并在感了过限子里面每行填上如下:
一行123
二行4567
三行7890000
(更多自己照葫芦画瓣自己加···)把他放到按键精灵script文件夹里面。
附上源码到按键里去:
path=继南早千误"s.txt"
Pluginl=File.OpenFile(path)
Pluginz=fil村不国华期滑准e.Readfil由跳肥卷总善视刘补e(l,500)
Pluginfile.Close线袁既资File(l)
l胜整几怕注话克章宽z=instr(z,"一行")
lz=称米德mid(z,lz+2,3)
肉局PluginSys.SetCLB(lz)
SayStringlz
Delay1000
lz=instr(z,"二行")
lz=mid(z掌尽历,lz+2,4)
Plugin谈斤Sys.SetCL矿句验问要找是送B(lz)
SayStringlz
Delay1000
lz=instr(z,"三行"肥差行解沙巴)
lz=mid(z,lz+2,7)
PluginSys.SetCLB(lz)
SayStringlz
脚本运行你做个试验,在txt文本窗口下启动,它会自动输入相应数字。
注意这句Pluginz=file.Readfile(l,500)后面的500是你的字节,我也不知道你的文件有多少字节,所以随便打了个,要是内容长,没有显示出来就把这个数字再加大。
注意这lz=mid(z,lz+2,3)后面那个三意思是“一行”这两个字后面有多少个字因为后面是123对不对?所以就有三个字,才填3,懂了吧?
累死了,加多加点分撒···
以马内利
2009.12.29
标签:按键精灵