CSV形式の文字列を文字列型配列に分割する

Sub Main()

    Dim line As String = ",test,"""",123,""Hello, world"",,,sample,"
    Dim splitted As String()

    Console.WriteLine("[元の文字列]")
    Console.WriteLine(line)

    splitted = SplitCSVString(line)

    Console.WriteLine("[分割された文字列]")

    Dim str As String

    For Each str In splitted

        Console.WriteLine(str)

    Next

End Sub

' CSVを文字列の配列に分割する
' ダブルクォーテーションでくくられた部分も正しく認識する
Function SplitCSVString(ByVal str As String) As String()

    If str Is Nothing Then Throw New ArgumentNullException("str")

    Dim pos As Integer        ' 現在の文字の位置
    Dim len As Integer        ' 文字列の長さ
    Dim last As Integer       ' 最後に見つかったカンマの次の位置
    Dim ch As Char            ' 現在の文字
    Dim quot As Boolean       ' ダブルクォーテーションでくくられた部分にいるか否か
    Dim splitted As ArrayList ' 分割された文字列

    pos = 0
    len = str.Length
    last = 0
    ch = Char.MinValue
    quot = False
    splitted = New ArrayList()

    While (pos < len)

        ch = str.Chars(pos)

        If Not quot AndAlso ch = ","c Then

            ' ダブルクォーテーションでくくられた部分ではないところでカンマが見つかった場合
            Dim val As String = str.Substring(last, pos - last)

            ' ダブルクォーテーションでくくられている場合、クォーテーションを取り除く
            If val.StartsWith("""") AndAlso val.EndsWith("""") Then

                val = val.Substring(1, val.Length - 2)

            End If

            ' 値をリストに追加
            splitted.Add(val)

            ' 位置を保存
            last = pos + 1

        ElseIf ch = """"c Then

            ' ダブルクォーテーションの状態
            quot = Not quot

        End If

        ' 次の文字
        pos += 1

    End While

    ' 最後がカンマで終わっている場合、空文字を追加
    If ch = ","c Then splitted.Add("")

    ' 文字列型配列として値を返す
    Return DirectCast(splitted.ToArray(GetType(String)), String())

End Function

static void Main(string[] args)
{
    string line = ",test,\"\",123,\"Hello, world\",,,sample,";
    string [] splitted;

    Console.WriteLine( "[元の文字列]" );
    Console.WriteLine( line );

    splitted = SplitCSVString( line );

    Console.WriteLine( "[分割された文字列]" );

    foreach ( string str in splitted )
    {
        Console.WriteLine( str );
    }
}

// CSVを文字列の配列に分割する
// ダブルクォーテーションでくくられた部分も正しく認識する
static string[] SplitCSVString( string str )
{
    if ( str == null ) throw new ArgumentNullException( "str" );

    int  pos;           // 現在の文字の位置
    int  len;           // 文字列の長さ
    int  last;          // 最後に見つかったカンマの次の位置
    char ch;            // 現在の文字
    bool quot;          // ダブルクォーテーションでくくられた部分にいるか否か
    ArrayList splitted; // 分割された文字列

    pos = 0;
    len = str.Length;
    last = 0;
    ch = Char.MinValue;
    quot = false;
    splitted = new ArrayList();

    while ( pos < len )
    {
        ch = str[pos];

        if ( !quot && ch == ',' ) 
        {
            // ダブルクォーテーションでくくられた部分ではないところでカンマが見つかった場合
            string val = str.Substring( last, pos - last );

            // ダブルクォーテーションでくくられている場合、クォーテーションを取り除く
            if ( val.StartsWith( "\"" ) && val.EndsWith( "\"" ) ) 
            {
                val = val.Substring( 1, val.Length - 2 );
            }

            // 値をリストに追加
            splitted.Add( val );

            // 位置を保存
            last = pos + 1;
        }
        else if ( ch == '"' ) 
        {
            // ダブルクォーテーションの状態
            quot = !quot;
        }

        // 次の文字
        pos += 1;
    }

    // 最後がカンマで終わっている場合、空文字を追加
    if ( ch == ',' ) splitted.Add( "" );

    // 文字列型配列として値を返す
    return (string[])splitted.ToArray( typeof( string ) );
}