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

[b]السلام عليكم اخوانى اريد تعديل على هذا الكود الكود يعمل على console
انا اريد استخدام الكود على فورم باستخدام تكستات بوكس وبوتن

PHP كود :

Dim strInputString As String
        Dim strFilterText As String
        Dim astrSplitItems() As String
        Dim astrFilteredItems() As String
        Dim strFilteredString As String
        Dim intX As Integer
 
        Console.Write("Enter a comma-delimited string of items: ")
        strInputString = Console.ReadLine()
        Console.Write("Enter Filter: ")
        strFilterText = Console.ReadLine()
 
        Console.WriteLine("Original Input String: " & strInputString)
        Console.WriteLine()
        Console.WriteLine("Split Items:")
        astrSplitItems = strInputString.Split(",")
        For intX = 0 To UBound(astrSplitItems)
            Console.WriteLine("Item(" & CStr(intX) & "): " & astrSplitItems(intX))
        Next
        Console.WriteLine()
        Console.WriteLine("Filtered Items (using '" & strFilterText & "'):")
        astrFilteredItems = Filter(astrSplitItems, strFilterText, True, CompareMethod.Text)
        For intX = 0 To UBound(astrFilteredItems)
            Console.WriteLine("Item(" & CStr(intX) & "): " & astrFilteredItems(intX))
        Next
        Console.WriteLine()
        strFilteredString = String.Join(",", astrFilteredItems)
        Console.WriteLine("Filtered Output String: " & strFilteredString)
 
        Console.WriteLine("")
        Console.WriteLine("(Press Enter to close this window.)")
        Console.ReadLine() 


<img src='http://istoreimg.com/upload/big/2014/03/23/532dc52c7ed8d.jpg' alt='image' /></a>
واريد ياخد سطر مش ياخد يقسم الكلمات يعنى لو السطر يجد فى مثلا كلمة ابل يعرض كل الاسطر اللى فيها كلمة ابل ودى صورة للكود على الكنسول[/b]

[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

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

(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 | يظهر
يعرض دا فى تكست بوكس لواحده الهدف انى مبتدئ فى البرمجه وبطبق هذا الاكواد وعندى كود تانى بيطب نفس الفكره بس بيبحث وبفضل مساعدة الاساتذه ناجى ابراهيم وسعود وجوكر وبفضل ربنا ثم حضرتك هتكملى المعلومه

[سعود]

اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟

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

(23-03-14, 02:02 AM)سعود كتب : اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟

لا ليس اجبارى كل الفكرة ان اريد افهم طريقة الفلتر والتعامل مع

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

تم التعديل على الكود شكرا لكل الاساتذه الذى سعدتنى والاستاذ المحترف شكرا جدا على تعديل الكود بفضل ربنا ثم حضرتك تم تكملة الفكرة Aly El-Haddad
وشكرا للاستاذ سعود على ردو والاهتمام