精易论坛

标题: 百度翻译返回的JOSN类型解析精易带的不会用，自己一点点找，跟我一样笨的来 [打印本页]

作者: 易语言血洗 时间: 2017-5-26 17:13
标题: 百度翻译返回的JOSN类型解析精易带的不会用，自己一点点找，跟我一样笨的来
本帖最后由易语言血洗于 2017-5-26 17:18 编辑

.版本 2
.支持库 xplib

.程序集窗口程序集_启动窗口
.程序集变量 lan, 文本型, , "2"
.程序集变量 a, 整数型
.程序集变量处理前文本, 文本型

.子程序 _按钮1_被单击, , , 中译英
.局部变量内容, 文本型

lan [1] ＝ “zh”
lan [2] ＝ “en”
内容＝编辑框1.内容
.如果真 (内容＝ “”)
信息框 (“翻译栏空白”, 0, , )
.如果真结束
编辑框2.内容＝百度翻译 (内容)

.子程序 _按钮2_被单击, , , 英译中
.局部变量内容, 文本型

lan [1] ＝ “en”
lan [2] ＝ “zh”
内容＝编辑框1.内容
.如果真 (内容＝ “”)
信息框 (“翻译栏空白”, 0, , )
.如果真结束
编辑框2.内容＝百度翻译 (内容)

.子程序百度翻译, 文本型, , 调用翻译
.参数内容, 文本型
.局部变量全部文本, 文本型
.局部变量翻译数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量翻译结果, 文本型

全部文本＝编码_usc2到ansi (网页_访问S (“http://fanyi.baidu.com/v2transapi”, 1, “from=” ＋ lan [1] ＋ “&to=” ＋ lan [2] ＋ “&query=” ＋编码_URL编码 (内容, 假, 真) ＋ “&transtype=realtime&simple_means_flag=3”))
处理前文本＝全部文本
' dst ＝文本_取出中间文本 (str, “dst” ＋ #引号＋ “:” ＋ #引号, #引号)  ' ＋ “，” ＋ #引号, ,
' dst ＝文本_取出中间文本 (str, “dst” ＋ #引号＋ “:” ＋ #引号, #引号＋ “，” ＋ #引号)
文本_取中间_批量 (全部文本, “dst” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “src”, 翻译数组, )
.计次循环首 (取数组成员数 (翻译数组), n)
翻译结果＝翻译结果＋翻译数组 [n] ＋ #换行符
.计次循环尾 ()
返回 (翻译结果)

.子程序 __启动窗口_创建完毕

XP风格 (1)
编辑框2.滚动条＝ 2
编辑框1.滚动条＝ 2
_时钟1_周期事件 ()

.子程序 _时钟1_周期事件

时钟1.时钟周期＝ 500
编辑框1.宽度＝ _启动窗口.宽度 × 208 ÷ 510
编辑框1.高度＝ _启动窗口.高度 × 256 ÷ 307
编辑框2.宽度＝ _启动窗口.宽度 × 208 ÷ 510
编辑框2.高度＝ _启动窗口.高度 × 256 ÷ 307
编辑框2.左边＝ _启动窗口.宽度 × 288 ÷ 510
按钮1.左边＝ _启动窗口.宽度 × 216 ÷ 510
按钮1.顶边＝ _启动窗口.高度 × 56 ÷ 307
按钮1.宽度＝ _启动窗口.宽度 × 72 ÷ 510
按钮1.高度＝ _启动窗口.高度 × 80 ÷ 307

按钮2.左边＝ _启动窗口.宽度 × 216 ÷ 510
按钮2.顶边＝ _启动窗口.高度 × 136 ÷ 307
按钮2.宽度＝ _启动窗口.宽度 × 72 ÷ 510
按钮2.高度＝ _启动窗口.高度 × 110 ÷ 307
标签1.左边＝ _启动窗口.宽度 × 216 ÷ 510
标签1.顶边＝ _启动窗口.高度 × 8 ÷ 307
标签1.宽度＝ _启动窗口.宽度 × 72 ÷ 510
标签1.高度＝ _启动窗口.高度 × 48 ÷ 307
a ＝ a ＋ 1
.如果 (a ％ 2 ＝ 0)
标签1.标题＝ “清空”
.否则
标签1.标题＝ “”
.如果结束

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型

编辑框2.内容＝ “”
编辑框1.内容＝ “”

.子程序 _按钮3_被单击
.局部变量 n, 整数型
.局部变量 wz, 整数型
.局部变量翻译数组, 文本型, , "0"
.局部变量处理数组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量处理后文本, 文本型

文本_取中间_批量 (处理前文本, “[[[” ＋ #引号, “》”, 翻译数组, )
.计次循环首 (取数组成员数 (翻译数组), n)

文本_取中间_批量 (翻译数组 [n], “[” ＋ #引号, #引号, 处理数组, )
.计次循环首 (取数组成员数 (处理数组), a)
      .如果 (文本_是否为汉字 (处理数组 [a]))
         处理后文本＝处理后文本＋处理数组 [a]
      .否则
         处理后文本＝处理后文本＋处理数组 [a] ＋ “ ”
      .如果结束

.计次循环尾 ()
处理后文本＝处理后文本＋ #换行符＋ #换行符

.计次循环尾 ()

编辑框2.内容＝编辑框2.内容＋ “例句： ” ＋处理后文本

.子程序 _例子_被选择

_按钮3_被单击 ()

百度翻译那一块抄的，主要看看后面提取一些例句，解析JOSN数据

翻译2017-5-23.e

643.88 KB, 下载次数: 36, 下载积分: 精币 -2 枚

作者: 溪冉 时间: 2017-5-26 21:18
下载学习学习

作者: 网上邻居007 时间: 2017-5-26 23:31
学习了试试

作者: 忧郁之子 时间: 2017-5-27 11:15
支持分享，谢谢。

作者: 易团凯 时间: 2017-5-27 11:36

api不错

作者: 易语言血洗 时间: 2017-5-27 15:32

易团凯发表于 2017-5-27 11:36
api不错

api抄的哈哈

作者: lyw1989 时间: 2017-5-27 20:13
支持分享，谢谢。

作者: 李哈哈 时间: 2017-5-28 15:47
为什么不用api

作者: 2335152321 时间: 2017-6-9 18:42
支持分享，谢谢。

欢迎光临精易论坛 (https://125.confly.eu.org/)