远程抓取GOOGLE的自动翻译结果
1 Function RemoveHTML()Function RemoveHTML(strhtml)
2 if strhtml"" then
3 dim s_str as string
4 s_str=regex.replace(strHTML,"[^]+","")
5 s_str=replace(s_str," ","")
6 return s_str
7 end if
8 End Function
9
10 Function china_to_english()Function china_to_english(texts,languages)
11 Dim payload As String = "hl=zh-CN&ie=UTF8&text="& texts &"&langpai...[ 查看全文 ]
2016-02-19
标签:
