البحث Search بوجود علامات التشكيل

[rawya]

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

اخواني الكرام .. طرحت هذا السؤال ولكن لم يرد علي أحد :)

لا أستطيع الانتظار .. فإعذروني

كل ما في الموضوع أني أريد البحث في حقل نصي مكتوب باللغة العربية يحتوي على علامات التشكيل ...

هل هناك كود أو طريقة لتنفيذ هذا البحث

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

[محمد طاهر عرفه]

هذه دالة للتعرف علي هل الحرف تشكيل أم لا

و هي من إعداد الأخ أبو هادي

Function IsTashkeel(ByVal InChar As Variant) As Boolean

  IsTashkeel = False

  If Len(InChar) = 0 Then Exit Function

  

  Select Case Asc(Left(InChar, 1))

    Case 126, 240 To 243, 245, 246, 248, 250

      IsTashkeel = True

  End Select

End Function

[rawya]

أهلا ...

شكراً جزيلاً ... رغم انه ليس ما اريد بالتحديد ..

الكود يساعد في معرفة وجود حرف تشكيل .. وأنا أريد كود يبحث عن كلمة بدون تشكيل ... في حقل كل كلماته بالتشكيل

عموما سأحاول ان احل المشكله .. قد يساعدني الكود ..