GOOGLEの自動翻訳結果をリモートで取り込む
著者：Eve Cole
更新時間：2009-07-01 16:08:47
1 関数 RemoveHTML()関数 RemoveHTML(strhtml)
2 strhtml<>"" の場合、then
文字列としての 3 次元 s_str
4 s_str=regex.replace(strHTML,"<[^>]+>","")
5 s_str=replace(s_str," ","")
6 s_str を返す
7 終了したら
8 終了機能
9
10 関数 china_to_english()関数 china_to_english(テキスト,言語)
11 文字列としての Dim ペイロード = "hl=zh-CN&ie=UTF8&text="& テキスト &"&langpair="& 言語 &""
12 dim str_return を文字列として返す
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 方式ではこのコードを送信する必要があります。
17 req.timeout=10000 '接続超過時間
18 req.ContentLength = payload.Length '头部長さ
19 Dim エンコーディング As Encoding = Encoding.GetEncoding("UTF-8") '转换成流,大部网站一般转换成UTF-8就可了，注意是大写的编码
20 Dim バイト 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 現在の応答.end()
30 終了の場合
31 Dim dataStream As Stream = res.GetResponseStream() ' 戻り指针
32 Dim リーダー As New StreamReader(dataStream,encoding.getencoding("gb2312")) ' 读
33 Dim responseFromServer As String = Reader.ReadToEnd() ' 读取すべて
34
35 str_return=responseFromServer '赋值回传
36
37 Reader.Close() '次下来三个关闭
38 データストリーム.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 終了機能
47
48 china_to_english(texts,langages) では 2 つのパラメータが必要です。最初の 1 つは評価される文字で、2 番目のパラメータは相対的に評価される文字です。
例:中译英、その第二パラメータ:zh-Cn|en
我导入的命名空间如下:
輸入システム
System.Web をインポートします
System.IO をインポートします
Microsoft.VisualBasicをインポートします
System.Web.HttpContext をインポートします
System.Web.UI をインポートします
System.Web.UI.WebControls をインポートします
System.Text をインポートします
System.Text. RegularExpressions をインポートします
System.Net をインポートします
