السلام عليكم ورحمة الله وبركاته
الحمدلله قد رجعت بعد غياب سنوات كانت بسبب ظروف مدينتي وقد اشتقت لاخواني كثيرآ وان شاء الله اكون متواجد معكم وان شاء الله اساهم في نشر العلم
اقدم لكم كود من تصميمي للتحقق من وجود حروف مكررة متتالية وحذف هذه الحروف للغة العربية
الغرض من الكود في الغالب للتحقق من تشابه النصوص لان بعض الكلمات هي اساسآ تحتوي على احرف مكررة متتالية مثل (الله,الليل,تتابع,...الخ)وانا كنت استخدم هالدالة في مسابقة للأسئلة حتى يعطي اجابة صحيحة بغض النظر عن خطأ الكلمة في الجواب ويعطيك الجملة بدون الحروف المكررة مثال:
الكلمة أأااآلعررررأااق ترجع الدالة بالكلمة العراق
وكما في الصورة هذه الجملة
اولا نستدعي فضاء الاسماء
كود :
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) 'استدعاء الدالةاتمنى الافادة للجميع ان شاء الله
اخوكم عبدالرحمن
اخوكم عبدالرحمن
