VB.Net Tutorial/Data Type/String Split

String Split

<source lang="vbnet">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</source>

1: One
2: Two
3: Three
4: Liberty
5: Associates
6:
7: Inc.

String split by using the Split, String.Split()

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim quote As String = "The important thing is not to " & _
           "stop questioning. --Albert Einstein"
       Dim strArray1() As String = Split(quote, "ing")
       Dim strArray2() As String = quote.Split(CChar("ing"))
       Dim counter As Integer
       For counter = 0 To strArray1.Length - 1
           Console.WriteLine(strArray1(counter))
       Next counter

       For counter = 0 To strArray2.Length - 1
           Console.WriteLine(strArray2(counter))
       Next counter
       
   End Sub

End Class</source>

The important th
 is not to stop question
. --Albert Einstein
The
mportant th
ng
s not to stop quest
on
ng. --Albert E
nste
n

Use Regular Expression to Split string

<source lang="vbnet">Imports System

Imports System.Text
Imports System.Text.RegularExpressions

Class Tester
    Public Shared Sub Main( )
        Dim s1 As String = "One,Two,Three Four"
        Dim theRegex As New Regex(" |, |,")
        Dim sBuilder As New StringBuilder( )
        Dim id As Integer = 1
        Dim subString As String
        For Each subString In theRegex.Split(s1)
            id = id + 1
            sBuilder.AppendFormat("{0}: {1}" & Environment.NewLine, id, subString)
        Next subString
        Console.WriteLine("{0}", sBuilder)
    End Sub
End Class</source>

2: One
3: Two
4: Three
5: Four