Imports System
Public Class SplitStringByMultipleCharacterDelimiter_VB_NET
Public Shared Sub Main()
Dim s As String = "Visual Basic .NET (VB.NET)" + Environment.NewLine +
"is a:multi-paradigm, object-oriented" + Environment.NewLine +
"programmin@ language."
Dim sp As String() = s.Split(New [Char]() {","c, "."c, ":"c, CChar(Environment.NewLine)})
For Each subs As String In sp
If subs.Trim() <> "" Then
Console.WriteLine(subs.Trim())
End If
Next subs
End Sub
End Class
' run:
'
' Visual Basic
' NET (VB
' NET)
' is a
' multi-paradigm
' object-oriented
' programming language
'