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

[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]