تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة
#1
السلام عليكم ورحمه الله وبركاته
ما اريده هو ان اقوم بالبحث عن نص مكتوب في صفحة ويب ويتم استخراج محنتوي صفحة الويب الى تيكست
 ويتم ادخال قيم للتيسكت الاخر ليتم المقارنة بينهم
يتم استخرام محتوي صفحة الويب الىي تيكست واحد
واقوم يدويا بادخال القيم الي تيكست 2
استخدم الكود الحالي
PHP كود :
If TextBox1.Text.Contains(TextBox2.Text.ToStringThen
            MsgBox
("Found")
 
       Else
            MsgBox
("NOt matched")
 
       End If
 
   End Sub 
اريد عند وجود اي جزء من التيكست الذي اقوم بادخاله يددويا يظهر لي انه موجود
الرد
تم الشكر بواسطة:
#2
ما اريده هو نفترض لدي 2 تيكست بوكس موجود في الاول كلام كتثير

والثاني موجود به مثلا تمت خسارة ربح
اريد ان يتم البحث عن اي من ال 3 كلمات  في حالة توفر اى واحده منهم اعرف ؟
الرد
تم الشكر بواسطة:
#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 
الرد
#4
جزاك اله خيرا اخي الفاضل علي المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية قلب برنامج مبني بالانجليزي الي العربي عاصم شرف الدين محمد 8 81 منذ 11 ساعة مضت
آخر رد: mmali127
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 30 21-01-19, 06:49 PM
آخر رد: dubai.eig
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 4 97 19-01-19, 06:15 PM
آخر رد: حريف برمجة
  ف/ي كلمة السر واسم المستخدم hassan 14 5 132 19-01-19, 02:46 AM
آخر رد: sendbad100
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 198 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  أكواد البحث في السجلات والحقول ZaerAllail 0 68 14-01-19, 12:13 AM
آخر رد: ZaerAllail
  [سؤال] كيف امسح حرف او حرفين من داخل تيكست dametucorazon 2 69 12-01-19, 08:43 PM
آخر رد: حريف برمجة
  [VB.NET] أضافه فورم داخل فورم بدون كود أستفسار adel27 21 3,052 10-01-19, 02:38 AM
آخر رد: taregmusa
  طريقة تحديد الكل داخل خلية فى datagridviw atef_020 19 410 07-01-19, 03:36 PM
آخر رد: atef_020
  جمع الكمية لصنف واحد داخل datagridview atef_020 24 720 28-12-18, 06:16 PM
آخر رد: atef_020

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم