1
2
トークン分解
String クラスの Split メソッド
戻り値
String 型の配列オブジェクト
添え字最大値
配列オブジェクトの GetUpperBound メソッド (ランク 1)
列挙
For 〜 Next ループ



拡張子:txtvbswsfjsphpjavahtmlutf8sjis
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