Module MyModule
' ********************************************************' * 実行' ********************************************************
Sub Main()
Dim str As String = "0001,浦岡 友也,ウラオカ トモヤ,0003,0,2005/04/03,2005/06/19"
' 区切り文字定義
Dim delimStr As String = ","
Dim delimiter As Char() = delimStr.ToCharArray()
Dim aData As String() = str.Split( delimiter )
Dim i As Integer
For i = 0 To aData.GetUpperBound(0)
Console.WriteLine( aData(i) )
Next
Dim element As String
For Each element In aData
Console.WriteLine( element )
Next
End Sub
End Module