Imports System
Class Sample
Public Shared Sub Main()
Dim s1 As String = ",ONE,,TWO,,,THREE,,"
Dim s2 As String = "[stop]" & _
"ONE[stop][stop]" & _
"TWO[stop][stop][stop]" & _
"THREE[stop][stop]"
Dim charSeparators() As Char = {","c}
Dim stringSeparators() As String = {"[stop]"}
Dim result() As String
result = s1.Split(charSeparators, StringSplitOptions.None)
Show(result)
result = s1.Split(charSeparators, StringSplitOptions.RemoveEmptyEntries)
Show(result)
result = s1.Split(charSeparators, 2, StringSplitOptions.None)
Show(result)
result = s1.Split(charSeparators, 2, StringSplitOptions.RemoveEmptyEntries)
Show(result)
result = s2.Split(stringSeparators, StringSplitOptions.None)
Show(result)
result = s2.Split(stringSeparators, StringSplitOptions.RemoveEmptyEntries)
Show(result)
result = s2.Split(stringSeparators, 2, StringSplitOptions.None)
Show(result)
result = s2.Split(stringSeparators, 2, StringSplitOptions.RemoveEmptyEntries)
Show(result)
End Sub
Public Shared Sub Show(ByVal entries() As String)
Console.WriteLine("The return value contains these {0} elements:", entries.Length)
Dim entry As String
For Each entry In entries
Console.Write("<{0}>", entry)
Next entry
Console.Write(vbCrLf & vbCrLf)
End Sub
End Class
|