منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
الإخوة الكرام
لدي تيكست به نص غير مشكول
وتيكست آخر به (نفس النص) لكنه مشكول
أريد عند تحديد كلمة في التيكست الأول (غير المشكول) والضغط على زر بحث
يتم البحث في التيكست الثاني (المشكول) وتحديد نتيجة البحث
وجزاكم الله خيرا

* حاولت أكثر من مرة إرفاق صور لكنها تظهر على شكل رموز

اخي استخدم الكود التالي
فهو يقوم بنسخ النص الموجود في تكستبوكس التشكيل ويحفظه في متغير
ثم يقوم بازالة التشكيل من هذا النص
ثم يقارن بين النصين ويعرض النتيجة

كود :

 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 Sub

بعد إذن الأخ معاند الحظ

قمت بوضع الكود في مشروع بسيط جدا مع التعديل البسيط .

وشكرا .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

waelalmsry75

معاند الحظ

أبو خالد الشكري