セル内改行を含むCSVファイルを読み込んで、分割したい

Question

＜やりたいこと＞
VBScriptを使用してCSVファイルを1行ずつ読み込んで、ある列に記述された時間毎にCSVを分割したい。
◆データ例
1行目：ID,時間,警告,備考
2行目：A,01:00,X,null
3行目：B,02:00,X,null
4行目：C,02:00,X,null
5行目：D,03:00,X,null
↓ Scriptを通す

・1時.csv
⇒2行目のみ
・2時.csv
⇒3行目、4行目
・1時.csv
⇒5行目のみ

＜教えてほしいこと＞
現在、FileSystemObjectのReadLineで1行ずつ読み込みをしようとしたのですが、上記データ例の『警告』列で
Xとしているデータがセル内改行されており本来1行として認識してほしい行が分割されて認識されてしまっています。
対策を教えてください。
よろしくお願いします。

Answer 1

恐らくCSVファイル内では、警告列はダブルクォーテーションで括られ、改行されて複数行で格納されているものと思われます。

ID,時間,警告,備考 
A,01:00,"警告1行目
警告2行目
警告3行目",null 

なので単純にReadLineで読み込んだのを１行として扱ってしまうとおかしくなります。
１行読んだ後、１文字ずつ精査し、ダブルクォーテーションが閉じられていない場合は、次の行も読み込み、前行と連結、というのを繰り返す必要があると思います。

読み込み処理のところのコードを書いてみました。
参考まで（※エラー処理は省いています）

Dim objFSO
Dim objr
Dim str

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objr = objFSO.OpenTextFile(WScript.Arguments.Item(0))

Do While objr.AtEndOfStream <> True
	str = ""
	' 1行分のデータ読み込みループ
	Do While objr.AtEndOfStream <> True
		str = str & objr.ReadLine
		' ダブルクォーテーションの数をカウントし偶数ならループを抜ける
		if (Len(str) - Len(Replace(str,"""",""))) Mod 2 = 0 Then Exit Do
	Loop
	' 1行分のデータを表示
	WScript.Echo "[" & str & "]"
Loop
objr.Close

Set objr = Nothing
Set objFSO = Nothing

Comments

[kodai]

> １行読んだ後、１文字ずつ精査し、ダブルクォーテーションが閉じられていない場合は、次の行も読み込み、前行と連結、というのを繰り返す必要があると思います。

1文字ずつ精査してもいいですが、ダブルクォーテーションが奇数個か判定する方がかんたんです。
閉じられていなければ必ず奇数になるので、偶数になった行が終端です。

[ttyp03]

なるほど、その方が簡単ですね。
ありがとうございます。