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

اخوانى الاعزاء اعضاء المنتدى انا برنامجى متوقف على هذا الكود اريد تصفية اسم على سبيل المثال
filter by name
| 212.55.11.58:8080 | vpn | http |
| 212.55.11.55:1080 | vpn | socks3 |
| 212.55.11.52:1080 | vpn | scock4 |
| 212.55.11.50:1080 | vpn | socks5 |
انا اريد اكتب مثلا socks فى textbox1
يقوم بعرض السطر الذى يجد فى كلمة سوكس فى تكست بوكس
انا استخدم هذا الكود
If TextBox2.Text.Contains("http") Then

MsgBox("done")
Else
MsgBox("Not")
End if
ولكن لن ينجح
لن يقوم بعرض السطر كامل او عرض الاى بى

[ناجي إبراهيم]

السلام عليكم...

الكود التالي يفترض أن الأسطر التي ستبحث فيها موجودة في مربع نص باسم 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

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

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

(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

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

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