|

楼主 |
发表于 2025-3-20 18:10:26
|
显示全部楼层
越南
例子调用的第三方程序非常大有60多M 发不出来 我可以给你看下代码 我现在写到什么程度了按钮3是核心程序
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 纯净文件名 | 文本型 | | 执行批量程序开始标记 | 逻辑型 | |
通用对话框1. 打开 ()编辑框1.内容 = 通用对话框1.文件名 编辑框2.内容 = 浏览文件夹 (“请选择文件夹:”, 假)通用对话框1.过滤器 = “所有文件|*.*|文本文件|*.txt|图片文件|*.jpg;*.png”拖放对象1. 注册拖放控件 (标签3. 取窗口句柄 ()) 创建目录 (取运行目录 () + “\转曲结果\”)图片框隐藏子程序 ()图片框1.可视 = 真 华侨_加载皮肤_炫彩蓝色 ()执行批量程序开始标记 = 假 华侨_卸载皮肤_默认控件 ()华侨_卸载皮肤_默认窗口 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 参数 | 文本型 | | | 返回结果 | 文本型 | | |
标签4.标题 = “”编辑框3.内容 = “”按钮3.禁止 = 真 参数 = 取运行目录 () + “\gswin64c.exe” + “ -o ” + 编辑框2.内容 + “[转曲后]” + 纯净文件名 + “ -sDEVICE=pdfwrite -dNoOutputFonts ” + 编辑框1.内容 返回结果 = 系统_取DOS执行结果 (参数, )编辑框3.内容 = 返回结果 按钮3.禁止 = 假 如果 (寻找文本 (编辑框3.内容, “Page 1”, , 假) ≠ -1 ) 标签4.标题 = “转曲成功” 如果 (执行批量程序开始标记 = 真)      执行 (2, 取运行目录 () + “\转曲结果\”, , , )    标签4.标题 = “转曲失败,请修改文件标题” 变量名 | 类 型 | 静态 | 数组 | 备 注 | 出现位置 | 整数型 | | | 剩余长度 | 整数型 | | |
编辑框1.内容 = 接收到的文件路径 如果真 (文本_取行数 (接收到的文件路径 ) > 1 ) 标签4.标题 = “拖拽文件不能超过1个” 返回 () 出现位置 = 倒找文本 (接收到的文件路径, “\”, , 假)剩余长度 = 取文本长度 (接收到的文件路径 ) - 出现位置 纯净文件名 = 取文本右边 (接收到的文件路径, 剩余长度 )编辑框2.内容 = 取运行目录 () + “\转曲结果\”执行批量程序开始标记 = 假 延迟 (100 )_按钮3_被单击 ()选择夹1.现行子夹 = 0 图片框1.可视 = 真 图片框2.可视 = 假 选择夹1.现行子夹 = 1 图片框1.可视 = 假 图片框2.可视 = 真 图片框1.可视 = 假 图片框2.可视 = 假 信息框 (“将所有需要转曲的文件,全部放入该文件夹内即可”, 0, , )创建目录 (取运行目录 () + “\批量转曲前\”)执行 (2, 取运行目录 () + “\批量转曲前\”, , , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 返回的文件路径 | 文本型 | | | 索引2 | 整数型 | | | bva | 整数型 | | |
bva = 0 超级列表框1. 全部删除 ()返回的文件路径 = 寻找文件 (取运行目录 () + “\批量转曲前\*.pdf”, ) 判断循环首 (返回的文件路径 ≠ “”) 索引2 = 超级列表框1. 插入表项 (, , , , , ) bva = bva + 1  超级列表框1. 置标题 (索引2, 0, 到文本 (bva ))  超级列表框1. 置标题 (索引2, 1, 返回的文件路径 ) 超级列表框1. 置标题 (索引2, 3, 取运行目录 () + “\批量转曲前\” + 返回的文件路径 ) 超级列表框1. 置标题 (索引2, 2, “未开始”) 返回的文件路径 = 寻找文件 (, ) 判断循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | uyt | 整数型 | | | ppg | 整数型 | | |
按钮6.禁止 = 真 进度条1.位置 = 0 进度条1.最大位置 = 超级列表框1. 取表项数 ()创建目录 (取运行目录 () + “\批量转曲后\”) 计次循环首 (超级列表框1. 取表项数 (), uyt ) 编辑框1.内容 = 超级列表框1. 取标题 (uyt - 1, 3 ) 执行批量程序开始标记 = 真  纯净文件名 = 超级列表框1. 取标题 (uyt - 1, 1 ) 编辑框2.内容 = 取运行目录 () + “\批量转曲后\” _按钮3_被单击 () 如果真 (标签4.标题 = “转曲成功”)  进度条1.位置 = 进度条1.位置 + 1   计次循环尾 ()执行 (2, 编辑框2.内容, , , )按钮6.禁止 = 假 选择夹1.现行子夹 = 2
|
|