Google翻译API核心代码示例

shane007

这个核心代码代码很简单，只有关键的几句话。
演示了把英文字幕翻译为日文字幕的过程，翻译为中文也是一样的。
/ A0 G3 H- S4 ~/ H% ~$ y今后很多翻译工具都会在这个基础上来完成。
5 `! k0 r1 }* v0 Z5 h1 u; T

8 ?# Z2 q8 P5 u8 B- |代码
Public Class Main
    Public Function TranslateText(ByVal input As String, ByVal languagePair As String) As String
        Dim url As String = String.Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", input, languagePair)
        Dim webClient As WebClient = New WebClient()
        ''webClient.Encoding = System.Text.Encoding.UTF8
0 _- d" T4 t9 ]% T8 s6 V        Dim result As String = webClient.DownloadString(url)
+ K9 C: }% _* H5 H        result = result.Substring(result.IndexOf("<input type=hidden name=gtrans value=") + 38)
        result = result.Substring(0, result.IndexOf(""""))
        Return result
  L8 J+ W' J$ c0 ]+ W    End Function
. Y- m7 r8 Q& i7 ?& |    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- p% m- q4 W( I  p        TextBox2.Text = TranslateText(TextBox1.Text, "en|ja")
    End Sub
End Class

抓图