تقييم الموضوع :
  • 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
جزاك اله خيرا اخي الفاضل علي المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عن كيفية عمل اختصار من لوحة المفاتيح لسه مبتدئ 2 24 منذ 38 دقيقة مضت
آخر رد: لسه مبتدئ
  [VB.NET] جمع فواتير الناتجة عن البحث وعدد الفواتير EMADSSS 2 38 منذ 1 ساعه مضت
آخر رد: EMADSSS
Wink [سؤال] سؤال حول البحث في قاعدة بيانات من نوع اكسس ahmadpal 1 14 منذ 2 ساعة مضت
آخر رد: asemshahen5
  [VB.NET] استعلام للبحث عن عدد تكرار كلمة في بيانات حقل واحد في سجل واحد tarek 0 25 أمس, 09:09 PM
آخر رد: tarek
  كيفية مشاركة قاعدة بيانات اكسس على الانترنت Lathe1 5 91 أمس, 08:48 PM
آخر رد: Lathe1
  كيفية تخصيص تسمية ملف نصي ahmedfa71 0 25 أمس, 12:17 PM
آخر رد: ahmedfa71
  كيفية ادراج الكريستال ريبورت والنت فريمورك عند تحزيم البرنامج Emam emam 0 30 22-03-19, 11:58 PM
آخر رد: Emam emam
  كيفية رسم الاشكال الهندسية بالفجول بيسك Lathe1 0 16 22-03-19, 12:25 PM
آخر رد: Lathe1
  سؤال حول البحث ahmadpal 6 97 20-03-19, 11:37 PM
آخر رد: ahmadpal
  [VB.NET] كيفية إضافة مكتبة الإكسل في فجوال بيسيك 2015 larbihamri 8 107 19-03-19, 10:35 PM
آخر رد: larbihamri

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


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