طلب كود لفصل النصوص الإنجليزية عن العربية

[ابوآمنة]

السلام عليكم 

هل أجد كود لفصل النصوص الإنجليزية عن العربية التي في حقل واحد

بالمرفق 

مثال للتطبيق عليه

English_and_Arabic.rar

[kanory]

وعليكم السلام .... انظر الاستعلام ... قد يكون هوطلبك

EngArb.accdb

[ابوآمنة]

فعلاً  عمل جبار تشكر عليه

بوركت يا أخي kanory

تم تعديل يوليو 28, 2018 بواسطه saleh204

[kanory]

شكرا اخي صالح ....... الحمدلله رب العالمين ....

[ابوآمنة]

سؤال لو أردنا نسخ بيانات الاستعلام إلى الجدول

كيف يكون ذلك

[kanory]

ممكن عن طريق استعلام الحاق .... 

[kanory]

ممكن استعلام تحديث أخي صالح ايضا ....

[ابوآمنة]

شكرا

[kanory]

زيادة في اثراء الموضوع هذا استعلام تحديث لما تريد ......

EngArb.accdb

[ابوآمنة]

شكر الله سعيك وأعلى الله منزلتك kanory

إضافة جميلة للمنتدى 

[ابوآمنة]

هناك ملاحظة عند فصل النصوص العربية عن الانجليزية

الاحظ أن النصوص الإنجليزية حذفت منها جميع المسافات بين الكلمات.

ما هو الحل ؟

[ابوآمنة]

للرفع

[ابوآمنة]

كود فصل النصوص الإنجليزية : 

Function StrToEng(txt As String) As String

Dim x As Integer, c As String

For x = 1 To Len(txt)
    c = Asc(Mid(txt, x, 1))
    If c >= 47 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then
        StrToEng = StrToEng & Mid(txt, x, 1)
    Else
    End If
Next x

End Function

كود فصل النصوص العربية :

Function StrToArb(txt As String) As String

Dim x As Integer, c As String

For x = 1 To Len(txt)
    c = Asc(Mid(txt, x, 1))
    If c >= 47 And c <= 57 Or c >= 65 And c <= 90 Or c >= 97 And c <= 122 Then
    Else
        StrToArb = StrToArb & Mid(txt, x, 1)
    End If
Next x

End Function

شكر الله سعيك  @kanory 

هل بالإمكان التعديل على الكود لإضافة مسافة بين الكلمات الإنجليزية ؟

وشكراً لكم

[ابو جودي]

ومساهمة منى مع اخى الحبيب @kanory 

لانى كنت عامل قاعدة لكيبورد  قبل كدة كان لازم استخدم الأكواد للتحكم فى كل الأحرف والعلامات

طبعا انا كاتب اكواد كتير شوية لكن التحكم فى الموديل هنا افضل قليلا تستطيع ان تلغى ما لا تريد او تريده بأضافة العلامة    '  فى اول سطر الكود

يعنى مثلا انا لاغيت الاقواس عاوز ترجع الاقواس استبدل الكود ده

myData = Replace(myData, "(", "")
myData = Replace(myData, ")", "")

بهذا الكود

'myData = Replace(myData, "(", "")
'myData = Replace(myData, ")", "")

مفيش دلع اكتر من كده  يا استاذ @saleh204 

الاستعلام  Query2 هو النهائى

طبعا هو مبنى على الاستعلام Query1

 

تقدر تشوف الفرق بينهم 

EngArb (3).accdb

تم تعديل يونيو 1, 2019 بواسطه ابا جودى

[ابو جودي]

لسه فى شئ تانى بس انا منتظر ردك الاول طبعا بعد التجربة

تم تعديل يونيو 1, 2019 بواسطه ابا جودى

[ابوآمنة]

ما شاء الله تبارك الله 

جميل جداً واشكر صاحب الأنامل والأيادي التي صنعتها جعل الله في ميزان حسناتك

لكن هناك مسافات على اليمين والشمال في الكلمات العربية الإنجليزية في الاستعلام رقم Query2 

بانتظار التعديلات الأخيرة كما قلت ،،، 

تم تعديل يونيو 1, 2019 بواسطه saleh204

[ابو جودي]

بص المنشور السابق لردك مباشرة قلت لك ايه
 

اقتباس

لسه فى شئ تانى بس انا منتظر ردك الاول طبعا بعد التجربة

 

 

 

 

انا بس كنت منتظر اشوف انت هتحتاج شئ تانى واللا لاء
والتجربة عجبتك اصلا واللا هتزعق لى 

 

اتفضل طالما راض عن النتيجة دى

 

EngArb (4).accdb

تم تعديل يونيو 1, 2019 بواسطه ابا جودى

[ابوآمنة]

 

ممتاز  جزيت خيراً وقلت المسافات

لكن 

ألاحظ الكلمات التي تحتوي على أقواس أو شرطة تكون بها فراغات بسيطة 

هل يمكن معالجته . 

 

 

سامحني كان أتعبتك معي ... بس القصد يسفيد منه الجميع 

تم تعديل يونيو 1, 2019 بواسطه saleh204

[ابوآمنة]

شكرا @ابا جودى

تم حل المشكلة بإضافة في الاستلام  Query2  الدالة التالية

Arabic: LTrim(WinChrct([Arb]))
English: RTrim(WinChrct([Eng]))

بالمرفق التعديل

EngArb5.accdb

تم تعديل يونيو 2, 2019 بواسطه saleh204

[ابو جودي]

لا

الحل فى الموديول  تجده تحت العنوان

' الحالات الشاذة   
 وبما انك فهمت الفكرة انا دمجت الاستعلامين وخلتهم واحد 

EngArb (5).accdb

[ابوآمنة]

روعة شكراً لك اكتمل العقد 

[ابو جودي]

خلينا نتفق ان ممكن يكون فى طريق افضل من كدة والله اعلم

ولكن انا احب ان اتحكم فى كل شئ وتكون مقاليد وزمام الامور بيدى

هنا ترى الان التعديل على الموديول لانك تواجه اخطاء بشرية غير متوقعة 

قمت بعلاجها واحد تلو الاخر واذا تكر لن اكرر انا الكود 

 

[ابو جودي]

1 دقيقه مضت, saleh204 said:

روعة شكراً لك اكتمل العقد 

اذا وقت الدفع

صل على النبى صل الله عليه وسلم يا هذا

[ابوآمنة]

47 دقائق مضت, ابا جودى said:

اذا وقت الدفع

صل على النبى صل الله عليه وسلم يا هذا

دفع الله عنك الضر .

وجعلنا الله وإياكم من المقبولين في هذا الشهر الفضيل 

بارك الله في علمك وعملك ،،،

وختم الله بالصالحات أعمالك

وبلغك ما ترد من خيري الدنيا والآخرة

وجميع المسلمين.

يا رب العالمين

وصل اللهم على نبينا محمد ‏وعلى اله وصحبه اجمعين

تم تعديل يونيو 2, 2019 بواسطه saleh204

[ابوآمنة]

' الحالات الشاذة
myData = Replace(myData, "   ( )", "")
myData = Replace(myData, "     (  )", "")
myData = Replace(myData, "    ", "")
myData = Replace(myData, "(   )", "")
myData = Replace(myData, "()", "")
myData = Replace(myData, " JIT", "(JIT)")
myData = Replace(myData, "   (  )", "")

جميل جداً "لكل قاعدة شواذ"

اعجبتني الفكرة .

تم تعديل يونيو 2, 2019 بواسطه saleh204