[nkkin]

السلام عليكم
اعمل على برنامج للترجمة لكن عندما احاول الترجمة الى اللغات التالية (العربية .الصينية.اليابانية.اليونانية.....) احصل على مربعات في صندوق النص

من فضلكم كيف استطيع حل هذه المشكلة وشكرا

[sooriaty03]

السلام عليكم ورحمة الله وبركاته

ما هي طريقة الترجمة؟

لأنها إذا كانت من موقع مباشرة فيجب عليك تحويلها إلى الترميز الافتراضي لكي تظهر الحروف بشكل صحيح

[Sajad]

اخي العزيز

استخدم ترميز UTF8 للتحويل الى العربية او الصينية او اللغات اللاتينية حسب اعتقادي

تحياتي

[nkkin]

هذا هو الكود المستعمل

Sub translateit()

كود :

[b]
    Dim languagePair As String
                   Select Case langCombo.SelectedItem
            Case "French"
                languagePair = "en|fr"
                    End Select
        Dim input As String = transTxt.Text
        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 New WebClient()
        webClient.Encoding = System.Text.Encoding.UTF8
        Dim result As String = webClient.DownloadString(url)
        result = result.Substring(result.IndexOf("<span title=""") + "<span title=""".Length)
        result = result.Substring(result.IndexOf(">") + 1)
        result = result.Substring(0, result.IndexOf("</span>"))
                    resultTxt.Text = WebUtility.HtmlDecode(result.Trim())
                   End Sub[/b]

[سعود]

مارايك بالطريقة التالية ابسط بكثير لكنها ليست ماهرة
اولا نكتب السطر التالي

كود :

http://translate.google.com/#flang/slang/word

ثم تضيف الادوات التالية

كود :

Dim all As String = url.Text.Replace("flang", ComboBox1.Text.Trim)
        all = all.Replace("slang", ComboBox2.Text.Trim)
        all = all.Replace("word", txtinput.Text)
        txtoutput.Navigate(all)