自动汉化辅助工具

君九

主窗口组件

• 编辑框_目录
• 编辑框_原文
• 编辑框_译文
• 超级列表框1
• 按钮_选择目录
• 按钮_提取文本
• 按钮_翻译
• 按钮_创建汉化补丁
• 按钮_设置
• 标签_文件数
  

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
工作目录	文本型
翻译缓存	文本型	0

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

工作目录 ＝ 取运行目录 ()
创建目录 (工作目录 ＋ “\汉化工作”)

子程序名	返回值类型	公开	备 注
_按钮_选择目录_被单击

变量名	类 型	静态	数组	备 注
目录路径	文本型

目录路径 ＝ 浏览文件夹 (“请选择包含待处理文件的目录”, )
如果真 (目录路径 ≠ “”)
工作目录 ＝ 目录路径
编辑框_目录.内容 ＝ 工作目录
扫描目录文件 (工作目录)

子程序名	返回值类型	公开	备 注
扫描目录文件
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
文件数量	整数型
i	整数型
文件类型	文本型
列表索引	整数型

超级列表框1.全部删除 ()
文件_枚举 (目录路径, “*.exe;*.dll;*.txt;*.ini;*.xml”, 文件数组, 真, 真, 真)
文件数量 ＝ 取数组成员数 (文件数组)
计次循环首 (文件数量, i)
文件类型 ＝ 文件_取扩展名 (文件数组 [i])
列表索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (列表索引, 0, 到文本 (列表索引 ＋ 1))
超级列表框1.置标题 (列表索引, 1, 文件_取文件名 (文件数组 [i]))
超级列表框1.置标题 (列表索引, 2, 文件类型)
超级列表框1.置标题 (列表索引, 3, 文件数组 [i])
计次循环尾 ()
标签_文件数.标题 ＝ “共找到 ” ＋ 到文本 (文件数量) ＋ “ 个文件”

子程序名	返回值类型	公开	备 注
_按钮_提取文本_被单击

变量名	类 型	静态	数组	备 注
索引	整数型
文件路径	文本型
提取结果	文本型

索引 ＝ 超级列表框1.现行选中项
如果真 (索引 ＝ -1)
信息框 (“请先选择一个文件！”, 0, “提示”, )
返回

文件路径 ＝ 超级列表框1.取标题 (索引, 3)
提取结果 ＝ 提取文本资源 (文件路径)
编辑框_原文.内容 ＝ 提取结果

子程序名	返回值类型	公开	备 注
提取文本资源	文本型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
文件内容	字节集
文本内容	文本型
扩展名	文本型

扩展名 ＝ 到大写 (文件_取扩展名 (文件路径))
判断 (扩展名 ＝ “.TXT” 或 扩展名 ＝ “.INI” 或 扩展名 ＝ “.XML”)
文本内容 ＝ 到文本 (读入文件 (文件路径))
判断 (扩展名 ＝ “.EXE” 或 扩展名 ＝ “.DLL”)
文本内容 ＝ “# 可执行文件需要专门的资源提取工具” ＋ #换行符
文本内容 ＝ 文本内容 ＋ “# 建议使用：” ＋ #换行符
文本内容 ＝ 文本内容 ＋ “# 1. Resource Hacker” ＋ #换行符
文本内容 ＝ 文本内容 ＋ “# 2. GetText工具” ＋ #换行符
文本内容 ＝ 文本内容 ＋ “# 3. Poedit” ＋ #换行符
文本内容 ＝ “不支持的文件类型：” ＋ 扩展名

返回 文本内容

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

变量名	类 型	静态	数组	备 注
原文	文本型
译文	文本型

原文 ＝ 编辑框_原文.内容
如果真 (原文 ＝ “”)
信息框 (“没有要翻译的内容！”, 0, “提示”, )
返回

译文 ＝ 调用翻译服务 (原文)
编辑框_译文.内容 ＝ 译文

子程序名	返回值类型	公开	备 注
调用翻译服务	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
译文	文本型
行数组	文本型		0
行数	整数型
i	整数型
单行	文本型

如果真 (原文 ＝ “”)
返回 “”

行数组 ＝ 分割文本 (原文, #换行符, )
行数 ＝ 取数组成员数 (行数组)
译文 ＝ “”
计次循环首 (行数, i)
单行 ＝ 行数组 [i]
如果真 (单行 ≠ “”)
' 这里是翻译逻辑，实际使用时可以调用翻译API
' 示例：简单的关键词替换
单行 ＝ 子文本替换 (单行, “Error”, “错误”, , , 真)
单行 ＝ 子文本替换 (单行, “Warning”, “警告”, , , 真)
单行 ＝ 子文本替换 (单行, “Success”, “成功”, , , 真)
单行 ＝ 子文本替换 (单行, “File”, “文件”, , , 真)
单行 ＝ 子文本替换 (单行, “Open”, “打开”, , , 真)
单行 ＝ 子文本替换 (单行, “Save”, “保存”, , , 真)
译文 ＝ 译文 ＋ 单行 ＋ #换行符

计次循环尾 ()
返回 译文

子程序名	返回值类型	公开	备 注
_按钮_创建汉化补丁_被单击

变量名	类 型	静态	数组	备 注
补丁路径	文本型
补丁内容	文本型
补丁名称	文本型

补丁名称 ＝ 取日期时间文本 (取现行时间 ())
补丁名称 ＝ 子文本替换 (补丁名称, “:”, “”, , , 真)
补丁名称 ＝ 子文本替换 (补丁名称, “ ”, “_”, , , 真)
补丁路径 ＝ 工作目录 ＋ “\汉化补丁_” ＋ 补丁名称 ＋ “.txt”
补丁内容 ＝ “=== 汉化补丁说明 ===” ＋ #换行符
补丁内容 ＝ 补丁内容 ＋ “生成时间：” ＋ 到文本 (取现行时间 ()) ＋ #换行符
补丁内容 ＝ 补丁内容 ＋ “汉化内容：” ＋ #换行符
补丁内容 ＝ 补丁内容 ＋ 编辑框_译文.内容
如果 (写到文件 (补丁路径, 到字节集 (补丁内容)))
信息框 (“汉化补丁已创建到：” ＋ #换行符 ＋ 补丁路径, 0, “成功”, )
信息框 (“创建失败！”, 0, “错误”, )

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

变量名	类 型	静态	数组	备 注
设置窗口	窗口
结果	整数型

载入 (设置窗口, , 真)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
eMMedia	多媒体支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 eMMedia<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 工作目录, 文本型<br /> .程序集变量 翻译缓存, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 工作目录 ＝ 取运行目录 ()<br /> 创建目录 (工作目录 ＋ “\汉化工作”)<br /> <br /> .子程序 _按钮_选择目录_被单击<br /> .局部变量 目录路径, 文本型<br /> <br /> 目录路径 ＝ 浏览文件夹 (“请选择包含待处理文件的目录”, )<br /> .如果真 (目录路径 ≠ “”)<br />     工作目录 ＝ 目录路径<br />     编辑框_目录.内容 ＝ 工作目录<br />     扫描目录文件 (工作目录)<br /> .如果真结束<br /> <br /> .子程序 扫描目录文件<br /> .参数 目录路径, 文本型<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 文件数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文件类型, 文本型<br /> .局部变量 列表索引, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 文件_枚举 (目录路径, “*.exe;*.dll;*.txt;*.ini;*.xml”, 文件数组, 真, 真, 真)<br /> 文件数量 ＝ 取数组成员数 (文件数组)<br /> <br /> .计次循环首 (文件数量, i)<br />     文件类型 ＝ 文件_取扩展名 (文件数组 <i>)<br />     列表索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (列表索引, 0, 到文本 (列表索引 ＋ 1))<br />     超级列表框1.置标题 (列表索引, 1, 文件_取文件名 (文件数组 <i>))<br />     超级列表框1.置标题 (列表索引, 2, 文件类型)<br />     超级列表框1.置标题 (列表索引, 3, 文件数组 <i>)<br /> .计次循环尾 ()<br /> <br /> 标签_文件数.标题 ＝ “共找到 ” ＋ 到文本 (文件数量) ＋ “ 个文件”<br /> <br /> .子程序 _按钮_提取文本_被单击<br /> .局部变量 索引, 整数型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 提取结果, 文本型<br /> <br /> 索引 ＝ 超级列表框1.现行选中项<br /> .如果真 (索引 ＝ -1)<br />     信息框 (“请先选择一个文件！”, 0, “提示”, )<br />     返回<br /> .如果真结束<br /> <br /> 文件路径 ＝ 超级列表框1.取标题 (索引, 3)<br /> 提取结果 ＝ 提取文本资源 (文件路径)<br /> 编辑框_原文.内容 ＝ 提取结果<br /> <br /> .子程序 提取文本资源, 文本型<br /> .参数 文件路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件内容, 字节集<br /> .局部变量 文本内容, 文本型<br /> .局部变量 扩展名, 文本型<br /> <br /> 扩展名 ＝ 到大写 (文件_取扩展名 (文件路径))<br /> <br /> .判断开始 (扩展名 ＝ “.TXT” 或 扩展名 ＝ “.INI” 或 扩展名 ＝ “.XML”)<br />     文本内容 ＝ 到文本 (读入文件 (文件路径))<br /> .判断 (扩展名 ＝ “.EXE” 或 扩展名 ＝ “.DLL”)<br />     文本内容 ＝ “# 可执行文件需要专门的资源提取工具” ＋ #换行符<br />     文本内容 ＝ 文本内容 ＋ “# 建议使用：” ＋ #换行符<br />     文本内容 ＝ 文本内容 ＋ “# 1. Resource Hacker” ＋ #换行符<br />     文本内容 ＝ 文本内容 ＋ “# 2. GetText工具” ＋ #换行符<br />     文本内容 ＝ 文本内容 ＋ “# 3. Poedit” ＋ #换行符<br /> .默认<br />     文本内容 ＝ “不支持的文件类型：” ＋ 扩展名<br /> .判断结束<br /> <br /> 返回 文本内容<br /> <br /> .子程序 _按钮_翻译_被单击<br /> .局部变量 原文, 文本型<br /> .局部变量 译文, 文本型<br /> <br /> 原文 ＝ 编辑框_原文.内容<br /> .如果真 (原文 ＝ “”)<br />     信息框 (“没有要翻译的内容！”, 0, “提示”, )<br />     返回<br /> .如果真结束<br /> <br /> 译文 ＝ 调用翻译服务 (原文)<br /> 编辑框_译文.内容 ＝ 译文<br /> <br /> .子程序 调用翻译服务, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 译文, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 单行, 文本型<br /> <br /> .如果真 (原文 ＝ “”)<br />     返回 “”<br /> .如果真结束<br /> <br /> 行数组 ＝ 分割文本 (原文, #换行符, )<br /> 行数 ＝ 取数组成员数 (行数组)<br /> 译文 ＝ “”<br /> <br /> .计次循环首 (行数, i)<br />     单行 ＝ 行数组 <i><br />     .如果真 (单行 ≠ “”)<br />         ' 这里是翻译逻辑，实际使用时可以调用翻译API<br />         ' 示例：简单的关键词替换<br />         单行 ＝ 子文本替换 (单行, “Error”, “错误”, , , 真)<br />         单行 ＝ 子文本替换 (单行, “Warning”, “警告”, , , 真)<br />         单行 ＝ 子文本替换 (单行, “Success”, “成功”, , , 真)<br />         单行 ＝ 子文本替换 (单行, “File”, “文件”, , , 真)<br />         单行 ＝ 子文本替换 (单行, “Open”, “打开”, , , 真)<br />         单行 ＝ 子文本替换 (单行, “Save”, “保存”, , , 真)<br />         译文 ＝ 译文 ＋ 单行 ＋ #换行符<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> 返回 译文<br /> <br /> .子程序 _按钮_创建汉化补丁_被单击<br /> .局部变量 补丁路径, 文本型<br /> .局部变量 补丁内容, 文本型<br /> .局部变量 补丁名称, 文本型<br /> <br /> 补丁名称 ＝ 取日期时间文本 (取现行时间 ())<br /> 补丁名称 ＝ 子文本替换 (补丁名称, “:”, “”, , , 真)<br /> 补丁名称 ＝ 子文本替换 (补丁名称, “ ”, “_”, , , 真)<br /> 补丁路径 ＝ 工作目录 ＋ “\汉化补丁_” ＋ 补丁名称 ＋ “.txt”<br /> <br /> 补丁内容 ＝ “=== 汉化补丁说明 ===” ＋ #换行符<br /> 补丁内容 ＝ 补丁内容 ＋ “生成时间：” ＋ 到文本 (取现行时间 ()) ＋ #换行符<br /> 补丁内容 ＝ 补丁内容 ＋ “汉化内容：” ＋ #换行符<br /> 补丁内容 ＝ 补丁内容 ＋ 编辑框_译文.内容<br /> <br /> .如果 (写到文件 (补丁路径, 到字节集 (补丁内容)))<br />     信息框 (“汉化补丁已创建到：” ＋ #换行符 ＋ 补丁路径, 0, “成功”, )<br /> .否则<br />     信息框 (“创建失败！”, 0, “错误”, )<br /> .如果结束<br /> <br /> .子程序 _按钮_设置_被单击<br /> .局部变量 设置窗口, 窗口<br /> .局部变量 结果, 整数型<br /> <br /> 载入 (设置窗口, , 真)

zhouli888

谢谢分享

futiem

#在这里快速回复#适合使用 ini  以及类似的 语言包的软件，感谢分享

kyo9766

新思路，适合使用 ini  以及类似的 语言包的软件，感谢分享

陈治勤

666666666666666

胖子葛格

感谢大神分享~！

myface

直接上.e源码，观感好一点。感谢分享

lm88818

感谢分享，很给力！~

lqylbh

感谢分享