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

[jjafferr]

رائع اخي حسين 🙂

ولكن هل ممكن تشرح لنا موضوع "النص المشفر" لوسمحت 🙂

 

وبسبب طريقة برمجتك ، فنحن محتاجين الى هذه المكتبات فقط 🙂

 

جعفر

[د.كاف يار]

4 ساعات مضت, jjafferr said:

رائع اخي حسين 🙂

ولكن هل ممكن تشرح لنا موضوع "النص المشفر" لوسمحت 🙂

 

وبسبب طريقة برمجتك ، فنحن محتاجين الى هذه المكتبات فقط 🙂

 

جعفر

اخي جعفر 

بالنسبة للمكتبة هذي ما استخدمتها اضفتها عشان اجري بعض التجارب لكنها غير مستخدمة يمكن ازالتها

بالنسبة للتشفير و هذا سبب التأخير

ارسال و استقبال النص الإنجليزي كان بصورة ممتازة

لكن ارسال النص العربي كان فيه مشكلة كان يرسل بحروف و رموز لم يستطع المتصفح التعرف عليها

طبعا المشكلة في لغة المتصفح  أو الجهاز و للأسف ما عرفت اتوصل لترميز اللغة الصحيح فأضطريت اشوف طريقة ثانية ارسل فيها النص العربي بصورة سليمة

فأكتشفت ان الرابط لما يتم تمرر من خلاله نص يتم تشفير النص و هذا كان هو الحل

رابط بنص غير مشفر

https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=مرحبا&op=translate

و هذا الرابط مع النص المشفر و بهذي الطريقة نكون بإستطاعتنا تمرير النص العربي مهما اختلف الترميز

https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=%D9%85%D8%B1%D8%AD%D8%A8%D8%A7&op=translate

النص العربي 

مرحبا = %D9%85%D8%B1%D8%AD%D8%A8%D8%A7

 

 

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

اشكرك استاذي @د.كاف يار على اهتماك بالموضوع وسلمت يداك 

وهذا هو المطلوب بعينه

وبارك الله فيك وفي جميع المشرفين وكل من تعاون معنا في هذا المنتدى المبارك

[jjafferr]

5 دقائق مضت, د.كاف يار said:

هذا الرابط مع النص المشفر و بهذي الطريقة نكون بإستطاعتنا تمرير النص العربي مهما اختلف الترميز

اها ، اذن هو تشفير الحروف العربية الى طريقة عرض عنوان المتصف url 🙂

شكرا جزيلا لك على هذا التوضيح ، وكود التشفير 🙂

 

جعفر

[د.كاف يار]

الان, jjafferr said:

اها ، اذن هو تشفير الحروف العربية الى طريقة عرض عنوان المتصف url 🙂

شكرا جزيلا لك على هذا التوضيح ، وكود التشفير 🙂

 

جعفر

العفو استاذي

6 دقائق مضت, محمد القدسي said:

اشكرك استاذي @د.كاف يار على اهتماك بالموضوع وسلمت يداك 

وهذا هو المطلوب بعينه

وبارك الله فيك وفي جميع المشرفين وكل من تعاون معنا في هذا المنتدى المبارك

العفو اخي الكريم كلنا في خدمتك

[SEMO.Pa3x]

لإثراء الموضوع أكثر، هذا فنكشن فك التشفير وإرجاعه نص طبيعي..

Function DecodeQP2(s As String) As String
    Dim i As Long
    Dim p1 As Long
    Dim p2 As Long
    Dim r As String
    i = 2
    Do While i < Len(s)
        Select Case Mid(s, i, 1)
            Case "0" To "7"
                r = r & Chr(CLng("&H" & Mid(s, i, 2)))
            Case "C", "D"
                p1 = CLng("&H" & Mid(s, i, 2)) - 192
                i = i + 3
                p2 = CLng("&H" & Mid(s, i, 2)) - 128
                r = r & ChrW(64 * p1 + p2)
                Debug.Print Hex(64 * p1 + p2)
            Case Else
                ' Not handled
        End Select
        i = i + 3
    Loop
    DecodeQP2 = r
End Function

 

[jjafferr]

9 ساعات مضت, SEMO.Pa3x said:

لإثراء الموضوع أكثر

شكرا اخوي حسنين 🙂

 

جعفر

[ابو جودي]

وذاك مثال رائع كذلك من مكتبتى  وناطق باللغتين العربية والانجليزية 

القاعدة ليست من تصميمى حصلتها من احد المنتديات الاجنبية

Translate&Speak_v3.accdb

[النجاشي]

في 9‏/2‏/2022 at 00:32, ابو جودي said:

وذاك مثال رائع كذلك من مكتبتى  وناطق باللغتين العربية والانجليزية 

القاعدة ليست من تصميمى حصلتها من احد المنتديات الاجنبية

Translate&Speak_v3.accdb 568 kB · 34 downloads

استاذي الفاضل ابو جودي الصوت باللغه العربيه لا يعمل عندي ممكن ايه بيكون المشكله

تحياتي اليك