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

今天由小编为大家讲解有关语言编程的文章，在课课家共同了解语言编程其中不被重视的技巧相信对大家一定有很大的帮助

以下为引用的内容：  1      dreamweaver视频教程  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)需要传两个参数第一个为要译的文字,第二个是要进行相对译的语种代码.

#p#分页标题#e#

“wellIOBE 编程语言社区排行榜是编程语言流行趋势的一个指标，每月更新，这份排行榜排名基于互联网上有经验的程序员、课程和第三方厂商的数量。排名使用著名的搜索引擎（诸如 Google、MSN、Yahoo!、Wikipedia、YouTube 以及 Baidu 等）进行计算。请注意这个排行榜只是反映某个编程语言的热门程度，axurerp7.0视频教程并不能说明一门编程语言好不好，或者一门语言所编写的代码数量多少。 教育资源可能会影响结果。例如Python是常用的学校和学习编程途径，成千上万的学生问问题和完成项目。不过根据我的经验来说，Python的工作相比PHP和Ruby来说是罕见的。Java也有类似的情况，因为它在教育、网络、桌面和移动发展上有各种各样的用途，所以它们的排名会相对靠前。

本地开发者的需求仍然很高，尤其是在相关工作的调查中可以看出。RedMonk报告Swift在不到六个月的时间里上升了46个排名达到第22位。然而应用开发是一门年轻的学科。目前有更多的Web和桌面编程职位空缺着。 “
 

   例：制作网页教程中译英，其第二个参数为：zh-Cn|en
我导入的命名空间如下

以下为引用的内容： Imports System Imports System.Web Imports System.IO Imports Microsoft.VisualBasic Imports System.Web.HttpContext Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Text Imports System.Text.RegularExpressions Imports System.Net

文章很精彩，内心是否激情澎湃，是否还想了解更多关于视频教程的文章，课课家官网是一个知识的海洋