快递多线程批量查询工具源码

欲保存 ＝ “”
.计次循环首 (超级列表框1.取表项数 (), n)
.如果 (欲保存 ＝ “”)
欲保存 ＝ 超级列表框1.取标题 (n － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (n － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (n － 1, 3)
.否则
欲保存 ＝ 欲保存 ＋ #换行符 ＋ 超级列表框1.取标题 (n － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (n － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (n － 1, 3)
.如果结束

.计次循环尾 ()
通用对话框1.过滤器 ＝ “文本文档(*.txt)|*.txt”
通用对话框1.类型 ＝ 1
通用对话框1.默认文件后缀 ＝ “*.txt”
.如果真 (欲保存 ＝ “”)
信息框 (“没有可保存的单号！”, #错误图标, , )
返回 ()
.如果真结束
.如果真 (通用对话框1.打开 () ＝ 真)
.如果真 (写到文件 (通用对话框1.文件名, 到字节集 (欲保存)))
信息框 (“保存成功！”, #信息图标, )
返回 ()
.如果真结束
信息框 (“保存失败！”, #错误图标, )