Imports System

​

Public Class ParsingString

​

    Public Sub Main()

        Dim address As String = " |805 Main Street|Dallas|TX|12345| "

        address = address.Trim

        If address.StartsWith("|") Then

            address = address.Remove(0, 1)

        End If

​

        Dim columns() As String = address.Split(CChar("|"))

        Dim street As String = columns(0) ' 805 Main Street

        Dim city As String = columns(1) ' Dallas

        Dim state As String = columns(2) ' TX

        Dim zipCode As String = columns(3) ' 12345

        Console.WriteLine("-----")

        Console.WriteLine("Street: " & street)

        Console.WriteLine("City: " & city)

        Console.WriteLine("State: " & state)

        Console.WriteLine("ZipCode: " & zipCode)

    End Sub

End Class

​