[图像]AutoHotkeyPS数组生成器

在制作一下需要批量排版的时候例如:对门票打码、胸卡排号等等。
下面简单的录制了一份视频仅供参考。

[cuvideo width=”100%” height=”465″ url=”http://yun.autoahk.com/autohotkey/video/demonstration/Ps-Arr-Generate.mp4″ auto=”no” images=”wp-content/uploads/2016/11/Ps-Arr-Generate_20161117104520.gif” ]视频标题[/cuvideo]

Gui,Add,Text,ym+3,前辍
Gui,Add,Edit,ym vBefore w80,No:238
Gui,Add,Text,ym+3,起始值
Gui,Add,Edit,ym vStar Number w32,1
Gui,Add,Text,ym+3,结束值
Gui,Add,Edit,ym vEnd Number w32,400
Gui,Add,Text,ym+3,单排重读
Gui,Add,Edit,ym Number,4
Gui,Add,UpDown,vRepeat w30 Range1-10, 5
Gui,Add,Button,ym gGenerate,生成数组
Gui,Add,Button,ym gClip,复制数组
Gui,Add,Button,ym gSubmit,保存文件
Gui,Add,Edit,w615 r20 xm vGET ReadOnly
Gui,Show,,数组生成器 By AHK-小猛
Return
Generate:
GuiControl,,GET
Sleep,100
Gui,Submit,NoHide
GET:=Before
Star = %Star%.00
no=0
loops:=End-Star+1
Loop,%loops%{
	SetFormat, float, 03.0
	Star += 0
	if (no!=(Repeat-1)){
		no++
		Generate=%Generate%%Before%%Star%
	}else{
		Generate=%Generate%%Before%%Star%
		no=0
		GET=%GET%`n%Generate%
		Generate:=
	}
	SetFormat, float, 0.3
	Star += 1
	Star=%Star%.00
}
GuiControl,,GET,%GET%
Return
Clip:
Gui,Submit,NoHide
Clipboard:=GET
MsgBox,数组内容已复制到剪切板
Return
Submit:
Gui +OwnDialogs  ; 强制用户响应 FileSelectFile 对话框后才能返回到主窗口..
FileSelectFile, SelectedFileName, S16,,保存数组文件, Text Documents (*.txt)
if SelectedFileName =  ; 没有选择文件.
    return
CurrentFileName = %SelectedFileName%
Gosub SaveCurrentFile
return

SaveCurrentFile:  ; 调用者已经确保了 CurrentFileName 不为空.
IfExist %CurrentFileName%
{
    FileDelete %CurrentFileName%
    if ErrorLevel
    {
        MsgBox The attempt to overwrite "%CurrentFileName%" failed.
        return
    }
}
GuiControlGet,GET  ; 获取编辑控件的内容.
FileAppend, %GET%, %CurrentFileName%.txt ; 保存内容到文件.
; 成功时在标题栏显示文件名 (以防 FileSaveAs 调用时的情况):
Gui, Show,, %CurrentFileName%
Return

FileExit:     ; 用户在 File 菜单中选择了 "Exit".
GuiClose:  ; 用户关闭了窗口.
ExitApp

 

为TA充电
共{{data.count}}人
人已赞赏
AHKV1学习

[基础] AHK 中 = 和 := 赋值运算符的用法

2016-11-8 22:00:33

AHKV1学习

[教程]AutoHotKey中级教程第三节第一课:伪数组、数组与关联数组

2016-11-10 11:29:32

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索