[العبادي 2]

(15-10-19, 08:35 PM)3booody كتب :

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

الحمدلله قد رجعت بعد غياب سنوات كانت بسبب ظروف مدينتي وقد اشتقت لاخواني كثيرآ وان شاء الله اكون متواجد معكم وان شاء الله اساهم في نشر العلم

اقدم لكم كود من تصميمي للتحقق من وجود حروف مكررة متتالية وحذف هذه الحروف للغة العربية

الغرض من الكود في الغالب للتحقق من تشابه النصوص لان بعض الكلمات هي اساسآ تحتوي على احرف مكررة متتالية مثل (الله,الليل,تتابع,...الخ)وانا كنت استخدم هالدالة في مسابقة للأسئلة حتى يعطي اجابة صحيحة بغض النظر عن خطأ الكلمة في الجواب ويعطيك الجملة بدون الحروف المكررة مثال:

الكلمة أأااآلعررررأااق ترجع الدالة بالكلمة العراق

وكما في الصورة هذه الجملة

اولا نستدعي فضاء الاسماء

كود :

Imports System.Text.RegularExpressions

ثم نضع

هذه الدالتين  

كود :

Function RemoveSame(ByVal txt As String) As String
       Do While Re(txt) <> ""
           txt = txt.Replace(Re(txt), Re(txt).Chars(0))
       Loop
       Return txt
   End Function
   Function Re(ByVal txt As String) As String
       On Error Resume Next
       Return Regex.Match(txt, "ب{2,}|ا{2,}|ت{2,}|ث{2,}|ج{2,}|ح{2,}|خ{2,}|د{2,}|ذ{2,}|ر{2,}|ز{2,}|س{2,}|ش{2,}|ص{2,}|ض{2,}|ط{2,}|ظ{2,}|ع{2,}|غ{2,}|ف{2,}|ق{2,}|ك{2,}|ل{2,}|م{2,}|ن{2,}|ه{2,}|و{2,}|ؤ{2,}|ي{2,}|ء{2,}|آ{2,}|أ{2,}|إ{2,}|ى{2,}|ئ{2,}|ة{2,}").Value
   End Function

يمكن استدعاء الدالة بهذا الكود

كود :

TextBox2.Text = RemoveSame(TextBox1.Text) 'استدعاء الدالة

اتمنى الافادة للجميع ان شاء الله
اخوكم عبدالرحمن

ارجو وضع هذه الدالة في فورم فيجوال بيسك 6 حتى تتضح الصورة 
مع امكانية تحميل المرفق