تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية البحث عن نص في التكست بكس
#1
Question 
السلام عليكم
شباب كيف حالكم
انا جديد في هذا المنتدى
لو سمحتم اريد ان اعرف كيفية البحث عن نص باستخدام تكس بوكس
لكن بشرط انه يحتوي على لوب
مثلا لو الكلمة المراد البحث عنها موجودة في اكثر من موضع يعرضهن كلهن
ولكم مني جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
طبق المثال السريع هذا باستخدام RegularExpressions
اضف الادوات التالية:
Button1
backgroundworker
2 textbox
progressbar
استدعي الاتي:
كود :
Imports System.Net
Imports System.Text.RegularExpressions
عرف عموميا التالي:
كود :
Dim str As String = "showthread.php"
    Dim mcoll As MatchCollection
    Dim ob As String
في حدث تحميل الفورم اكتب:
كود :
Dim wc As New WebClient
        TextBox1.Text = wc.DownloadString("http://vb4arb.com/vb/index.php")

في حدث النقر لزر الامر اكتب
كود :
If bb.IsBusy Then Exit Sub
        mcoll = Regex.Matches(TextBox1.Text, str)
        p.Maximum = mcoll.Count
        bb.ReportProgress(mcoll.Count)
        bb.RunWorkerAsync()
bb = backgroundworker
في حدث bb_DoWork اكتب:
كود :
For Each ma As Match In mcoll
            ob &= ma.Value & vbNewLine
        Next
في حدث bb_ProgressChanged اكتب:
كود :
p.Value = e.ProgressPercentage
p=progressbar
في حدث bb_RunWorkerCompleted اكتب:
كود :
TextBox2.Text = ob
        MsgBox("done")
وهذا الكلاس بشكل كامل
[align=left][code]
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

    Dim str As String = "showthread.php"
    Dim mcoll As MatchCollection
    Dim ob As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wc As New WebClient
        TextBox1.Text = wc.DownloadString("http://vb4arb.com/vb/index.php")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If bb.IsBusy Then Exit Sub
        mcoll = Regex.Matches(TextBox1.Text, str)
        p.Maximum = mcoll.Count
        bb.ReportProgress(mcoll.Count)
        bb.RunWorkerAsync()

    End Sub

    
    Private Sub bb_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bb.DoWork
        For Each ma As Match In mcoll
            ob &= ma.Value & vbNewLine
        Next
    End Sub

    Private Sub bb_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bb.ProgressChanged
        p.Value = e.ProgressPercentage
    End Sub

    Private Sub bb_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bb.RunWorkerCompleted
        TextBox2.Text = ob
        MsgBox("done")
    End Sub
End Class
[/code]
[/align]
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Sajad , alsalahi
#3
Thumbs Up 
شكرا لك اخي سعود
الله يعطيك الف عافيةSmileSmileSmileSmile
الرد }}}}
تم الشكر بواسطة:
#4
هنا شرح فيديو لعمل بحث تلقائي كما تريد
الرد }}}}
تم الشكر بواسطة: alsalahi
#5
Thumbs Up 
شكرا لك اخي ناصر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 13 186 أمس, 02:34 AM
آخر رد: مساعدة
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 72 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 148 12-01-17, 02:05 AM
آخر رد: يسرى7
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 105 05-01-17, 12:40 AM
آخر رد: أبو عمر
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 103 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 131 24-12-16, 03:47 PM
آخر رد: ابو ليلى
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 79 22-12-16, 06:52 PM
آخر رد: قناص المدينة
  [سؤال] كود البحث عن طريق اسم naden 2 167 15-12-16, 02:33 AM
آخر رد: naden
  [VB.NET] كيفية استخدام مكتبة TLSharp الماجيك مسعد 5 161 13-12-16, 03:55 AM
آخر رد: الماجيك مسعد
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 292 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي

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


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