|
12精币
帮我看看这段代码怎么改 显示不能将“文本型”数据转换..。 主要就是文本框1 翻译 后再文本框2输出· ··· 能不能加个功能 自动识别其他语言翻译文本。 窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | APP_ID | 文本型 | | SECRET_KEY | 文本型 | |
APP_ID = “你的APP_ID” SECRET_KEY = “你的密钥” 变量名 | 类 型 | 静态 | 数组 | 备 注 | 翻译结果 | 文本型 | | | 原文 | 文本型 | | |
原文 = 删首尾空 (编辑框1.内容 ) 如果 (原文 = “”) 信息框 (“请输入要翻译的内容”, 0, , ) 返回 () 翻译结果 = 翻译 (原文 ) 编辑框2.内容 = 翻译结果  变量名 | 类 型 | 静态 | 数组 | 备 注 | sign | 字节集 | | | 请求地址 | 文本型 | | | 返回数据 | 字节集 | | | JSON | 类_json | | | salt | 文本型 | | | 响应文本 | 文本型 | | |
salt = 到文本 (取随机数 (10000, 99999 )) sign = 取数据摘要 (APP_ID + 原文 + salt + SECRET_KEY )请求地址 = “http://api.fanyi.baidu.com/api/trans/vip/translate”请求地址 = 请求地址 + “?q=” + 编码_URL编码 (原文, , 真) + “&from=auto&to=zh&appid=” + APP_ID + “&salt=” + salt + “&sign=” + sign 返回数据 = 网页_访问 (请求地址, 0, , , , , , 真) 响应文本 = 编码_Utf8到Ansi (返回数据 ) 如果 (JSON. 解析 (响应文本 ))  如果 (JSON. 取通用属性 (“error_code”, ) = “”) 返回 (JSON. 取通用属性 (“trans_result[0].dst”, ))  信息框 (“翻译失败:” + JSON. 取通用属性 (“error_msg”, ), 0, , )  信息框 (“解析翻译结果失败”, 0, , )返回 ()
|
|