[dametucorazon]

السلام عليكم ورحمه الله وبركاته
ما اريده هو ان اقوم بالبحث عن نص مكتوب في صفحة ويب ويتم استخراج محنتوي صفحة الويب الى تيكست
 ويتم ادخال قيم للتيسكت الاخر ليتم المقارنة بينهم
يتم استخرام محتوي صفحة الويب الىي تيكست واحد
واقوم يدويا بادخال القيم الي تيكست 2
استخدم الكود الحالي

PHP كود :

If TextBox1.Text.Contains(TextBox2.Text.ToString) Then
            MsgBox("Found")
        Else
            MsgBox("NOt matched")
        End If
    End Sub 


اريد عند وجود اي جزء من التيكست الذي اقوم بادخاله يددويا يظهر لي انه موجود

[dametucorazon]

ما اريده هو نفترض لدي 2 تيكست بوكس موجود في الاول كلام كتثير

والثاني موجود به مثلا تمت خسارة ربح
اريد ان يتم البحث عن اي من ال 3 كلمات  في حالة توفر اى واحده منهم اعرف ؟

[a.wagdi]

(25-12-18, 03:44 PM)dametucorazon كتب : السلام عليكم ورحمه الله وبركاته
ما اريده هو ان اقوم بالبحث عن نص مكتوب في صفحة ويب ويتم استخراج محنتوي صفحة الويب الى تيكست
 ويتم ادخال قيم للتيسكت الاخر ليتم المقارنة بينهم
يتم استخرام محتوي صفحة الويب الىي تيكست واحد
واقوم يدويا بادخال القيم الي تيكست 2
استخدم الكود الحالي

PHP كود :

If TextBox1.Text.Contains(TextBox2.Text.ToString) Then
            MsgBox("Found")
        Else
            MsgBox("NOt matched")
        End If
    End Sub 


اريد عند وجود اي جزء من التيكست الذي اقوم بادخاله يددويا يظهر لي انه موجود

(27-12-18, 12:44 PM)dametucorazon كتب : ما اريده هو نفترض لدي 2 تيكست بوكس موجود في الاول كلام كتثير

والثاني موجود به مثلا
اريد ان يتم البحث عن اي من ال 3 كلمات  في حالة توفر اى واحده منهم اعرف ؟

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

تفضل الكود
TextBox1 يحتوي الكلام الكثير
TextBox2 يحتوي تمت خسارة ربح

PHP كود :

'TextBox2 : تمت خسارة ربح
Dim a() = TextBox2.Text.Split ' تقسيم النص الى كلمات
Dim f = False ' النتيجة
' لوب
For i = 0 To a.Length - 1
    ' التأكد وجود الكلمة في النص
    If TextBox1.Text.Contains(a(i)) Then
        ' النتيجة نعم
        f = True
        ' الخروج من اللوب
        Exit For
    End If
Next

' إذا النتيجة إيجابية
If f = True Then
    MsgBox("Found")
Else
    ' إذا النتيجة سلبية
    MsgBox("NOt matched")
End If 


[dametucorazon]

جزاك اله خيرا اخي الفاضل علي المساعدة