易语言写一个翻译小工具

编程小白白gezi

本人易语言小白也是刚学习，希望可以互相交流。

写了一个翻译小工具



我觉得掌握任何语言只要把接口如何调用，函数，if判断，循环会用即可，只是易语言的语法不太懂。所以希望可以积累一些案例进行交流。

直接贴代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

变量名	类 型	静态	数组	备 注
URL	文本型
url编码	文本型
返回结果	文本型

URL ＝ “https://api.qqsuu.cn/api/dm-translation?text=”
如果 (编辑框1.内容 ≠ “”)
URL ＝ URL ＋ 编码_URL编码_JS (编辑框1.内容)
返回结果 ＝ 功能_网页访问 (URL)
返回结果 ＝ 功能_取JSON值 (返回结果, “result”)
编辑框2.内容 ＝ 返回结果
输出调试文本 (返回结果)



输出调试文本 (编辑框1.内容, 编辑框2.内容)

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类 型	参考	可空	数组	备 注
接收到的URL	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

' https://api.qqsuu.cn/api/dm-translation?text=%E5%A4%A7%E7%B1%B3%E5%8D%9A%E5%AE%A2
局_网址 ＝ 接收到的URL
局_方式 ＝ 0
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
输出调试文本 (局_返回, 局_网址)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
功能_取JSON值	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用
参数名	类 型	参考	可空	数组	备 注
Json数据	文本型
属性名	文本型

变量名	类 型	静态	数组	备 注
局_JSON	类_json
局_结果	逻辑型
局_类型	整数型

' 精易模块v8.0需要先把换行替换掉！
Json数据 ＝ 子文本替换 (Json数据, 字符 (13), , , , 真)
Json数据 ＝ 子文本替换 (Json数据, 字符 (10), , , , 真)
局_结果 ＝ 局_JSON.解析 (Json数据)
如果真 (局_结果 ＝ 假)
返回 (“JSON解析失败”)
局_类型 ＝ 局_JSON.取类型 (属性名)
判断 (局_类型 ＝ 1)  ' 逻辑
返回 (局_JSON.取属性对象 (属性名))
判断 (局_类型 ＝ 2)  ' 数值
返回 (局_JSON.取属性 (属性名).取数据文本 ())
判断 (局_类型 ≠ 6)  ' 非字符串
返回 (局_JSON.取通用属性 (属性名, 真))
返回 (局_JSON.取通用属性 (属性名, ))  ' 字符串

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 URL, 文本型<br /> .局部变量 url编码, 文本型<br /> .局部变量 返回结果, 文本型<br /> <br /> URL ＝ “https://api.qqsuu.cn/api/dm-translation?text=”<br /> <br /> .如果 (编辑框1.内容 ≠ “”)<br />     URL ＝ URL ＋ 编码_URL编码_JS (编辑框1.内容)<br />     返回结果 ＝ 功能_网页访问 (URL)<br />     返回结果 ＝ 功能_取JSON值 (返回结果, “result”)<br />     编辑框2.内容 ＝ 返回结果<br />     输出调试文本 (返回结果)<br /> <br /> .否则<br /> <br /> .如果结束<br /> 输出调试文本 (编辑框1.内容, 编辑框2.内容)<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .参数 接收到的URL, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> ' https://api.qqsuu.cn/api/dm-translation?text=%E5%A4%A7%E7%B1%B3%E5%8D%9A%E5%AE%A2<br /> 局_网址 ＝ 接收到的URL<br /> 局_方式 ＝ 0<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br /> <br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> <br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 输出调试文本 (局_返回, 局_网址)<br /> 返回 (局_返回)<br /> <br /> <br /> <br /> <br /> .子程序 功能_取JSON值, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用<br /> .参数 Json数据, 文本型<br /> .参数 属性名, 文本型<br /> .局部变量 局_JSON, 类_json<br /> .局部变量 局_结果, 逻辑型<br /> .局部变量 局_类型, 整数型<br /> <br /> ' 精易模块v8.0需要先把换行替换掉！<br /> Json数据 ＝ 子文本替换 (Json数据, 字符 (13), , , , 真)<br /> Json数据 ＝ 子文本替换 (Json数据, 字符 (10), , , , 真)<br /> <br /> 局_结果 ＝ 局_JSON.解析 (Json数据)<br /> .如果真 (局_结果 ＝ 假)<br />     返回 (“JSON解析失败”)<br /> .如果真结束<br /> 局_类型 ＝ 局_JSON.取类型 (属性名)<br /> .判断开始 (局_类型 ＝ 1)  ' 逻辑<br />     返回 (局_JSON.取属性对象 (属性名))<br /> .判断 (局_类型 ＝ 2)  ' 数值<br />     返回 (局_JSON.取属性 (属性名).取数据文本 ())<br /> .判断 (局_类型 ≠ 6)  ' 非字符串<br />     返回 (局_JSON.取通用属性 (属性名, 真))<br /> .默认<br />     返回 (局_JSON.取通用属性 (属性名, ))  ' 字符串<br /> .判断结束

wzi

感谢分享，很给力

pnf

感谢分享

xue9528

感谢分享，很给力！~

qq977352880

通俗易懂，没有废话，点个赞！

无敌小爱

翻译.e (1.9 MB, 下载次数: 5)

2024-8-11 23:29 上传

点击文件名下载附件
翻译加朗读

打开 选中按下ctrl+空格自动替换翻译

   分享一个案例 ，打开后  选中  按 ctrl+空格  自动替换翻译和文本朗读  ，前几天写的  ，精益的文本朗读有时候有用有时候没用可能是接口是限量的，

编程小白白gezi

大佬牛逼，感谢大佬，大佬带我飞!!!!

望静水流深

         感谢分享，很给力！~

幕凉

        感谢分享，很给力！~

编程小白白gezi

1425113841 发表于 2024-8-9 14:04
掌握语言接口调用，函数，if判断，循环

这些全都是基础, 如果只会上面这几个, 甚至基础都没学完整. ...

大佬带我