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

易语言血洗

.版本 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数据

溪冉

下载学习学习

网上邻居007

学习了试试

忧郁之子

支持分享，谢谢。

易团凯

api不错

易语言血洗

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

api抄的哈哈

lyw1989

支持分享，谢谢。

李哈哈

为什么不用api

2335152321

支持分享，谢谢。