这个核心代码代码很简单,只有关键的几句话。* f3 M m- A0 E2 X
演示了把英文字幕翻译为日文字幕的过程,翻译为中文也是一样的。
1 ^4 N$ r/ R2 r今后很多翻译工具都会在这个基础上来完成。, O) t7 a' N% ~$ R' [2 d
3 B# H ^+ ~3 C* J/ @
, G0 W9 o2 u6 u" y- ?: C2 |5 t! \代码
& v" F4 N3 E( P; [$ UPublic Class Main
4 ?0 T# ^; |% ?$ P# o Public Function TranslateText(ByVal input As String, ByVal languagePair As String) As String/ \. m4 U% I' g2 |4 H5 O
Dim url As String = String.Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", input, languagePair)
6 g' ^3 \+ V! h+ [. `- n0 x2 [ Dim webClient As WebClient = New WebClient()3 `- d7 f& P0 O" T) |
''webClient.Encoding = System.Text.Encoding.UTF8
; T' b& Z+ i3 J8 G7 Z& P Dim result As String = webClient.DownloadString(url)4 s+ s& [* v, k0 D% U5 b0 ^
result = result.Substring(result.IndexOf("<input type=hidden name=gtrans value=") + 38)9 K0 p3 p# V$ f- J9 c
result = result.Substring(0, result.IndexOf(""""))5 v- N6 W3 F6 W( Q
Return result
* @6 f O4 q& _; B }/ o. q End Function
+ t: {# n/ C5 `+ m Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click$ b9 f1 d; D; B- u9 F
TextBox2.Text = TranslateText(TextBox1.Text, "en|ja")! ]! K: }; X ?, n2 ^
End Sub( W# | l8 g2 M
End Class
. I, N6 ~5 C/ t/ L2 }+ b
* |+ C; O3 y+ H1 ~& s7 | ?抓图
, l: l2 C& {% S- ~) a! P6 l' L/ f |