快递单打印软件

daydayup163

完了,文件太大,上传不了,请大家从我的连接下载去吧....
大家可以看一下源码.支持静态编译,可以自己下载锐浪报表工具,自己设计打印模板.放到模板目录下,即可使用.
用最简单的方法调用打印.
点我下载_快递单打印软件
为方便大家,可以先看源码.欢迎大家修改完善.也希望有共同爱好的朋友能加个微信.本人微信号:daydayup163

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
被选择文件名	文本型		不含后缀
文件路径	文本型		用于存放打印模板和配置文件
当前查找位置			表示列表框的id,

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文件名	文本型		0
单号方式	文本型

皮肤_QQ音乐 ()
当前查找位置 ＝ 1
文件路径 ＝ 取运行目录 () ＋ “\打印模板\”
如果真 (文件是否存在 (取运行目录 () ＋ “\tishi.mp3”) ＝ 假)
写到文件 (取运行目录 () ＋ “\tishi.mp3”, #tishi )
写到文件 (取运行目录 () ＋ “\说明.png”, #shuoming )
执行 (, 取运行目录 () ＋ “\说明.png”, , , )
单号方式 ＝ 读配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, )
判断 (单号方式 ＝ “自增”)
单选框_自增.选中 ＝ 真
单选框_自减.选中 ＝ 假
编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) ＋ 1)
判断 (单号方式 ＝ “自减”)
单选框_自增.选中 ＝ 假
单选框_自减.选中 ＝ 真
编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) － 1)


文件_枚举 (文件路径, “*.grf”, 文件名, 假)
加载模板文件 (列表框1, 文件名)
加载配置项到组合框 (组合框1, 文件路径 ＋ “set.ini”, “产品信息”)

子程序名	返回值类型	公开	备 注
加载配置项到组合框
参数名	类 型	参考	可空	数组	备 注
组合框	组合框
配置文件	文本型
配置节	文本型

变量名	类 型	静态	数组	备 注
配置项	文本型		0
i	整数型

组合框.清空 ()
文件_取配置项名数组 (配置文件, 配置节, 配置项)
计次循环首 (取数组成员数 (配置项), i)
组合框.加入项目 (配置项 [i], )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_立即打印_被单击

变量名	类 型	静态	数组	备 注
锐浪报表	报表

如果真 (被选择文件名 ＝ “”)
信息框 (“你还没有选择运营商”, 0, , )
返回 ()
如果真 (编辑框_收件人.内容 ＝ “”)
信息框 (“收件人不能为空”, 0, , )
返回 ()
如果真 (编辑框_收件电话.内容 ＝ “”)
信息框 (“收件人电话不能为空”, 0, , )
返回 ()
如果真 (编辑框_收件地址.内容 ＝ “”)
信息框 (“收件地址不能为空”, 0, , )
返回 ()
如果真 (组合框1.内容 ＝ “”)
信息框 (“寄件品名不能为空”, 0, , )
返回 ()
如果真 (编辑框_寄件数量.内容 ＝ “”)
信息框 (“寄件数量不能为空”, 0, , )
返回 ()

播放MP3 (1, 取运行目录 () ＋ “\tishi.mp3”)
保存寄件信息 ()
锐浪报表.初始化 ()
锐浪报表.清空 ()
锐浪报表.从文件加载报表 (文件路径 ＋ 被选择文件名 ＋ “.grf”)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件人”).置字符串值 (编辑框_寄件人.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件地址”).置字符串值 (编辑框_寄件地址.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件电话”).置字符串值 (编辑框_寄件电话.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件品名”).置字符串值 (组合框1.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件数量”).置字符串值 (编辑框_寄件数量.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件重量”).置字符串值 (编辑框_寄件重量.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“备注”).置字符串值 (编辑框_备注信息.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件人”).置字符串值 (编辑框_收件人.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件地址”).置字符串值 (编辑框_收件地址.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件电话”).置字符串值 (编辑框_收件电话.内容)
如果真 (选择框_打印邮费.选中 ＝ 真)
锐浪报表.获取参数集合 ().获取项目_按名称 (“邮费”).置字符串值 (编辑框_实际邮费.内容)
' 锐浪报表.打印预览 (真)
锐浪报表.打印 (假)
写配置项 (文件路径 ＋ “客户信息.txt”, “客户信息”, 编辑框_收件电话.内容, 编辑框_收件人.内容 ＋ 字符 (9) ＋ 编辑框_收件地址.内容 ＋ 字符 (9) ＋ 组合框1.内容 ＋ 字符 (9) ＋ 编辑框_寄件数量.内容 ＋ 字符 (9) ＋ 编辑框_备注信息.内容)
' 鸣叫 ()
' 调试输出 (“0...................”)

子程序名	返回值类型	公开	备 注
保存寄件信息

变量名	类 型	静态	数组	备 注
收件人地址	文本型
关键词位置

写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件人”, 编辑框_寄件人.内容)
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, 编辑框_寄件地址.内容)
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, 编辑框_寄件电话.内容)
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, 编辑框_单号.内容)
判断 (单选框_自增.选中 ＝ 真)
编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) ＋ 1)
编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) － 1)
如果真 (到数值 (编辑框_寄件数量.内容) ＝ 0)
编辑框_寄件数量.内容 ＝ “1”
写配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, 到文本 (到数值 (编辑框_寄件重量.内容) ÷ 到数值 (编辑框_寄件数量.内容)))
' 调试输出 (编辑框_收件地址.内容)
收件人地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (收件人地址, “省”, , 真)
判断 (关键词位置 ≠ -1)
收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)
调试输出 (编辑框_收件地址.内容, 关键词位置)
如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0)
写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)

关键词位置 ＝ 寻找文本 (收件人地址, “市”, , 真)
判断 (关键词位置 ≠ -1)
收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)
如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0 且 取数组成员数 (关键词位置) ＞ 0)
写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)

子程序名	返回值类型	公开	备 注
加载模板文件
参数名	类 型	参考	可空	数组	备 注
列表框	列表框
加载数组	文本型

变量名	类 型	静态	数组	备 注
数量
i	整数型

数量 ＝ 取数组成员数 (加载数组)
计次循环首 (数量, i)
列表框.加入项目 (加载数组 [i], )
计次循环尾 ()
列表框.现行选中项 ＝ 0
_列表框1_列表项被选择 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

被选择文件名 ＝ 取文本左边 (列表框1.取项目文本 (列表框1.现行选中项), 取文本长度 (列表框1.取项目文本 (列表框1.现行选中项)) － 4)
图片框1.图片 ＝ 读入文件 (文件路径 ＋ 被选择文件名 ＋ “.png”)

子程序名	返回值类型	公开	备 注
_按钮_自动获取_被单击

变量名	类 型	静态	数组	备 注
预处理文本	文本型
中间文本数组	文本型		0
i	整数型
数量
地址信息	文本型		0	地址，邮编，联系人，电话

预处理文本 ＝ 取剪辑板文本 () ＋ #换行符
编辑框2.内容 ＝ 预处理文本
预处理文本 ＝ 子文本替换 (预处理文本, “ 修改收货信息”, #换行符, , , 真)
文本_取中间_批量 (预处理文本, “订单编号”, #换行符, 中间文本数组, 假, , “订单编号”, , , , )
如果真 (取数组成员数 (中间文本数组) ＞ 0)
编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])
文本_取中间_批量 (预处理文本, “口味：”, #换行符, 中间文本数组, 假, , “口味:”)
如果真 (取数组成员数 (中间文本数组) ＞ 0)
编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])
文本_取中间_批量 (预处理文本, “ × ”, #换行符, 中间文本数组, 假)
计次循环首 (取数组成员数 (中间文本数组), i)
数量 ＝ 数量 ＋ 到数值 (中间文本数组 [i])
计次循环尾 ()
编辑框_寄件数量.内容 ＝ 到文本 (数量)
文本_取中间_批量 (预处理文本, “买家收货信息：”, #换行符, 中间文本数组, 假, , , , , , )
调试输出 (中间文本数组)
如果真 (取数组成员数 (中间文本数组) ＞ 0)
判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)
删除成员 (中间文本数组, 1, )
判断循环尾 ()
地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )
调试输出 (地址信息)
如果真 (取数组成员数 (地址信息) ≥ 4)
编辑框_收件地址.内容 ＝ 删首尾空 (地址信息 [1])
编辑框_收件人.内容 ＝ 删首尾空 (地址信息 [3])
编辑框_收件电话.内容 ＝ 删首尾空 (地址信息 [4])


判断 (选择框_只获取寄件信息.选中 ＝ 真)
编辑框_寄件人.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件人”, )
编辑框_寄件地址.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, )
编辑框_寄件电话.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, )
文本_取中间_批量 (预处理文本, “我的发货信息：” ＋ #换行符, #换行符, 中间文本数组, 假)
如果真 (取数组成员数 (中间文本数组) ＞ 0)
判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)
删除成员 (中间文本数组, 1, )
判断循环尾 ()
地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )
调试输出 (地址信息)
如果真 (取数组成员数 (地址信息) ≥ 4)
编辑框_寄件地址.内容 ＝ 删首尾空 (地址信息 [1])
编辑框_寄件人.内容 ＝ 删首尾空 (地址信息 [3])
编辑框_寄件电话.内容 ＝ 删首尾空 (地址信息 [4])

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))

子程序名	返回值类型	公开	备 注
_编辑框_寄件数量_内容被改变

变量名	类 型	静态	数组	备 注
地址信息	文本型		0
地址	文本型
关键词位置

编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))
' 调试输出 (编辑框_收件地址.内容)
地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (地址, “省”, , 真)
判断 (关键词位置 ≠ -1)
地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)
' 调试输出 (地址)
编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )
关键词位置 ＝ 寻找文本 (地址, “市”, , 真)
判断 (关键词位置 ≠ -1)
地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)
编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )

子程序名	返回值类型	公开	备 注
_按钮_搜索_被单击

变量名	类 型	静态	数组	备 注
i	整数型
a
是否找到	逻辑型

是否找到 ＝ 假
计次循环首 (列表框1.取项目数 () － 当前查找位置 ＋ 1, i)
调试输出 (当前查找位置, 列表框1.取项目文本 (当前查找位置 ＋ i － 2))
a ＝ 寻找文本 (列表框1.取项目文本 (当前查找位置 ＋ i － 2), 编辑框_搜索框.内容, 1, 假)
判断 (a ≠ -1)
当前查找位置 ＝ i ＋ 当前查找位置
列表框1.现行选中项 ＝ 当前查找位置 － 2
列表框1.刷新显示 ()
是否找到 ＝ 真
跳出循环 ()


' 暂停 ()
计次循环尾 ()
如果真 (是否找到 ＝ 假)
当前查找位置 ＝ 1
信息框 (“找不到被搜索项。”, 0, , )

子程序名	返回值类型	公开	备 注
_选择框_打印邮费_被单击

如果真 (选择框_打印邮费.选中 ＝ 真)
信息框 (“本功能会记录下对应重量和省份,以此作为资费依据.”, 0, , )

子程序名	返回值类型	公开	备 注
_编辑框_寄件重量_内容被改变

变量名	类 型	静态	数组	备 注
地址信息	文本型		0
地址	文本型
关键词位置

' 编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))
' 调试输出 (编辑框_收件地址.内容)
如果真 (到数值 (编辑框_寄件重量.内容) ＝ 0)
返回 ()
地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (地址, “省”, , 真)
判断 (关键词位置 ≠ -1)
地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)
' 调试输出 (地址)
编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )
关键词位置 ＝ 寻找文本 (地址, “市”, , 真)
判断 (关键词位置 ≠ -1)
地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)
编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )

子程序名	返回值类型	公开	备 注
_单选框_自增_被单击

写配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, “自增”)

子程序名	返回值类型	公开	备 注
_单选框_自减_被单击

写配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, “自减”)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) ＋ 1)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) － 1)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

置剪辑板文本 (编辑框_单号.内容)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 被选择文件名, 文本型, , , 不含后缀<br /> .程序集变量 文件路径, 文本型, , , 用于存放打印模板和配置文件<br /> .程序集变量 当前查找位置, , , , 表示列表框的id,<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 单号方式, 文本型<br /> <br /> 皮肤_QQ音乐 ()<br /> 当前查找位置 ＝ 1<br /> 文件路径 ＝ 取运行目录 () ＋ “\打印模板\”<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\tishi.mp3”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\tishi.mp3”, #tishi)<br />     写到文件 (取运行目录 () ＋ “\说明.png”, #shuoming)<br />     执行 (, 取运行目录 () ＋ “\说明.png”, , , )<br /> .如果真结束<br /> 单号方式 ＝ 读配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, )<br /> .判断开始 (单号方式 ＝ “自增”)<br />     单选框_自增.选中 ＝ 真<br />     单选框_自减.选中 ＝ 假<br />     编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) ＋ 1)<br /> .判断 (单号方式 ＝ “自减”)<br />     单选框_自增.选中 ＝ 假<br />     单选框_自减.选中 ＝ 真<br />     编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) － 1)<br /> .默认<br /> <br /> .判断结束<br /> 文件_枚举 (文件路径, “*.grf”, 文件名, 假)<br /> 加载模板文件 (列表框1, 文件名)<br /> 加载配置项到组合框 (组合框1, 文件路径 ＋ “set.ini”, “产品信息”)<br /> <br /> .子程序 加载配置项到组合框<br /> .参数 组合框, 组合框<br /> .参数 配置文件, 文本型<br /> .参数 配置节, 文本型<br /> .局部变量 配置项, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 组合框.清空 ()<br /> 文件_取配置项名数组 (配置文件, 配置节, 配置项)<br /> .计次循环首 (取数组成员数 (配置项), i)<br />     组合框.加入项目 (配置项 <i>, )<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_立即打印_被单击<br /> .局部变量 锐浪报表, 报表<br /> <br /> .如果真 (被选择文件名 ＝ “”)<br />     信息框 (“你还没有选择运营商”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_收件人.内容 ＝ “”)<br />     信息框 (“收件人不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_收件电话.内容 ＝ “”)<br />     信息框 (“收件人电话不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_收件地址.内容 ＝ “”)<br />     信息框 (“收件地址不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (组合框1.内容 ＝ “”)<br />     信息框 (“寄件品名不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_寄件数量.内容 ＝ “”)<br />     信息框 (“寄件数量不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 播放MP3 (1, 取运行目录 () ＋ “\tishi.mp3”)<br /> 保存寄件信息 ()<br /> 锐浪报表.初始化 ()<br /> 锐浪报表.清空 ()<br /> 锐浪报表.从文件加载报表 (文件路径 ＋ 被选择文件名 ＋ “.grf”)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件人”).置字符串值 (编辑框_寄件人.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件地址”).置字符串值 (编辑框_寄件地址.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件电话”).置字符串值 (编辑框_寄件电话.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件品名”).置字符串值 (组合框1.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件数量”).置字符串值 (编辑框_寄件数量.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件重量”).置字符串值 (编辑框_寄件重量.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“备注”).置字符串值 (编辑框_备注信息.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“收件人”).置字符串值 (编辑框_收件人.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“收件地址”).置字符串值 (编辑框_收件地址.内容)<br /> 锐浪报表.获取参数集合 ().获取项目_按名称 (“收件电话”).置字符串值 (编辑框_收件电话.内容)<br /> .如果真 (选择框_打印邮费.选中 ＝ 真)<br />     锐浪报表.获取参数集合 ().获取项目_按名称 (“邮费”).置字符串值 (编辑框_实际邮费.内容)<br /> .如果真结束<br /> ' 锐浪报表.打印预览 (真)<br /> 锐浪报表.打印 (假)<br /> 写配置项 (文件路径 ＋ “客户信息.txt”, “客户信息”, 编辑框_收件电话.内容, 编辑框_收件人.内容 ＋ 字符 (9) ＋ 编辑框_收件地址.内容 ＋ 字符 (9) ＋ 组合框1.内容 ＋ 字符 (9) ＋ 编辑框_寄件数量.内容 ＋ 字符 (9) ＋ 编辑框_备注信息.内容)<br /> ' 鸣叫 ()<br /> ' 调试输出 (“0...................”)<br /> <br /> .子程序 保存寄件信息<br /> .局部变量 收件人地址, 文本型<br /> .局部变量 关键词位置<br /> <br /> 写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件人”, 编辑框_寄件人.内容)<br /> 写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, 编辑框_寄件地址.内容)<br /> 写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, 编辑框_寄件电话.内容)<br /> 写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, 编辑框_单号.内容)<br /> .判断开始 (单选框_自增.选中 ＝ 真)<br />     编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) ＋ 1)<br /> .默认<br />     编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) － 1)<br /> .判断结束<br /> .如果真 (到数值 (编辑框_寄件数量.内容) ＝ 0)<br />     编辑框_寄件数量.内容 ＝ “1”<br /> .如果真结束<br /> 写配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, 到文本 (到数值 (编辑框_寄件重量.内容) ÷ 到数值 (编辑框_寄件数量.内容)))<br /> ' 调试输出 (编辑框_收件地址.内容)<br /> 收件人地址 ＝ 编辑框_收件地址.内容<br /> 关键词位置 ＝ 寻找文本 (收件人地址, “省”, , 真)<br /> .判断开始 (关键词位置 ≠ -1)<br />     收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)<br />     调试输出 (编辑框_收件地址.内容, 关键词位置)<br />     .如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0)<br />         写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)<br />     .如果真结束<br /> <br /> .默认<br />     关键词位置 ＝ 寻找文本 (收件人地址, “市”, , 真)<br />     .判断开始 (关键词位置 ≠ -1)<br />         收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)<br />         .如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0 且 取数组成员数 (关键词位置) ＞ 0)<br />             写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)<br />         .如果真结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> <br /> .子程序 加载模板文件<br /> .参数 列表框, 列表框<br /> .参数 加载数组, 文本型, 数组<br /> .局部变量 数量<br /> .局部变量 i, 整数型<br /> <br /> 数量 ＝ 取数组成员数 (加载数组)<br /> .计次循环首 (数量, i)<br />     列表框.加入项目 (加载数组 <i>, )<br /> .计次循环尾 ()<br /> 列表框.现行选中项 ＝ 0<br /> _列表框1_列表项被选择 ()<br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> 被选择文件名 ＝ 取文本左边 (列表框1.取项目文本 (列表框1.现行选中项), 取文本长度 (列表框1.取项目文本 (列表框1.现行选中项)) － 4)<br /> 图片框1.图片 ＝ 读入文件 (文件路径 ＋ 被选择文件名 ＋ “.png”)<br /> <br /> .子程序 _按钮_自动获取_被单击<br /> .局部变量 预处理文本, 文本型<br /> .局部变量 中间文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数量<br /> .局部变量 地址信息, 文本型, , "0", 地址，邮编，联系人，电话<br /> <br /> 预处理文本 ＝ 取剪辑板文本 () ＋ #换行符<br /> 编辑框2.内容 ＝ 预处理文本<br /> 预处理文本 ＝ 子文本替换 (预处理文本, “ 修改收货信息”, #换行符, , , 真)<br /> 文本_取中间_批量 (预处理文本, “订单编号”, #换行符, 中间文本数组, 假, , “订单编号”, , , , )<br /> .如果真 (取数组成员数 (中间文本数组) ＞ 0)<br />     编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])<br /> .如果真结束<br /> 文本_取中间_批量 (预处理文本, “口味：”, #换行符, 中间文本数组, 假, , “口味:”)<br /> .如果真 (取数组成员数 (中间文本数组) ＞ 0)<br />     编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])<br /> .如果真结束<br /> 文本_取中间_批量 (预处理文本, “ × ”, #换行符, 中间文本数组, 假)<br /> .计次循环首 (取数组成员数 (中间文本数组), i)<br />     数量 ＝ 数量 ＋ 到数值 (中间文本数组 <i>)<br /> .计次循环尾 ()<br /> 编辑框_寄件数量.内容 ＝ 到文本 (数量)<br /> 文本_取中间_批量 (预处理文本, “买家收货信息：”, #换行符, 中间文本数组, 假, , , , , , )<br /> 调试输出 (中间文本数组)<br /> .如果真 (取数组成员数 (中间文本数组) ＞ 0)<br />     .判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)<br />         删除成员 (中间文本数组, 1, )<br />     .判断循环尾 ()<br />     地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )<br />     调试输出 (地址信息)<br />     .如果真 (取数组成员数 (地址信息) ≥ 4)<br />         编辑框_收件地址.内容 ＝ 删首尾空 (地址信息 [1])<br />         编辑框_收件人.内容 ＝ 删首尾空 (地址信息 [3])<br />         编辑框_收件电话.内容 ＝ 删首尾空 (地址信息 [4])<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .判断开始 (选择框_只获取寄件信息.选中 ＝ 真)<br />     编辑框_寄件人.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件人”, )<br />     编辑框_寄件地址.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, )<br />     编辑框_寄件电话.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, )<br /> .默认<br />     文本_取中间_批量 (预处理文本, “我的发货信息：” ＋ #换行符, #换行符, 中间文本数组, 假)<br />     .如果真 (取数组成员数 (中间文本数组) ＞ 0)<br />         .判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)<br />             删除成员 (中间文本数组, 1, )<br />         .判断循环尾 ()<br />         地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )<br />         调试输出 (地址信息)<br />         .如果真 (取数组成员数 (地址信息) ≥ 4)<br />             编辑框_寄件地址.内容 ＝ 删首尾空 (地址信息 [1])<br />             编辑框_寄件人.内容 ＝ 删首尾空 (地址信息 [3])<br />             编辑框_寄件电话.内容 ＝ 删首尾空 (地址信息 [4])<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))<br /> <br /> .子程序 _编辑框_寄件数量_内容被改变<br /> .局部变量 地址信息, 文本型, , "0"<br /> .局部变量 地址, 文本型<br /> .局部变量 关键词位置<br /> <br /> 编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))<br /> ' 调试输出 (编辑框_收件地址.内容)<br /> 地址 ＝ 编辑框_收件地址.内容<br /> 关键词位置 ＝ 寻找文本 (地址, “省”, , 真)<br /> .判断开始 (关键词位置 ≠ -1)<br />     地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)<br />     ' 调试输出 (地址)<br />     编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )<br /> .默认<br />     关键词位置 ＝ 寻找文本 (地址, “市”, , 真)<br />     .判断开始 (关键词位置 ≠ -1)<br />         地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)<br />         编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )<br />     .默认<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮_搜索_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 a<br /> .局部变量 是否找到, 逻辑型<br /> <br /> 是否找到 ＝ 假<br /> .计次循环首 (列表框1.取项目数 () － 当前查找位置 ＋ 1, i)<br />     调试输出 (当前查找位置, 列表框1.取项目文本 (当前查找位置 ＋ i － 2))<br />     a ＝ 寻找文本 (列表框1.取项目文本 (当前查找位置 ＋ i － 2), 编辑框_搜索框.内容, 1, 假)<br />     .判断开始 (a ≠ -1)<br />         当前查找位置 ＝ i ＋ 当前查找位置<br />         列表框1.现行选中项 ＝ 当前查找位置 － 2<br />         列表框1.刷新显示 ()<br />         是否找到 ＝ 真<br />         跳出循环 ()<br />     .默认<br /> <br />     .判断结束<br />     ' 暂停 ()<br /> .计次循环尾 ()<br /> .如果真 (是否找到 ＝ 假)<br />     当前查找位置 ＝ 1<br />     信息框 (“找不到被搜索项。”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框_打印邮费_被单击<br /> <br /> .如果真 (选择框_打印邮费.选中 ＝ 真)<br />     信息框 (“本功能会记录下对应重量和省份,以此作为资费依据.”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _编辑框_寄件重量_内容被改变<br /> .局部变量 地址信息, 文本型, , "0"<br /> .局部变量 地址, 文本型<br /> .局部变量 关键词位置<br /> <br /> ' 编辑框_寄件重量.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, )) × 到数值 (编辑框_寄件数量.内容))<br /> ' 调试输出 (编辑框_收件地址.内容)<br /> .如果真 (到数值 (编辑框_寄件重量.内容) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 地址 ＝ 编辑框_收件地址.内容<br /> 关键词位置 ＝ 寻找文本 (地址, “省”, , 真)<br /> .判断开始 (关键词位置 ≠ -1)<br />     地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)<br />     ' 调试输出 (地址)<br />     编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )<br /> .默认<br />     关键词位置 ＝ 寻找文本 (地址, “市”, , 真)<br />     .判断开始 (关键词位置 ≠ -1)<br />         地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)<br />         编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )<br />     .默认<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _单选框_自增_被单击<br /> <br /> 写配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, “自增”)<br /> <br /> .子程序 _单选框_自减_被单击<br /> <br /> 写配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, “自减”)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) ＋ 1)<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) － 1)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 置剪辑板文本 (编辑框_单号.内容)

hehehero

点我下载_快递单打印软件

你呆哪哪凉块

感谢分享了

蒲公半岛

路过看看看

171796163

路过看一看

hbyb

感谢分享!!!

gaoqing

谢谢分享支持开源

daydayup163

下载地址是这个. http://qe96.com/myapp/opensource/KuaiDiDanDaYing.7z

商务

感谢分享

jlSystem

这个666的，很实用。不错的