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

(22-03-14, 11:08 PM)Aly El-Haddad كتب : TextBox1 للـInput String
TextBox2 للـFilter
TextBox3 للـOutput String

كود :

Dim astrSplitItems() As String
        Dim astrFilteredItems() As String
        Dim strFilteredString As String

        TextBox3.Text = "Original Input String: " & TextBox1.Text & vbCrLf
        TextBox3.Text &= vbCrLf
        TextBox3.Text &= "Split Items:" & vbCrLf
        astrSplitItems = TextBox1.Text.Split(",")
        For I As Integer = 0 To astrSplitItems.Length - 1
            TextBox3.Text &= "Item(" & CStr(I) & "): " & astrSplitItems(I) & vbCrLf
        Next
        TextBox3.Text &= vbCrLf
        TextBox3.Text &= "Filtered Items (using '" & TextBox2.Text & "'):" & vbCrLf
        astrFilteredItems = Filter(astrSplitItems, TextBox2.Text, True, CompareMethod.Text)
        For I As Integer = 0 To astrFilteredItems.Length - 1
            TextBox3.Text &= "Item(" & CStr(I) & "): " & astrFilteredItems(I) & vbCrLf
        Next
        TextBox3.Text &= vbCrLf
        strFilteredString = String.Join(",", astrFilteredItems)
        TextBox3.Text &= "Filtered Output String: " & strFilteredString

بشكر حضرتك جدآ على اهتمامك وردك والكود فعلا شغال ولكن انا اريد يفلتر بالكلمه وسطر تحت سطر لاكن هذا الكود بيفلتر بالحرف ومن سطر واحد على سبيل المثال
| 1200 | hazem | 25 |
| 3200 | mohaned | 56 |
| 560 | nader | 78 |
اريد اكتب مثلا حازم
| 1200 | hazem | 25 | يظهر
يعرض دا فى تكست بوكس لواحده الهدف انى مبتدئ فى البرمجه وبطبق هذا الاكواد وعندى كود تانى بيطب نفس الفكره بس بيبحث وبفضل مساعدة الاساتذه ناجى ابراهيم وسعود وجوكر وبفضل ربنا ثم حضرتك هتكملى المعلومه