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

نسخة كاملة : كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله وبركاته
ما اريده هو ان اقوم بالبحث عن نص مكتوب في صفحة ويب ويتم استخراج محنتوي صفحة الويب الى تيكست
 ويتم ادخال قيم للتيسكت الاخر ليتم المقارنة بينهم
يتم استخرام محتوي صفحة الويب الىي تيكست واحد
واقوم يدويا بادخال القيم الي تيكست 2
استخدم الكود الحالي
PHP كود :
If TextBox1.Text.Contains(TextBox2.Text.ToStringThen
            MsgBox
("Found")
 
       Else
            MsgBox
("NOt matched")
 
       End If
 
   End Sub 
اريد عند وجود اي جزء من التيكست الذي اقوم بادخاله يددويا يظهر لي انه موجود
ما اريده هو نفترض لدي 2 تيكست بوكس موجود في الاول كلام كتثير

والثاني موجود به مثلا تمت خسارة ربح
اريد ان يتم البحث عن اي من ال 3 كلمات  في حالة توفر اى واحده منهم اعرف ؟
(25-12-18, 03:44 PM)dametucorazon كتب : [ -> ]السلام عليكم ورحمه الله وبركاته
ما اريده هو ان اقوم بالبحث عن نص مكتوب في صفحة ويب ويتم استخراج محنتوي صفحة الويب الى تيكست
 ويتم ادخال قيم للتيسكت الاخر ليتم المقارنة بينهم
يتم استخرام محتوي صفحة الويب الىي تيكست واحد
واقوم يدويا بادخال القيم الي تيكست 2
استخدم الكود الحالي
PHP كود :
If TextBox1.Text.Contains(TextBox2.Text.ToStringThen
            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 0 To a.Length 1
    
' التأكد وجود الكلمة في النص
    If TextBox1.Text.Contains(a(i)) Then
        ' 
النتيجة نعم
        f 
True
        
' الخروج من اللوب
        Exit For
    End If
Next

إذا النتيجة إيجابية
If True Then
    MsgBox
("Found")
Else
 
   ' إذا النتيجة سلبية
    MsgBox("NOt matched")
End If 
جزاك اله خيرا اخي الفاضل علي المساعدة