百度翻译返回的JOSN类型解析精易带的不会用，自己一点点找，跟我一样笨的来

易语言血洗 · 发表于 2017-5-26 17:13:53

本帖最后由易语言血洗于 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数据