.版本 2 .支持库 spec .支持库 iext .支持库 EThread .支持库 shell .程序集 窗口程序集1 .程序集变量 线程句柄, 整数型 .程序集变量 文件, 文本型, , "0" .程序集变量 文件名, 文本型 .程序集变量 文件夹, 文本型 .程序集变量 最终文件名, 文本型 .程序集变量 扩展名2, 文本型 .程序集变量 扩展名3, 文本型 .程序集变量 扩展名, 文本型 .子程序 __启动窗口_创建完毕 .子程序 翻译, 文本型, 公开 .参数 内容, 文本型 .局部变量 提交地址, 文本型 .局部变量 提交数据, 文本型 .局部变量 返回文本, 文本型 .局部变量 待翻译的文本, 文本型 .局部变量 需要转换, 逻辑型 需要转换 ＝ 假 .判断开始 (内容 ＝ “”) 返回 (“翻译失败”) .默认 待翻译的文本 ＝ 内容 提交地址 ＝ “//fanyi.baidu.com/v2transapi” .如果 (文本_是否为汉字 (内容) ＝ 真) 调试输出 (“汉字到英文!”) 提交数据 ＝ “from=zh&to=en&query=” ＋ 编码_URL编码 (待翻译的文本, , 真) ＋ “&transtype=trans” .否则 提交数据 ＝ “from=en&to=zh&query=” ＋ 待翻译的文本 ＋ “&transtype=trans” 调试输出 (“英文到汉字!”) 需要转换 ＝ 真 .如果结束 返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (提交地址, 1, 提交数据)) ' 调试输出 (返回文本) 返回文本 ＝ 文本_取出中间文本 (返回文本, #常量1, #常量2, , ) ' 调试输出 (返回文本) .如果真 (需要转换 ＝ 真) 返回文本 ＝ 编码_usc2到ansi (返回文本) .如果真结束 .如果 (取文本长度 (返回文本) ＞ 0) 返回 (返回文本) .否则 返回 (“翻译失败!”) .如果结束 .判断结束 .子程序 _按钮2_被单击 超级列表框1.全部删除 () 启动线程 (&搜索, , 线程句柄) .子程序 搜索 .局部变量 次数, 整数型 .局部变量 索引, 整数型 文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “\*” ＋ 编辑框2.内容, 32) .判断循环首 (文件名 ≠ “”) 索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , ) 文件名 ＝ 寻找文件 (, ) .判断循环尾 () 文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “\*” ＋ 编辑框3.内容, 32) .判断循环首 (文件名 ≠ “”) 索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , ) 文件名 ＝ 寻找文件 (, ) .判断循环尾 () 文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “\*” ＋ 编辑框4.内容, 32) .判断循环首 (文件名 ≠ “”) 索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , ) 文件名 ＝ 寻找文件 (, ) .判断循环尾 () 改名 () .子程序 _按钮1_被单击 编辑框1.内容 ＝ 浏览文件夹 (“要打开的目录”, ) .子程序 改名 .局部变量 i, 整数型 .局部变量 位置索引, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 新文件名, 文本型 .局部变量 c, 整数型 .局部变量 d, 整数型 .局部变量 文件名s, 文本型 .局部变量 待翻译标题, 文本型 扩展名 ＝ 编辑框2.内容 扩展名2 ＝ 编辑框3.内容 扩展名3 ＝ 编辑框4.内容 b ＝ 超级列表框1.取表项数 () .计次循环首 (b, i) .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名) ＞ 0) 待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名, , 真) 新文件名 ＝ 翻译 (待翻译标题) 超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名) .如果真结束 .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名2) ＞ 0) 调试输出 (扩展名2) 待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名2, , 真) 新文件名 ＝ 翻译 (待翻译标题) 超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名2) .如果真结束 .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名3) ＞ 0) 待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名3, , 真) 新文件名 ＝ 翻译 (待翻译标题) 超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名3) .如果真结束 .计次循环尾 () .子程序 _按钮3_被单击 .如果 (超级列表框1.取表项数 () ＞ 0) 启动线程 (&进行改名, , ) .否则 信息框 (“请先选择文件目录”, 4096, “提示”) .如果结束 .子程序 进行改名 .局部变量 i, 整数型 .局部变量 a, 整数型 a ＝ 超级列表框1.取表项数 () 进度条1.最大位置 ＝ a .计次循环首 (a, i) 进度条1.位置 ＝ i 文件更名 (编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 0), 编辑框1.内容 ＋ “\” ＋ 超级列表框1.取标题 (i － 1, 1)) .计次循环尾 () .如果真 (信息框 (“批量更名完成。”, 4096, “提示”) ＝ #确认钮) 进度条1.位置 ＝ 0 .如果真结束 .子程序 _超级列表框1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 S, 文本型 .如果真 (输入框 (“输入要改的内容”, “提示”, 超级列表框1.取标题 (超级列表框1.现行选中项, 1), S, )) 超级列表框1.置标题 (超级列表框1.现行选中项, 1, S) .如果真结束 .子程序 __启动窗口_尺寸被改变 超级列表框1.宽度 ＝ _启动窗口.宽度 － (482 － 464) 超级列表框1.高度 ＝ _启动窗口.高度 － (488 － 296) 超级列表框1.置列宽 (0, 超级列表框1.宽度 ÷ 2 － 2) 超级列表框1.置列宽 (1, 超级列表框1.宽度 ÷ 2 － 2) 分组框1.顶边 ＝ _启动窗口.高度 － 110 .子程序 _导出_被选择 .局部变量 i, 整数型 .局部变量 文本, 文本型 .局部变量 总文本, 文本型 总文本 ＝ “” .计次循环首 (超级列表框1.取表项数 (), i) 文本 ＝ 超级列表框1.取标题 (i － 1, 1) 总文本 ＝ 总文本 ＋ 文本 ＋ #换行符 .计次循环尾 () 写到文件 (取运行目录 () ＋ “\待改文本 - ” ＋ 到文本 (取现行时间 ()) ＋ “.txt”, 到字节集 (总文本)) .子程序 _导入_被选择 .局部变量 文本, 文本型, , "0" .局部变量 i, 整数型 通用对话框1.类型 ＝ 0 .如果真 (通用对话框1.打开 ()) 文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, ) .计次循环首 (取数组成员数 (文本), i) 处理事件 () .如果真 (文本 [i] ≠ “”) 超级列表框1.置标题 (i － 1, 1, 文本 [i]) .如果真结束 .计次循环尾 () .如果真结束 .子程序 _超级列表框1_右键单击表项 弹出菜单 (菜单, , )