@HTML
<STYLE>
.LboxTd { font-weight:bold }
</STYLE>
<TABLE cellpadding="5" class="LboxTable" border="0" cellspacing="1" bgcolor="#000000">
<TR class="LboxTr"><TH class="LboxTh" bgcolor="#C0C0C0" nowrap>1</TH><TH class="LboxTh" bgcolor="#C0C0C0" nowrap>2</TH></TR>
<TR class="LboxTr"><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>トークン分解</TD><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>String クラスの Split メソッド</TD></TR>
<TR class="LboxTr"><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>戻り値</TD><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>String 型の配列オブジェクト</TD></TR>
<TR class="LboxTr"><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>添え字最大値</TD><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>配列オブジェクトの GetUpperBound メソッド (ランク 1)</TD></TR>
<TR class="LboxTr"><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>列挙</TD><TD class="LboxTd" bgcolor="#FFFFFF" nowrap>For 〜 Next ループ</TD></TR>
</TABLE>
@HEND

@DIV
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

@LINE

	Dim element As String

	For Each element In aData
		Console.WriteLine( element )
	Next

End Sub

End Module
@END