远程抓取GOOGLE的自动翻译结果

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【远程抓取GOOGLE的自动翻译结果】，下面是详细的分享！

远程抓取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 &"&langpair="& languages &""
12            dim str_return as string 
13            Dim req As WebRequest=WebRequest.Create("http://translate.google.com/translate_t") ' 开始取连接.
14            req.Credentials=CredentialCache.DefaultCredentials       '取得默认
15            req.Method="POST"                                        '以POST方式发送，这里默认是以GET方式发送
16            req.ContentType="application/x-www-form-urlencoded"      'POST方式需在传送这个编码，如果上传文件，则修为multipart/form-data
17            req.timeout=10000                                          '连接超时定时
18            req.ContentLength=payload.Length                         '头部长度
19            Dim encoding As Encoding=Encoding.GetEncoding("UTF-8")   '转换成流,大部网站一般转换成UTF-8就可以了，注意是大写的编码
20            Dim bytes As Byte()=Encoding.GetBytes(payload)           '转换成流
21            req.ContentLength=bytes.Length                           '传送流的长度
22            Dim newStream As Stream=req.GetRequestStream()           '转换写入
23            newStream.Write(bytes, 0, bytes.Length)                    '写入传送流
24            newStream.Close()                                          '关闭
25            '上面发送完成，下面取得服务器返回
26            Dim res As HttpWebResponse=CType(req.GetResponse(), HttpWebResponse)  ' 传递返回标识
27            if res.StatusDescription="ok" then  ' 返回取得状态.
28               current.response.write("暂时无法连接到网站,请换用另一个程序")
29               current.response.end()
30            end if
31            Dim dataStream As Stream=res.GetResponseStream()         ' 返回给指针
32            Dim reader As New StreamReader(dataStream,encoding.getencoding("gb2312")) ' 读
33            Dim responseFromServer As String=reader.ReadToEnd()      ' 读取所有
34           
35            str_return=responseFromServer                              '赋值回传
36           
37            reader.Close()                                             '接下来三个关闭
38            dataStream.Close()
39            res.Close()
40
41            dim ss as string=str_return
42            ss=regex.replace(ss,"(?i:(.+)(\<div)(.+)(\>)(.+)(\<\/div\>)(.+))","$5") '提取我们所要的译文
43            ss=RemoveHTML(ss)                                       '删除HTML
44            ss=ss.substring(3)                                      '删除翻译二字
45            return ss                                                 '函数返回
46    End function
47       
48    在调用china_to_english(texts,languages)需要传两个参数第一个为要译的文字,第二个是要进行相对译的语种代码.

以上所分享的是关于远程抓取GOOGLE的自动翻译结果，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：如何保存google对英文网页的自动翻译

　　答：在Google的主页中点击搜索栏右侧的“语言工具”就可以看到翻译服务网页（http://www.Google.com/language_tools?hl=zh-CN）。在页面中，不仅可以翻译文字和词组，而且还可翻译网页。虽然这些功能很实用，但每次使用都必须登录此网页，略显麻烦。现... >>详细

　　相关问题：谷歌浏览器自动翻译英文网页怎么设置

　　答：Google 翻译网页功能可以在包括中文和英文的35种语言之间实现整个网页的翻译。当你点击此按钮时，它会自动识别当前网页的语言，把它的内容上传到Google的翻译服务器翻译成用户浏览器设置的语言，，再将翻译结果用原有的网页格式显示出来。这时，... >>详细

　　相关问题：google chrome的自动翻译 如何打开

　　答：一、关闭所有的 Google Chrome 浏览器窗口，进入 Chrome 在电脑上的安装目录： Windows XP：%USERPROFILE%\Local Settings\Application Data\Google\Chrome\ Windows Vista / Windows 7：%USERPROFILE%\AppData\Local\Google\Chrome\ 二、进入以... >>详细