كود ترجمة النص من العربي الى الانجليزي والعكس

[محمد القدسي]

السلام عليكم

وعيدكم مبارك مؤخرا وتقبل الله منا ومنكم صالح الاعمال

اساتذتي الافاضل كنت حملت هذا المرفق من هذا المنتدى المبارك 

وهو يعمل على ترجمة النص من الانجليزي الى العربي والعكس

والان لا يعمل وما ادري ما هو السبب 

واظن انه عندما غيرت الاوفيس من 2010 الى 2019 كان السبب والله اعلم

والمرفق هنا 

وجزاكم الله خيرا

 

cang _lang_ar_en.rar

[محمد القدسي]

up

[SEMO.Pa3x]

عليكم السلام.

Private Function GTranslate(strInput As String, strFromLang As String, strToLang As String) As String
Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant

    strURL = "https://translate.google.com/m?hl=" & strFromLang & _
             "&sl=" & strFromLang & _
             "&tl=" & strToLang & _
             "&ie=UTF-8&prev=_m&q=" & strInput
    
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    objHTTP.Open "GET", strURL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.Send ""
    
    Set objHTML = CreateObject("htmlfile")
    With objHTML
        .Open
        .Write objHTTP.responseText
        .Close
    End With
    
    Set objDivs = objHTML.getElementsByTagName("div")
    For Each objDiv In objDivs
        Debug.Print objDiv.innerText
        If objDiv.className = "result-container" Then
            GTranslate = objDiv.innerText: Exit For
        End If
    Next objDiv
    
    Set objHTML = Nothing: Set objHTTP = Nothing
End Function

Private Sub cmd_ar_Click()
    MsgBox GTranslate(txt_from, "auto", "ar")
End Sub

Private Sub cmd_en_Click()
    txt_translate = GTranslate(txt_from, "auto", "en")
End Sub

 

[محمد القدسي]

سلمت يداك استاذي

ولاكن عند الترجمة للعربي تظهر كما بالمرفق

عفوا عند الترجمة للغة الانجليزية تظهر كما بالمرفق

اما للعربية ممتاز

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

 

[SEMO.Pa3x]

الموضوع أبسط مما تتخيل لكن الأكسس عاجز وحده

والسبب لا يمكن ارسال نسق التشفير الـ ( Encoding )

لذلك استعن بلغة اخرى

حمل هذا البرنامج مكتوب بلغة #C

ثم قم بتعديله

https://www.codeproject.com/Articles/12711/Google-Translator

 

 

ثم قم بعمل نداء بواسطة CommandLine يرسل 3 امور رئيسية:

اولاً: اللغة المراد الترجمة منها

ثانياً: اللغة المراد الترجمة اليها

ثالثاً: النص المراد ترجمتة

سيقوم البرنامج المساعد بترجمة النص وفق المعطيات ومن ثم سيقوم بإرجاع المخرجات لك على شكل Args

قم بقراءتها في برنامج، وانتهى الموضوع.

[محمد القدسي]

ولاكن استاذي العزيز انا كنت حملت هذا البرنامج من هذا المنتدى المبارك وكان يعمل 100%

فما هو السبب بانه لا يعمل الان

[محمد القدسي]

وكيف اقوم بتعديلة ما عندي علم بلغة #C

[محمد القدسي]

up

 

[د.كاف يار]

جرب هذا التعديل

اضف الشفرة التالية في اي مكان داخل محرر الأكواد

Private Function GTranslate(strInput As String, strInput2 As String, strInput3 As String) As String
Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant

    strURL = "https://translate.google.com/m?hl=" & strInput2 & _
             "&sl=" & strInput2 & _
             "&tl=" & strInput3 & _
             "&ie=UTF-8&prev=_m&q=" & strInput
    ' سابقا
	'Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Set objHTTP = CreateObject("Msxml2.XMLHTTP.6.0")
    objHTTP.Open "GET", strURL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
    objHTTP.Send ""
    
    Set objHTML = CreateObject("htmlfile")
    With objHTML
        .Open
        .Write objHTTP.responseText
        .Close
    End With
    
    Set objDivs = objHTML.getElementsByTagName("div")
    For Each objDiv In objDivs
        Debug.Print objDiv.innerText
        If objDiv.className = "result-container" Then
            GTranslate = objDiv.innerText: Exit For
        End If
    Next objDiv
    
    Set objHTML = Nothing: Set objHTTP = Nothing
End Function

 

ضع في حدث الأزرار عند النقر الكود التالي

MsgBox GTranslate("كرة", "en", "ar")

 

في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك

 

 

[محمد القدسي]

طبقت وظهرت الترجمة مثل السايق

وهذه صورة من الاعدادت الاقليمية للغة

[jjafferr]

السلام عليكم 🙂

 

5 ساعات مضت, د.كاف يار said:

في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك

اخوي حسين ، هذه نتيجة تجربتي:

.

فالخطأ في اظهار الحروف الانجليزية وليس العربية ، فلا اعتقد بأن اعدادات اللغة لها علاقة !!

 

جعفر

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

 

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[د.كاف يار]

• تفضل التعديل اخي الكريم
• و اغتذر عن  التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0

cang _lang_ar_en.accdb