rawya قام بنشر ديسمبر 10, 2004 مشاركة قام بنشر ديسمبر 10, 2004 السلام عليكم ورحمة الله و بركاته كتبت دالة باستخدام 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 اتمنى منكم المساعدة .. وشكرا رابط هذا التعليق شارك More sharing options...
rawya قام بنشر ديسمبر 13, 2004 الكاتب مشاركة قام بنشر ديسمبر 13, 2004 تحياتي للجميع تأخرت ردودكم أخواني الكرام .. فلم يبقى إلا ان اجيب نفسي بعد أن تمكنت من حل المشكلة لقد استخدمت الدالة 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 ما زالت لي اسئلة آخرى في المنتدى .. ارجو المساعدة رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 13, 2004 مشاركة قام بنشر ديسمبر 13, 2004 هذا هو المغزى تركناك لحتى تكتشفي الحل بنفسك :d رابط هذا التعليق شارك More sharing options...
rawya قام بنشر ديسمبر 13, 2004 الكاتب مشاركة قام بنشر ديسمبر 13, 2004 أشكرك أخي الكريم على اتاحة الفرصة :( ولكن لا اظن لو اتيحت لي سنة من التفكير ان اعرف كيف احل تنسيق الشعر .. والذي اوردته في مشاركة أخرى .. يمكنك الاطلاع عليها وبالنسبة للكود السابق .. فهل أضمن باستخدام الترميز asc عمل الدوال على الانظمة التي لا تكون اللغة العربية فيها مدعومة أساساً .. حيث أن استخدام الرموز العربية في الكود كان يفشل معي مثلا InChar = Replace(InChar, "ٍ", "") لا يعمل على جميع الاجهزة ... وشكرااااً رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر ديسمبر 13, 2004 مشاركة قام بنشر ديسمبر 13, 2004 لا حول ولا قوة الى بالله انا شو الي خلاني رد على الموضوع ما بعرف أحرجتيني بصراحة من خلال عملي لم يمر علي ابداً شي اسمه تنسيق شعر او إزالة تشكيل من نص معين لكن رح حاول ساعد قدر الإمكان ارفقي ملف فيه مثال بسيط من خلال مواقع الإستضافة المجانية وهي ياهو او جيران او ارسلي الملف الى ايميلي Ajamali@acts-alsarh.com مع شرح وافي للحالة وان شاء الله خير رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر ديسمبر 13, 2004 مشاركة قام بنشر ديسمبر 13, 2004 السلام عليكم يوجد دالة للبحث في مشروع برنامج القرآن الكريم بقسم المشاريع بها إماكنية تجاهل التشكيل أو اعتماده وتجاهل الهمزات أو اعتماده وأمور شبيهة أخرى . تحياتي . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.