Option Strict On
Imports System
Class Tester
Public Shared Sub Main( )
Dim s1 As String = "One,Two,Three Liberty Associates, Inc."
Const Space As Char = " "c
Const Comma As Char = ","c
Dim delimiters( ) As Char = {Space, Comma}
Dim output As String = ""
Dim ctr As Integer = 0
Dim resultArray As String( ) = s1.Split(delimiters)
Dim subString As String
For Each subString In resultArray
ctr = ctr + 1
output &= ctr.ToString( )
output &= ": "
output &= subString
output &= Environment.NewLine
Next subString
Console.WriteLine(output)
End Sub 'Main
End Class 'Tester
|