有道在线翻译API接口调用数据分析，大量注释，学习例子

经常修电脑

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
按下F1	整数型
按下Esc	整数型
按下Home	整数型

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

如果真 (是否与互联网连接 () ＝ 假)
信息框 (“本程序为在线翻译，请连接互联网后使用！”, 16, “请连接互联网”, )
结束 ()
_启动窗口.高度 ＝ 195
按下F1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键 )
按下Esc ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键 )
按下Home ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Home键 )

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

变量名	类 型	静态	数组	备 注
返回来的数据	文本型

返回来的数据 ＝ 提交有道词典数据 (编辑框1.内容)
如果 (返回来的数据 ＝ “”)
提示框 (“没能获取到数据” ＋ #换行符 ＋ “请检查网络、防火墙和杀毒软件是否对本程序拦截。”, 64, “翻译失败”, )
拆分处理 (返回来的数据)

i支持库列表	支持库注释
eAPI	应用接口支持库
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 eAPI<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 按下F1, 整数型<br /> .程序集变量 按下Esc, 整数型<br /> .程序集变量 按下Home, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (是否与互联网连接 () ＝ 假)<br />     信息框 (“本程序为在线翻译，请连接互联网后使用！”, 16, “请连接互联网”, )<br />     结束 ()<br /> .如果真结束<br /> _启动窗口.高度 ＝ 195<br /> 按下F1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)<br /> 按下Esc ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)<br /> 按下Home ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Home键)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回来的数据, 文本型<br /> <br /> 返回来的数据 ＝ 提交有道词典数据 (编辑框1.内容)<br /> .如果 (返回来的数据 ＝ “”)<br />     提示框 (“没能获取到数据” ＋ #换行符 ＋ “请检查网络、防火墙和杀毒软件是否对本程序拦截。”, 64, “翻译失败”, )<br /> .否则<br />     拆分处理 (返回来的数据)

剩下的代码回复一下就可以看
不算过分吧

  

子程序名	返回值类型	公开	备 注
提交有道词典数据	文本型
参数名	类 型	参考	可空	数组	备 注
翻译的内容	文本型				需要翻译的内容

变量名	类 型	静态	数组	备 注
欲翻译的内容	文本型
返回的数据	文本型
keyfrom	文本型
key	文本型
版本	文本型			1.1

按钮1.禁止 ＝ 真
按钮1.标题 ＝ “正在接收数据…”
keyfrom ＝ “zhuomianfy”  ' 这3个数据可以在“http://fanyi.youdao.com/openapi?path=data-mode”这个网址获取。
key ＝ “796928604”
版本 ＝ “1.1”
' 下面是发送数据给有道词典并接收返回的数据解码后给其他地方调用
' 前面给的网址上有说：欲翻译的内容必须是utf8码，而且要进行url编码，发送数据先转码到utf8，在url编码后发送。
' 接收的数据是先url解码，再进行转换到简体中文的编码也就是gb2312码
欲翻译的内容 ＝ 编码_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”)  ' ——————————0 - 正常
如果 (错误代码 ＝ “2”)  ' ——————————2 - 要翻译的文本过长
提示框 (“要翻译的文本过长”, 48, “翻译失败”, )
如果 (错误代码 ＝ “3”)  ' ——————————3 - 无法进行有效的翻译
提示框 (“无法进行有效的翻译”, 48, “翻译失败”, )
如果 (错误代码 ＝ “4”)  ' ——————————4 - 不支持的语言类型
提示框 (“不支持的语言类型”, 48, “翻译失败”, )
如果 (错误代码 ＝ “5”)  ' ——————————5 - 无效的key
提示框 (“无效的key”, 48, “翻译失败”, )
如果 (错误代码 ＝ “6”)  ' ——————————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”)
左全部 ＝ 取文本左边 (右全部, 后面文本所在位置 － 1)  ' 删去欲取文本右边所有的文本
返回 (左全部)

取中间字 (“123”, “1”, “3”)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
剪辑版内容	文本型

如果 (参数一 ＝ 按下F1)  ' ——————————翻译剪辑板内容
剪辑版内容 ＝ 取剪辑板文本 ()
编辑框1.内容 ＝ 剪辑版内容
拆分处理 (提交有道词典数据 (剪辑版内容))
如果 (参数一 ＝ 按下Esc)  ' ———————————清空编辑框1.内容
编辑框1.内容 ＝ “”
如果 (参数一 ＝ 按下Home)  ' ——————————显示/隐藏
如果 (_启动窗口.可视 ＝ 假)
_启动窗口.可视 ＝ 真
置托盘图标 (, )
_启动窗口.可视 ＝ 假
置托盘图标 ( #翻译图标, “Home键显示/隐藏” ＋ #换行符 ＋ “F1翻译剪辑版内容” ＋ #换行符 ＋ “Esc清空内容”)

子程序名	返回值类型	公开	备 注
_选择框1_被单击			最前显示控制

如果 (选择框1.选中 ＝ 真)
_启动窗口.总在最前 ＝ 真
_启动窗口.总在最前 ＝ 假

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 提交有道词典数据, 文本型<br /> .参数 翻译的内容, 文本型, , 需要翻译的内容<br /> .局部变量 欲翻译的内容, 文本型<br /> .局部变量 返回的数据, 文本型<br /> .局部变量 keyfrom, 文本型<br /> .局部变量 key, 文本型<br /> .局部变量 版本, 文本型, , , 1.1<br /> <br /> 按钮1.禁止 ＝ 真<br /> 按钮1.标题 ＝ “正在接收数据…”<br /> <br /> keyfrom ＝ “zhuomianfy”  ' 这3个数据可以在“http://fanyi.youdao.com/openapi?path=data-mode”这个网址获取。<br /> key ＝ “796928604”<br /> 版本 ＝ “1.1”<br /> <br /> ' 下面是发送数据给有道词典并接收返回的数据解码后给其他地方调用<br /> ' 前面给的网址上有说：欲翻译的内容必须是utf8码，而且要进行url编码，发送数据先转码到utf8，在url编码后发送。<br /> ' 接收的数据是先url解码，再进行转换到简体中文的编码也就是gb2312码<br /> 欲翻译的内容 ＝ 编码_URL编码 (编码_gb2312到utf8 (翻译的内容))<br /> 返回的数据 ＝ 到文本 (HTTP读文件 (“http://fanyi.youdao.com/openapi.do?keyfrom=” ＋ keyfrom ＋ “&key=” ＋ key ＋ “&type=data&doctype=json&version=” ＋ 版本 ＋ “&q=” ＋ 欲翻译的内容))<br /> 调试输出 (“转码前的返回数据：” ＋ 返回的数据)<br /> 返回的数据 ＝ 编码_utf8到gb2312 (编码_URL解码 (返回的数据))<br /> 调试输出 (“转码后的返回数据：” ＋ 返回的数据)<br /> 返回 (返回的数据)<br /> <br /> .子程序 拆分处理<br /> .参数 返回数据, 文本型, , 有道返回的数据<br /> .局部变量 临时组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 临时错误代码, 文本型<br /> <br /> 按钮1.标题 ＝ “正在分类处理…”<br /> .如果 (返回数据 ＝ “no query”)<br />     提示框 (“请正确输入要翻译的内容”, 16, “翻译失败”, )<br />     按钮1.禁止 ＝ 假<br />     按钮1.标题 ＝ “翻译”<br />     返回 ()<br /> .否则<br />     编辑框2.内容 ＝ “”<br />     编辑框3.内容 ＝ “”<br />     错误代码 ＝ 取文本右边 (返回数据, 取文本长度 (返回数据) － 寻找文本 (返回数据, #错误代码1, , 假) － 取文本长度 (#错误代码1) ＋ 1)  ' ——————————提取错误代码<br />     错误代码 ＝ 取文本左边 (错误代码, 1)<br />     调试输出 (“错误代码：” ＋ 错误代码)<br />     .如果真 (错误代码 ≠ “0”)  ' ——————————0 - 正常<br />         .如果 (错误代码 ＝ “2”)  ' ——————————2 - 要翻译的文本过长<br />             提示框 (“要翻译的文本过长”, 48, “翻译失败”, )<br />         .否则<br />             .如果 (错误代码 ＝ “3”)  ' ——————————3 - 无法进行有效的翻译<br />                 提示框 (“无法进行有效的翻译”, 48, “翻译失败”, )<br />             .否则<br />                 .如果 (错误代码 ＝ “4”)  ' ——————————4 - 不支持的语言类型<br />                     提示框 (“不支持的语言类型”, 48, “翻译失败”, )<br />                 .否则<br />                     .如果 (错误代码 ＝ “5”)  ' ——————————5 - 无效的key<br />                         提示框 (“无效的key”, 48, “翻译失败”, )<br />                     .否则<br />                         .如果 (错误代码 ＝ “6”)  ' ——————————6 - 无词典结果，仅在获取词典结果生效<br />                             提示框 (“无词典结果”, 48, “翻译失败”, )<br />                         .否则<br /> <br />                         .如果结束<br /> <br />                     .如果结束<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br />         按钮1.禁止 ＝ 假<br />         按钮1.标题 ＝ “翻译”<br />         返回 ()<br />     .如果真结束<br /> <br />     原文本 ＝ 取中间字 (返回数据, #原文1, #原文2)  ' ——————————提取要翻译的原文<br />     调试输出 (“原文本：” ＋ 原文本)<br /> <br />     翻译后的文本 ＝ 取中间字 (返回数据, #翻译后1, #翻译后2)  ' ————————————提取翻译完的文本<br />     临时组 ＝ 分割文本 (翻译后的文本, #双撇号 ＋ “,” ＋ #双撇号, )<br />     翻译后的文本 ＝ “”<br />     计次 ＝ 0<br />     .计次循环首 (取数组成员数 (临时组), 计次)<br />         翻译后的文本 ＝ 翻译后的文本 ＋ 子文本替换 (临时组 [计次], #双撇号, “”, , , 真) ＋ #换行符  ' ——————————去掉多行翻译后数据的双撇号并且替换成换行符<br />     .计次循环尾 ()<br />     翻译后的文本 ＝ 取文本左边 (翻译后的文本, 取文本长度 (翻译后的文本) － 1)  ' ——————————去掉最后一个换行符<br />     编辑框2.内容 ＝ 翻译后的文本<br />     调试输出 (“翻译后的文本：” ＋ 翻译后的文本)<br /> <br /> <br />     解释 ＝ 取中间字 (返回数据, #解释1, #解释2)  ' ——————————提取解释信息<br />     临时组 ＝ 分割文本 (解释, #双撇号, )<br />     解释 ＝ “”<br />     计次 ＝ 0<br />     .计次循环首 (取数组成员数 (临时组), 计次)<br />         .如果真 (临时组 [计次] ≠ “,”)<br />             解释 ＝ 解释 ＋ 临时组 [计次] ＋ #换行符<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (解释 ＝ “-1” ＋ #换行符)<br />         编辑框3.可视 ＝ 假<br />         解释 ＝ “无详细释意”<br />     .如果真结束<br />     编辑框3.内容 ＝ “解释：” ＋ #换行符 ＋ 解释<br />     调试输出 (“解释为：” ＋ 解释)<br /> <br /> <br />     网络解释 ＝ “{” ＋ 取中间字 (返回数据, #网络解释1, #网络解释2) ＋ “}”  ' ——————————提取网络解释信息<br />     临时组 ＝ 分割文本 (网络解释, “}”, )<br />     网络解释 ＝ “”<br />     计次 ＝ 0<br />     .计次循环首 (取数组成员数 (临时组), 计次)<br />         网络解释 ＝ 网络解释 ＋ 取中间字 (临时组 [计次], #网络解释3, #网络解释4) ＋ “——” ＋ 取中间字 (临时组 [计次], #网络解释5, #网络解释6) ＋ #换行符<br />     .计次循环尾 ()<br />     .如果真 (网络解释 ＝ “-1——-1” ＋ #换行符)<br />         网络解释 ＝ “无网络释意”<br />     .如果真结束<br />     调试输出 (“网络解释：” ＋ 网络解释)<br />     编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符 ＋ #换行符 ＋ “网络释义：” ＋ #换行符 ＋ 网络解释<br /> .如果结束<br /> <br /> .如果 (寻找文本 (编辑框3.内容, “无详细释意”, , 假) ≠ -1 且 寻找文本 (编辑框3.内容, “无网络释意”, , 假) ≠ -1)  ' ——————————如果没有解释就不显示解释<br />     _启动窗口.高度 ＝ 195<br />     编辑框3.可视 ＝ 假<br /> .否则<br />     _启动窗口.高度 ＝ 323<br />     编辑框3.可视 ＝ 真<br /> .如果结束<br /> <br /> 按钮1.禁止 ＝ 假<br /> 按钮1.标题 ＝ “翻译”<br /> <br /> .子程序 取中间字, 文本型, , 成功返回欲取的文本，失败返回“-1”<br /> .参数 被取的文本, 文本型<br /> .参数 前面的文本, 文本型<br /> .参数 后面的文本, 文本型<br /> .局部变量 被取文本长度, 整数型<br /> .局部变量 前面文本所在位置, 整数型<br /> .局部变量 前面文本长度, 整数型<br /> .局部变量 后面文本所在位置, 整数型<br /> .局部变量 右全部, 文本型<br /> .局部变量 左全部, 文本型<br /> <br /> 被取文本长度 ＝ 取文本长度 (被取的文本)<br /> 前面文本所在位置 ＝ 寻找文本 (被取的文本, 前面的文本, , 假)<br /> .如果 (前面文本所在位置 ＝ -1)<br />     返回 (“-1”)<br /> .否则<br />     前面文本长度 ＝ 取文本长度 (前面的文本)<br />     右全部 ＝ 取文本右边 (被取的文本, 被取文本长度 － 前面文本长度 － 前面文本所在位置 ＋ 1)  ' 删去欲取文本左边所有的文本<br />     后面文本所在位置 ＝ 寻找文本 (右全部, 后面的文本, , 假)<br />     .如果 (后面文本所在位置 ＝ -1)<br />         返回 (“-1”)<br />     .否则<br />         左全部 ＝ 取文本左边 (右全部, 后面文本所在位置 － 1)  ' 删去欲取文本右边所有的文本<br />         返回 (左全部)<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> 取中间字 (“123”, “1”, “3”)<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 剪辑版内容, 文本型<br /> <br /> .如果 (参数一 ＝ 按下F1)  ' ——————————翻译剪辑板内容<br />     剪辑版内容 ＝ 取剪辑板文本 ()<br />     编辑框1.内容 ＝ 剪辑版内容<br />     拆分处理 (提交有道词典数据 (剪辑版内容))<br /> .否则<br />     .如果 (参数一 ＝ 按下Esc)  ' ———————————清空编辑框1.内容<br />         编辑框1.内容 ＝ “”<br />     .否则<br />         .如果 (参数一 ＝ 按下Home)  ' ——————————显示/隐藏<br />             .如果 (_启动窗口.可视 ＝ 假)<br />                 _启动窗口.可视 ＝ 真<br />                 置托盘图标 (, )<br />             .否则<br />                 _启动窗口.可视 ＝ 假<br />                 置托盘图标 (#翻译图标, “Home键显示/隐藏” ＋ #换行符 ＋ “F1翻译剪辑版内容” ＋ #换行符 ＋ “Esc清空内容”)<br />             .如果结束<br /> <br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _选择框1_被单击, , , 最前显示控制<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br />     _启动窗口.总在最前 ＝ 真<br /> .否则<br />     _启动窗口.总在最前 ＝ 假<br /> .如果结束

附件下载：


有道api在线翻译大量注释.rar (716.77 KB, 下载次数: 176)

2016-11-22 17:37 上传

点击文件名下载附件

yingle

yingle

iAmBition

有道api在线翻译大量注释.rar

彩虹糖12345

6666666666666666666666

ZQY

支持楼主！！！

互斥体

不错的源码…………

兰色的夜晚

学习了学习了学习了学习了

xuanlv

学习了   

ibootmake

谢谢楼主分享

晚放

fchao非常好