按键精灵_有道词典api翻译单词

import "shanhai.lua"
dim 单词="当惑"
dim 有道api网址="http://openapi.youdao.com/api"
dim yd_q=单词
dim yd_from="ja"
dim yd_to="zh-CHS"
dim yd_appKey="你的应用id"
dim yd_salt=cstr(ShanHai.RndEx(1, 65536))
dim yd_sign=""
dim 密钥="你的密钥"
//Md5签名
//按照?appKey+q+salt+密钥 拼接得到字符串?str。
//对字符串?str?做md5，得到32位大写的?sign
yd_sign=md5签名(yd_appKey&yd_q&yd_salt&密钥)
dim arr=array(有道api网址,yd_q,yd_from,yd_to,yd_appKey,yd_salt,yd_sign)
//url encode
for i=1 to 6
arr(i)=ShanHai.CharToUrl(arr(i))
next
dim myurl = arr(0)&"?q="&arr(1)&"&from="&arr(2)&"&to="&arr(3)&"&appKey="&arr(4)&"&salt="&arr(5)&"&sign="&arr(6)
dim 有道翻译返回的数据=url.get(myurl)
    Sys.SetClipText 有道翻译返回的数据
dim  json数据=Encode.JsonToTable(有道翻译返回的数据)
myurl = json数据["webdict"]["url"]
dim 有道词典网页源码=url.get(myurl)
dim pat="</head>[%s%S]-<div id=\"jc\" class=\"trans%-container jc \">[%s%S]-<h4>([%s%S]-)<sup>[%s%S]-</sup>[%s%S]-<span class=\"origin\">【(.-)】</span>[%s%S]-<p>(.-)</p>"
dim RegexArr = ShanHai.RegexFindEx(有道词典网页源码,pat)
dim 单词记录=""
For i = 0 To UBOUND(RegexArr)
    For j = 0 To UBOUND(RegexArr(i))
        sm(RegexArr(i,j))
  单词记录=单词记录&trim(RegexArr(i,j))&"   "
    Next 
 单词记录=单词记录&"\n"
Next
dim 沪江单词翻译path="/sdcard/沪江单词翻译.txt"
Call ShanHai.WriteFile(沪江单词翻译path, 单词记录)
function md5签名(str)
dim s
s=Encode.Md5(str)
md5签名=ucase(s)
end function 
Sub sm(sss)
     ShowMessage sss&  "\n" & DateTime.Format("%H:%M:%S"),1000,300,300
     Delay 1000
    Sys.SetClipText sss
End Sub