إقتباس :        Dim input As String = "test1 , test2 , test3 , test4 , test5"
        Dim splitString As String() = input.Split(","c)
        Dim result As String = splitString(0).Trim()
        TextBox2.Text = result

(04-04-16, 09:56 PM)silverlight كتب :

PHP كود :

       Dim entry As String = "test1 , test2 , test3 , test4 , test5"
        Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries)
        TextBox1.Lines = entries 


و لكي يكون الكود أكثر دقة استخدم الكود بالشكل التالي

PHP كود :

       Dim entry As String = "test1 , test2 , test3 , test4 , test5"
        Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries)
        Dim newEntries As List(Of String) = New List(Of String)()
        For i As Integer = 0 To entries.Length - 1
            Dim s As String = entries(i).Trim
            newEntries.Add(s)
        Next
        TextBox1.Lines = newEntries.ToArray