[ابراهيم مراد]

(22-03-14, 02:27 AM)ناجي إبراهيم كتب : السلام عليكم...

الكود التالي يفترض أن الأسطر التي ستبحث فيها موجودة في مربع نص باسم TextBox1 و أن النص الذي ستبحث عنه موجود في مربع نص باسم TextBox2.

عند النقر على الزر Button1 سيتم عرض الأسطر المحتوية على نص البحث في ListBox1 و الـ IP Address في ListBox2 كما في الصورة المرفقة:

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LineIdx, ColonPos As Integer
        Dim SearchText, ALine As String

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

        If TextBox1.Text.Trim = "" Then Exit Sub

        SearchText = TextBox2.Text.Trim
        If SearchText = "" Then Exit Sub

        For LineIdx = 0 To TextBox1.Lines.Count - 1
            ALine = TextBox1.Lines(LineIdx).Trim
            If ALine <> "" Then
                If ALine.Contains(SearchText) Then
                    ListBox1.Items.Add(ALine)
                    ALine = ALine.Substring(1)
                    ColonPos = ALine.IndexOf(":"c)
                    If ColonPos <= 0 Then
                        ListBox2.Items.Add("")
                    Else
                        ListBox2.Items.Add(ALine.Substring(0, ColonPos))
                    End If
                End If
            End If
        Next
    End Sub

نرجو الاستفادة و السلام.

الف شكر ليك وجزاك الله كل خير