作者onlyAPU (立一)
看板EzHotKey
标题[AHK-] 请大家帮我精简
时间Fri May 4 17:01:57 2012
大家好，由於最近要做零件目录需要制作400多个条码
所以写了一个AHK帮助自己用CorelDraw制作eps档
虽然可以运作，但是写得很长很笨，想请版友帮忙精简一下
程式码流程
-按F5，输入八组条码数字
-CorelDraw开始依序制作eps，并存成"变数".eps
P.S
贪心的请问一下，有可能让ahk读入TXT档，并且将每一行当成一个变数吗？
这样我就可以将所有条码key进txt然後放给他跑了…
----------程式码开始--------
F5::
InputBox,num1,输入条码,请输入商品条码
InputBox,num2,输入条码,请输入商品条码
InputBox,num3,输入条码,请输入商品条码
InputBox,num4,输入条码,请输入商品条码
InputBox,num5,输入条码,请输入商品条码
InputBox,num6,输入条码,请输入商品条码
InputBox,num7,输入条码,请输入商品条码
InputBox,num8,输入条码,请输入商品条码
WinWait, CorelDRAW 11 - [图形1],
IfWinNotActive, CorelDRAW 11 - [图形1], , WinActivate, CorelDRAW 11 - [图形
1],
WinWaitActive, CorelDRAW 11 - [图形1],
MouseClick, left, 129, 42
Sleep, 500
send,b
winwait,ahk_class #32770
send,%num1%
sleep,500
Send, {ENTER}
sleep,200
Send, {ENTER}
sleep,200
Send, {ENTER}
sleep,1000
Send, {ALTDOWN}f{ALTUP}
WinWait, 档案(F),
IfWinNotActive, 档案(F), , WinActivate, 档案(F),
WinWaitActive, 档案(F),
Send, {CTRLDOWN}{CTRLUP}e
WinWait, 输出,
IfWinNotActive, 输出, , WinActivate, 输出,
WinWaitActive, 输出,
Send, %num1%.eps{ENTER}{ENTER}
WinWait, CorelDRAW 11 - [图形1],
IfWinNotActive, CorelDRAW 11 - [图形1], , WinActivate, CorelDRAW 11 - [图形
1],
WinWaitActive, CorelDRAW 11 - [图形1],
sleep,1000
Send,{DEL}
sleep,500
..............重复贴第二段七次，然後更改%num%的数字为
num2.num3.num4.num5.num6.num7.num8....
------程式码结束--------
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.125.41.124
1F：推 fossil313:loop, read, xxx.txt 05/04 21:48
2F：→ fossil313:可以逐行读txt 05/04 21:49