محمد القدسي قام بنشر مايو 21, 2021 مشاركة قام بنشر مايو 21, 2021 السلام عليكم وعيدكم مبارك مؤخرا وتقبل الله منا ومنكم صالح الاعمال اساتذتي الافاضل كنت حملت هذا المرفق من هذا المنتدى المبارك وهو يعمل على ترجمة النص من الانجليزي الى العربي والعكس والان لا يعمل وما ادري ما هو السبب واظن انه عندما غيرت الاوفيس من 2010 الى 2019 كان السبب والله اعلم والمرفق هنا وجزاكم الله خيرا cang _lang_ar_en.rar رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 22, 2021 الكاتب مشاركة قام بنشر مايو 22, 2021 up رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر مايو 22, 2021 مشاركة قام بنشر مايو 22, 2021 عليكم السلام. 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 رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 23, 2021 الكاتب مشاركة قام بنشر مايو 23, 2021 سلمت يداك استاذي ولاكن عند الترجمة للعربي تظهر كما بالمرفق عفوا عند الترجمة للغة الانجليزية تظهر كما بالمرفق اما للعربية ممتاز رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 23, 2021 الكاتب مشاركة قام بنشر مايو 23, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 23, 2021 الكاتب مشاركة قام بنشر مايو 23, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 up رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر مايو 24, 2021 مشاركة قام بنشر مايو 24, 2021 الموضوع أبسط مما تتخيل لكن الأكسس عاجز وحده والسبب لا يمكن ارسال نسق التشفير الـ ( Encoding ) لذلك استعن بلغة اخرى حمل هذا البرنامج مكتوب بلغة #C ثم قم بتعديله https://www.codeproject.com/Articles/12711/Google-Translator ثم قم بعمل نداء بواسطة CommandLine يرسل 3 امور رئيسية: اولاً: اللغة المراد الترجمة منها ثانياً: اللغة المراد الترجمة اليها ثالثاً: النص المراد ترجمتة سيقوم البرنامج المساعد بترجمة النص وفق المعطيات ومن ثم سيقوم بإرجاع المخرجات لك على شكل Args قم بقراءتها في برنامج، وانتهى الموضوع. 1 رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 ولاكن استاذي العزيز انا كنت حملت هذا البرنامج من هذا المنتدى المبارك وكان يعمل 100% فما هو السبب بانه لا يعمل الان رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 وكيف اقوم بتعديلة ما عندي علم بلغة #C رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 up رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر مايو 25, 2021 مشاركة قام بنشر مايو 25, 2021 جرب هذا التعديل اضف الشفرة التالية في اي مكان داخل محرر الأكواد 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") في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك 1 رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 25, 2021 الكاتب مشاركة قام بنشر مايو 25, 2021 طبقت وظهرت الترجمة مثل السايق وهذه صورة من الاعدادت الاقليمية للغة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 25, 2021 مشاركة قام بنشر مايو 25, 2021 السلام عليكم 🙂 5 ساعات مضت, د.كاف يار said: في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك اخوي حسين ، هذه نتيجة تجربتي: . فالخطأ في اظهار الحروف الانجليزية وليس العربية ، فلا اعتقد بأن اعدادات اللغة لها علاقة !! جعفر رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 25, 2021 الكاتب مشاركة قام بنشر مايو 25, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 26, 2021 الكاتب مشاركة قام بنشر مايو 26, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 27, 2021 الكاتب مشاركة قام بنشر مايو 27, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 27, 2021 الكاتب مشاركة قام بنشر مايو 27, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 28, 2021 الكاتب مشاركة قام بنشر مايو 28, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 29, 2021 الكاتب مشاركة قام بنشر مايو 29, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 30, 2021 الكاتب مشاركة قام بنشر مايو 30, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر مايو 31, 2021 الكاتب مشاركة قام بنشر مايو 31, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر يونيو 1, 2021 الكاتب مشاركة قام بنشر يونيو 1, 2021 up رابط هذا التعليق شارك More sharing options...
محمد القدسي قام بنشر يونيو 3, 2021 الكاتب مشاركة قام بنشر يونيو 3, 2021 up رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر يونيو 5, 2021 أفضل إجابة مشاركة قام بنشر يونيو 5, 2021 تفضل التعديل اخي الكريم و اغتذر عن التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb 4 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان