+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] بحث في نص مشكول (/showthread.php?tid=41670)
بحث في نص مشكول - waelalmsry75 - 08-06-22
السلام عليكم
الإخوة الكرام
لدي تيكست به نص غير مشكول
وتيكست آخر به (نفس النص) لكنه مشكول
أريد عند تحديد كلمة في التيكست الأول (غير المشكول) والضغط على زر بحث
يتم البحث في التيكست الثاني (المشكول) وتحديد نتيجة البحث
وجزاكم الله خيرا
* حاولت أكثر من مرة إرفاق صور لكنها تظهر على شكل رموز
RE: بحث في نص مشكول - معاند الحظ - 12-06-22
اخي استخدم الكود التالي
فهو يقوم بنسخ النص الموجود في تكستبوكس التشكيل ويحفظه في متغير
ثم يقوم بازالة التشكيل من هذا النص
ثم يقارن بين النصين ويعرض النتيجة
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'انسخ النص المشكل الى هذا المتغير
Dim str = txt1.Text
' to be replaced characters
Dim tashkeel = New Char() {"ِ"c, "ُ"c, "ٓ"c, "ٰ"c, "ْ"c, "ٌ"c, "ٍ"c, "ً"c, "ّ"c, "َ"c}
'الان قم بازالة التشكيل من النص المنسوخ
For Each c In tashkeel
str = str.Replace(c.ToString(), "")
Next
'الان قم بالمقارنة
If str = txt2.Text Then
MsgBox("found")
Else
MsgBox("not found")
End If
End SubRE: بحث في نص مشكول - أبو خالد الشكري - 12-06-22
بعد إذن الأخ معاند الحظ
قمت بوضع الكود في مشروع بسيط جدا مع التعديل البسيط .
وشكرا .