VBを2008を用いてCSVを取り込む　””で区切られていない数値混入

Question

VBを2008を用いてCSVを取り込む　””で区切られていない数値混入　文字列に，が含まれている場合がある。

題名どおりなのですが、以下のようなCSVファイルをVB2008で取り込もうと考えています。
"AAAAA",BBBBB,CCCCC,"DDDD,DDD","EEEEE","FFFFF"

（同じアルファベットが本来同じ項目のデータ、BとCは0-9の数字のみ入ります
またBCには常に””が含まれません。
Dは文字列なのですが、まれに「，」が含まれます）

下のものが現在使用しているソースですがsplitで「,」を指定しているので
当然Dが２つのデータとして認識されています。
BやCが””で囲まれていれば「”,”」で区切ればすむのですが一部が””なしなので
どうやろうか迷っています。

実現したいこととしては
""なしの時は必ず、コンマまでが１つのデータ、
""があれば""で区切られたデータが１つのデータとできればいいんですが。。。

以下ソースです。　ちなみにASPXファイルです。
（replaceDoubleQuotesというのは”を削除するための関数で無視していただいて結構です。
また以下のソースでは取り込み自体はせずにタイトル行がはいっているCSVファイルを弾く作業をしているのですが
CSVからデータを取り出す作業は同じなので短いソースを使用させてもらっています）

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

Dim Reader2 As New IO.StreamReader("C:\UploadedFiles\Uriage.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
            Dim Items2() As String                'CSVの各項目を表す配列
            Dim Line2 As String = Reader2.ReadLine 'CSVの一行
            Items2 = Line2.Split(",")
            Dim num_hantei As String = "^[0-9]+$"

If Not (Regex.IsMatch(replaceDoubleQuotes(Items2(3)), num_hantei)) Then

Dim objFSO As Object
                objFSO = CreateObject("Scripting.FileSystemObject")
                objFSO.DeleteFile("C:\UploadedFiles\Uriage.txt", True)
                objFSO = Nothing
                Label1.Text = "取り込みエラー。タイトル行がはいっている可能性があります。"
                Exit Sub
                     
            End If
            Reader2.Close()
    End Sub
   Function replaceDoubleQuotes(ByVal apdata As Object) As String
        '文字列に変換する
        Dim tmp As String = String.Format("{0}", apdata)
        '1つのダブルクォーテーションを0個に置換する　つまり消去する
        replaceDoubleQuotes = tmp.Replace("""", "")
    End Function

todo36 · Accepted Answer

自力でやるよりTextFieldParserクラスがお勧め
http://www.atmarkit.co.jp/fdotnet/dotnettips/487csvparser/csvparser.html

nda23 · Answer

【考え方】
１．引用符内部のカンマを特定文字に変換する。
２．カンマで区切る。
３．各要素において特定文字をカンマに変換する。
特定文字は入力できないような文字にしておく。

Imports System.Text.RegularExpressions
'－－－－　中略　－－－－
　　Const 特定文字 As String = Chr(0)
　　Dim 正規表現 As Regex = New Regex("\""(.*?)\""") '引用符内部を示す正規表現

'与えられた文字列をカンマで区切り、文字列の配列を返す
　　'但し、引用符内部のカンマは区切り文字とは見なさない
　　Function 分割処理(ByVal 指定文字列 As String) As String()
　　　　'★１．引用符内部のカンマを特定文字に変換する
　　　　Dim 変換後文字列 As String = 正規表現.Replace(指定文字列, AddressOf 内部変換)
　　　　'★２．カンマで分割する
　　　　Dim 配列() As String = 変換後文字列.Split(",")
　　　　Dim I As Integer
　　　　For I = 0 To UBound(配列)
　　　　　　'★３．要素内の特定文字をカンマに変換する
　　　　　　配列(I) = 配列(I).Replace(特定文字, ",")
　　　　Next
　　　　分割処理 = 配列
　　End Function

'引用符内部の文字列を置換する
　　Function 内部変換(ByVal 一致部分 As Match) As String
　　　　内部変換 = 一致部分.ToString().Replace(",", 特定文字)
　　End Function

正規表現の使い方を習得すると、何かと便利なのでお勧めします。

imogasi · Answer

コードなど書いて質問が長いが、コードを考える前に、どういうロジックでやれるのかはっきりさせる必要がある。
どういう風にやれば旨く行きそうなのかは、質問者で無いとわからない。
頻度や用途にも関係するから。質問には、データ例も挙げられていないし判らない。またプログラムのスキルもある。例えば正規表現に慣れていない人にそれを使う回答は無意味。
特にカンマの誤混入（?）は痛い。本当に誤混入なのか？
このへんを補足で説明してほしい。
ーー
CSVファイルは色々数種の方式がある。項目内容について
カンマで区切る、は動かせないが
A.ダブルクオートで全て囲む
B.文字列だけ囲む。数値は囲まない
C.全て囲まない
など。
＞””で区切られていない数値混入
はB。のケースで無いのか？
Aなのに異例的に数値があるということか。
ーーー
＞文字列に，が含まれている場合がある。
入力ミスか？本来のカンマの使い方が文字列にあるということか。
参考　http://soudan1.biglobe.ne.jp/qa5012895.html
エクセルなどではカンマもダブルクオートの中だとカンマの扱いのようだが。
http://d.hatena.ne.jp/verdana/20091023/1256322414
ーー
VB.NET固有のCSVを扱うプログラムで処理してどうなりますか
http://www.cocoaliz.com/vb.net/index/25/
など
＝＝＝＝
（１０００行ぐらいなら）テキストエディタなどで、人間がチェックして、プログラムでは発見・修正が難しくなる個所を手入力で修正し、中間ファイルをつくるのが一番早いと思うが、いかが。
ーー
前段階処理として、またはその疑わしきでもよい、個所をプログラムで摘出し、数を限定・少数に出来ないか。

VBを2008を用いてCSVを取り込む ””で区切られていない数値混入

自力でやるよりTextFieldParserクラスがお勧め

【考え方】

コードなど書いて質問が長いが、コードを考える前に、どういうロジックでやれるのかはっきりさせる必要がある。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

VBを2008を用いてCSVを取り込む　””で区切られていない数値混入