1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Sub New()
MyBase.New("Google Translator", "http://translate.google.com/translate_t", New String(,) {{"ar", "en"}, _
{"zh", "en"}, {"zh-CN", "zh-TW"})
End Sub
Public Overrides Function GetPostData(ByVal inputLanguage As String, ByVal outputLanguage As String, ByVal [text] As String) As String
Return "text=" + Encode(text) + "&sl=" + inputLanguage + "&tl=" + outputLanguage
End Function
Protected Overridable Function GetTranslation(ByVal inputLanguage As String, ByVal outputLanguage As String, ByVal innerText As String) As String
Return innerText
End Function
Public Overrides Function Translate(ByVal inputLanguage As String, ByVal outputLanguage As String, ByVal [text] As String) As String
Dim toReturn As String = ""
Dim innerText As String = Me.GetInnerText(Me.GetPostData(inputLanguage, outputLanguage, [text]))
toReturn = Me.GetTranslation(inputLanguage, outputLanguage, innerText)
......
Dim utfS As Encoding = System.Text.Encoding.ASCII
Dim utfD As Encoding = System.Text.Encoding.UTF8
Return (utfD.GetString(Encoding.Convert(utfS, utfD, utfS.GetBytes(toReturn))))
End Function |
Partager