المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
82
الشكر: 774
تم شكره 996 مرات في 298 مشاركات
15-10-19, 08:35 PM
(آخر تعديل لهذه المشاركة : 27-10-19, 10:00 PM {2} بواسطة 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) 'استدعاء الدالة
اتمنى الافادة للجميع ان شاء الله
اخوكم عبدالرحمن
المشاركات : 3,771
المواضيع 36
الإنتساب : Mar 2014
السمعة :
725
الشكر: 7108
تم شكره 6714 مرات في 3265 مشاركات
وعليكم السلام ورحمة الله وبركاته
عودة حميده اخى الفاضل 3booody
ولعل خيراً بامر الله فى انتظار رؤية ما تقدمه من علماً للخير
فجزاك الله خيراً اخى الحبيب وزادك الله علماً دائماً
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
82
الشكر: 774
تم شكره 996 مرات في 298 مشاركات
وجزاك بالمثل اخي العزيز الجوكر
ربي يزيدك علمآ وتواضعآ ونفع بك الامة
شكرآ لك
المشاركات : 3,771
المواضيع 36
الإنتساب : Mar 2014
السمعة :
725
الشكر: 7108
تم شكره 6714 مرات في 3265 مشاركات
الشكر لله والحمد لله
والحمد لله على كل حال
اللهم امين لى ولك وللجميع بامر الله
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 18
المواضيع 6
الإنتساب : Jan 2021
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
(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 حتى تتضح الصورة
مع امكانية تحميل المرفق
المشاركات : 357
المواضيع 50
الإنتساب : Oct 2012
السمعة :
18
الشكر: 899
تم شكره 314 مرات في 143 مشاركات
و عليكم السلام ورحمة الله وبركاته
جزاك الله خير ، و زادك علماً
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
|
لكل من يقوم بالمساهمة
