推 fossil313:loop, read, xxx.txt 05/04 21:48
→ fossil313:可以逐行讀txt 05/04 21:49
大家好，由於最近要做零件目錄需要製作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