|
分享源码
界面截图: |
- |
是否带模块: |
调用了模块 |
备注说明: |
- |
本帖最后由 经常修电脑 于 2016-11-22 17:38 编辑
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 按下F1 | 整数型 | | 按下Esc | 整数型 | | 按下Home | 整数型 | | 如果真 (是否与互联网连接 () = 假)信息框 (“本程序为在线翻译,请连接互联网后使用!”, 16, “请连接互联网”, )结束 ()_启动窗口.高度 = 195按下F1 = 注册热键 (_启动窗口. 取窗口句柄 (), 标签1. 取窗口句柄 (), 0, #F1键 )按下Esc = 注册热键 (_启动窗口. 取窗口句柄 (), 标签1. 取窗口句柄 (), 0, #Esc键 )按下Home = 注册热键 (_启动窗口. 取窗口句柄 (), 标签1. 取窗口句柄 (), 0, #Home键 )返回来的数据 = 提交有道词典数据 (编辑框1.内容 )如果 (返回来的数据 = “”)提示框 (“没能获取到数据” + #换行符 + “请检查网络、防火墙和杀毒软件是否对本程序拦截。”, 64, “翻译失败”, )拆分处理 (返回来的数据 )
剩下的代码回复一下就可以看
不算过分吧
变量名 | 类 型 | 静态 | 数组 | 备 注 | 欲翻译的内容 | 文本型 | | | 返回的数据 | 文本型 | | | keyfrom | 文本型 | | | key | 文本型 | | | 版本 | 文本型 | | |
按钮1.禁止 = 真 按钮1.标题 = “正在接收数据…”keyfrom = “zhuomianfy” key = “796928604”版本 = “1.1” 欲翻译的内容 = 编码_URL编码 (编码_gb2312到utf8 (翻译的内容 )) 返回的数据 = 到文本 (HTTP读文件 (“http://fanyi.youdao.com/openapi.do?keyfrom=” + keyfrom + “&key=” + key + “&type=data&doctype=json&version=” + 版本 + “&q=” + 欲翻译的内容 )) 调试输出 (“转码前的返回数据:” + 返回的数据 )返回的数据 = 编码_utf8到gb2312 (编码_URL解码 (返回的数据 )) 调试输出 (“转码后的返回数据:” + 返回的数据 )返回 (返回的数据 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 临时组 | 文本型 | | 0 | 计次 | 整数型 | | | 临时错误代码 | 文本型 | | |
按钮1.标题 = “正在分类处理…”如果 (返回数据 = “no query”)提示框 (“请正确输入要翻译的内容”, 16, “翻译失败”, )按钮1.禁止 = 假 按钮1.标题 = “翻译”返回 ()编辑框2.内容 = “”编辑框3.内容 = “”错误代码 = 取文本右边 (返回数据, 取文本长度 (返回数据 ) - 寻找文本 (返回数据, #错误代码1, , 假) - 取文本长度 ( #错误代码1 ) + 1 ) 错误代码 = 取文本左边 (错误代码, 1 )调试输出 (“错误代码:” + 错误代码 )如果真 (错误代码 ≠ “0”) 如果 (错误代码 = “2”) 提示框 (“要翻译的文本过长”, 48, “翻译失败”, )如果 (错误代码 = “3”) 提示框 (“无法进行有效的翻译”, 48, “翻译失败”, )如果 (错误代码 = “4”) 提示框 (“不支持的语言类型”, 48, “翻译失败”, )如果 (错误代码 = “5”) 提示框 (“无效的key”, 48, “翻译失败”, )如果 (错误代码 = “6”) 提示框 (“无词典结果”, 48, “翻译失败”, )按钮1.禁止 = 假按钮1.标题 = “翻译”返回 ()原文本 = 取中间字 (返回数据, #原文1, #原文2 ) 调试输出 (“原文本:” + 原文本 )翻译后的文本 = 取中间字 (返回数据, #翻译后1, #翻译后2 ) 临时组 = 分割文本 (翻译后的文本, #双撇号 + “,” + #双撇号, )翻译后的文本 = “”计次 = 0 计次循环首 (取数组成员数 (临时组 ), 计次 )翻译后的文本 = 翻译后的文本 + 子文本替换 (临时组 [计次 ], #双撇号, “”, , , 真) + #换行符 计次循环尾 ()翻译后的文本 = 取文本左边 (翻译后的文本, 取文本长度 (翻译后的文本 ) - 1 ) 编辑框2.内容 = 翻译后的文本 调试输出 (“翻译后的文本:” + 翻译后的文本 )解释 = 取中间字 (返回数据, #解释1, #解释2 ) 临时组 = 分割文本 (解释, #双撇号, )解释 = “”计次 = 0 计次循环首 (取数组成员数 (临时组 ), 计次 )如果真 (临时组 [计次 ] ≠ “,”)解释 = 解释 + 临时组 [计次 ] + #换行符 计次循环尾 ()如果真 (解释 = “-1” + #换行符 )编辑框3.可视 = 假 解释 = “无详细释意”编辑框3.内容 = “解释:” + #换行符 + 解释调试输出 (“解释为:” + 解释 )网络解释 = “{” + 取中间字 (返回数据, #网络解释1, #网络解释2 ) + “}” 临时组 = 分割文本 (网络解释, “}”, )网络解释 = “”计次 = 0 计次循环首 (取数组成员数 (临时组 ), 计次 )网络解释 = 网络解释 + 取中间字 (临时组 [计次 ], #网络解释3, #网络解释4 ) + “——” + 取中间字 (临时组 [计次 ], #网络解释5, #网络解释6 ) + #换行符 计次循环尾 ()如果真 (网络解释 = “-1——-1” + #换行符 )网络解释 = “无网络释意”调试输出 (“网络解释:” + 网络解释)编辑框3.内容 = 编辑框3.内容 + #换行符 + #换行符 + “网络释义:” + #换行符 + 网络解释 如果 (寻找文本 (编辑框3.内容, “无详细释意”, , 假) ≠ -1 且 寻找文本 (编辑框3.内容, “无网络释意”, , 假) ≠ -1 ) _启动窗口.高度 = 195 编辑框3.可视 = 假 _启动窗口.高度 = 323 编辑框3.可视 = 真 按钮1.禁止 = 假 按钮1.标题 = “翻译”|
取中间字 | 文本型 | | |
被取的文本 | 文本型 | | | | 前面的文本 | 文本型 | | | | 后面的文本 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 被取文本长度 | 整数型 | | | 前面文本所在位置 | 整数型 | | | 前面文本长度 | 整数型 | | | 后面文本所在位置 | 整数型 | | | 右全部 | 文本型 | | | 左全部 | 文本型 | | |
被取文本长度 = 取文本长度 (被取的文本 )前面文本所在位置 = 寻找文本 (被取的文本, 前面的文本, , 假)如果 (前面文本所在位置 = -1 )返回 (“-1”)前面文本长度 = 取文本长度 (前面的文本 )右全部 = 取文本右边 (被取的文本, 被取文本长度 - 前面文本长度 - 前面文本所在位置 + 1 ) 后面文本所在位置 = 寻找文本 (右全部, 后面的文本, , 假)如果 (后面文本所在位置 = -1 )返回 (“-1”)左全部 = 取文本左边 (右全部, 后面文本所在位置 - 1 ) 返回 (左全部 )取中间字 (“123”, “1”, “3”)|
_标签1_反馈事件 | 整数型 | | |
参数一 | 整数型 | | | | 参数二 | 整数型 | | | | 如果 (参数一 = 按下F1 ) 剪辑版内容 = 取剪辑板文本 ()编辑框1.内容 = 剪辑版内容 拆分处理 (提交有道词典数据 (剪辑版内容 )) 如果 (参数一 = 按下Esc ) 编辑框1.内容 = “”如果 (参数一 = 按下Home ) 如果 (_启动窗口.可视 = 假)_启动窗口.可视 = 真 置托盘图标 (, )_启动窗口.可视 = 假 置托盘图标 ( #翻译图标, “Home键显示/隐藏” + #换行符 + “F1翻译剪辑版内容” + #换行符 + “Esc清空内容”)如果 (选择框1.选中 = 真)_启动窗口.总在最前 = 真 _启动窗口.总在最前 = 假
附件下载:
有道api在线翻译大量注释.rar
(716.77 KB, 下载次数: 176)
|
评分
-
参与人数 1 | 好评 +1 |
精币 +5 |
收起
理由
|
冰点
| + 1 |
+ 5 |
感谢发布原创作品,精易因你更精彩! |
查看全部评分
|