إزالة علامات التشكيل من كلمة

[rawya]

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

كتبت دالة باستخدام VBA تعمل على ازالة علامات التشكيل في النص الذي يمرر إليها

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

كتبت الكود التالي لكنه لم يعمل

Function RmTashkeel(InChar As String) As String
 If Len(InChar) = 0 Then Exit Function
 InChar = Replace(InChar, Asc(126), "")
 InChar = Replace(InChar, Asc(240), "")
 InChar = Replace(InChar, Asc(241), "")
 InChar = Replace(InChar, Asc(242), "")
 InChar = Replace(InChar, Asc(243), "")
 InChar = Replace(InChar, Asc(245), "")
 InChar = Replace(InChar, Asc(246), "")
 RmTashkeel = InChar
End Function

اتمنى منكم المساعدة .. وشكرا

[rawya]

تحياتي للجميع

تأخرت ردودكم أخواني الكرام ..

فلم يبقى إلا ان اجيب نفسي بعد أن تمكنت من حل المشكلة

لقد استخدمت الدالة asc() للتحويل في حين يجب استخدام chr()

Function RmTashkeel(InChar As String) As String
If Len(InChar) = 0 Then Exit Function
InChar = Replace(InChar, Asc(126), "")
InChar = Replace(InChar, Asc(240), "")
InChar = Replace(InChar, Asc(241), "")
InChar = Replace(InChar, Asc(242), "")
InChar = Replace(InChar, Asc(243), "")
InChar = Replace(InChar, Asc(245), "")
InChar = Replace(InChar, Asc(246), "")
RmTashkeel = InChar
End Function

ما زالت لي اسئلة آخرى في المنتدى .. ارجو المساعدة

[أمجد جمالي]

هذا هو المغزى

تركناك لحتى تكتشفي الحل بنفسك :d

[rawya]

أشكرك أخي الكريم على اتاحة الفرصة :(

ولكن لا اظن لو اتيحت لي سنة من التفكير ان اعرف كيف احل تنسيق الشعر .. والذي اوردته في مشاركة أخرى .. يمكنك الاطلاع عليها

وبالنسبة للكود السابق .. فهل أضمن باستخدام الترميز asc

عمل الدوال على الانظمة التي لا تكون اللغة العربية فيها مدعومة أساساً .. حيث أن استخدام الرموز العربية في الكود كان يفشل معي

مثلا

InChar = Replace(InChar, "ٍ", "")

لا يعمل على جميع الاجهزة ...

وشكرااااً

[أمجد جمالي]

لا حول ولا قوة الى بالله

انا شو الي خلاني رد على الموضوع ما بعرف

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

لكن رح حاول ساعد قدر الإمكان

ارفقي ملف فيه مثال بسيط من خلال مواقع الإستضافة المجانية وهي ياهو او جيران او ارسلي الملف الى ايميلي

Ajamali@acts-alsarh.com

مع شرح وافي للحالة

وان شاء الله خير

[أبو هادي]

السلام عليكم

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

تحياتي .