ترجمة النص من عربي إلى إنجليزي

[ahmedspcc]

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

ايه الاخوة الكرام

هل يوجد دالة او وحدة نمطية في اكسس تقوم بترجمة النص من عربي الى انجليزي انا شفت هذا العمل في مستشفى في مدينة جدة اسمه مستشفى الملك فهد الموظف يكتب اسم المريض بالعربي وعند الخروج يقوم البرنامج بكتاب الاسم في الخانة الثانية بالانجليزي هل هذا ممكن والسلام عليكم .

اخوكم

فرحان منطنط المسروري

[أمجد جمالي]

السلام عليكم

ماعندي فكرة عن الطريقة هي لكن عندي كود يتحقق من صحة Spelling للكلمة بالعربي والانجليزي

تحياتي

[هشام علام]

السلام عليكم

اعتقد على نفس نمط دالة التفقيط

اخ امجد هل تقصد النتيجة تكون صوتياً

[أمجد جمالي]

السلام عليكم

اخ هشام الطريقة العندي نفس مبدأ الوورد اختيار الكلمة الصحية من عدة كلمات

ويوجد مثالين على ذلك مثال على الاكسيس ومثال بالفيجوال بيسك

تحياتي لك

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أخي أمجد أرفق المثالين وبلاش تشويق وأثارة وجزاك الله خير

أخيك سهل أحمد ( ابو نعيم )

[أمجد جمالي]

السلام عليكم

خي أمجد أرفق المثالين وبلاش تشويق وأثارة

يا ابو نعيم الموضوع مامر عليه 24 ساعة

وكان هدفي ا ساعد قدر الإمكان وليس التشويش

وهذا الكود البرنامج الأول

Public Function SpellCheck(TextStr As String) As String
     Dim WordApp As Word.Application
     Set WordApp = CreateObject("Word.Application")
     WordApp.Documents.Add
     Dim wordrange As Word.Range
     Set wordrange = WordApp.ActiveDocument.Range(0, 0)
     wordrange.Text = TextStr
     WordApp.Visible = True
     WordApp.Activate
     wordrange.CheckSpelling , , True
     SpellCheck = wordrange.Text
     wordrange.Text = ""
     WordApp.Documents.Close (False)
     WordApp.Quit
     Set WordApp = Nothing
End Function

واختيار ال Reference microsoft word 11 object library للأستدعاء الدالة

Public Sub test()
     Dim ChkStr As String
     ChkStr = "Amjad wias here"
     ChkStr = SpellCheck(ChkStr)
End Sub

وهذا هو البرنامج الثاني

الكود والبرنامج الثاني من احد المواقع الأجنبية

تحياتي

ابو نادر

soundex.zip

تم تعديل نوفمبر 24, 2004 بواسطه أمجد جمالي

[ahmedspcc]

up

[أبو هادي]

السلام عليكم

If "تشويق" = "تشويش" Then
  MsgBox "الكلمتان متطابقتان"
Else
  MsgBox "هناك سوء فهم آمل التدقيق"
End If

تحياتي .

[أبو هادي]

السلام عليكم

وصلة موضوع يحتوي على فكرة بسيطة لترجمة الأسماء ، يمكن الإستفادة منها :

مثال لعرض الشجرة TreeView

تحياتي .

[ahmedspcc]

الله الله الله يا ابو هادي بسم الله عليك الله يحميك

اخوك

فرحان منطنط المسروري

[ahmedspcc]

نعم اخي ابو هادي هذه مجر فكرة جيدة ولكن ما اقصده هو دالة ترجمة من العربي الى الانجليزي