正規表現でダブルクォーテーション囲み＆カンマ区切りを表現したい

Makefile

---------

LIBSOPT=/r:System.dll /r:Mscorlib.dll

OPT=/optimize+ /debug- /nologo /optionexplicit+ /optionstrict+



ALL: csvtest.vb

    vbc.exe $(OPT) $(LIBSOPT) csvtest.vb



---------

csvtest.vb

---------------

Option Strict On

Option Explicit On



Imports System

Imports System.Text.RegularExpressions

Imports System.Collections



Class Application

  Public Shared Sub Main( argv() as String )

    Dim DATA As String = "abc,,""rr""""r""""r"",ty,"""",yyu,"""""",lll"

    Dim rePATTERN As String = "^(((?:"".*?[^""]"")[ \t]*|(?:.*?)),)+"



    Dim rows as ArrayList

    rows = RecordSplit(DATA, rePATTERN)

    Display(rows)

  End Sub



  ' すべての列データを表示

  Public Shared Sub Display(Rows as ArrayList)

    Dim wkRI as Integer

    For wkRI = 0 To Rows.Count -1

      Console.Writeline(wkRI & ":" & Rows(wkRI).ToString())

    Next wkRI

  End Sub



  ' １件のレコードを列に分解してArrayListに格納する

  Public Shared Function RecordSplit(DATA as String, rePATTERN as String) As ArrayList

    Dim m as Match

    Dim cc as CaptureCollection

    Dim matches as MatchCollection

    Dim result as New ArrayList()



    ' 正規表現にマッチさせるために最後,を追加

    matches = Regex.Matches( DATA & ",", rePATTERN, RegexOptions.Singleline)

    IF matches.Count = 0  Then

      Console.WriteLine("マッチしませんでした")

      return result

    End if



    Dim wkGI as Integer = 0

    Dim wkCI as Integer = 0

    Dim szMatch As String



    m = matches.item(0)

    wkGI = m.Groups.Count -1

    While m.Groups( wkGI ).Value <> ""

      cc = m.Groups(wkGI).Captures

      For wkCI=0 To cc.Count - 1

        ' マッチしたデータの修正

        szMatch = cc(wkCI).ToString()

        if szMatch = "" then

          Console.WriteLine("DATA Error(" & wkCI & "):" & """" & szMatch &"""")

        end if

        If szMatch.indexOf("""") <> -1 then

          ' クォーテーション削除

          szMatch = szMatch.Substring(1,szMatch.length - 2 )

          ' 二重引用符を一つに

          szMatch = szMatch.Replace("""""","""")

        end if

        result.Add( szMatch )

      Next wkCI

      wkGI = wkGI + 1

    End While

    return result

  End Function

End Class