2つのCSVを比較して一致していないものを検出する方法

質問

• 2つのCSVを比較して一致していないデータを検出する方法について教えてください。
• 特定の条件に基づいて、2つのCSVファイルの一致していないデータを抽出する方法を教えてください。
• VBスクリプトを使用して、2つのCSVファイルを比較し、一致していないデータを見つける方法を教えてください。

回答No.3

DOUGLAS_

●VBScriptでテキストファイルの内容の間違い探しは出来るでしょうか？
http://okwave.jp/qa/q6138246.html

の続きかと存じますが、No.2 nda23 さんがお書きの

＞(1)データを読み込んで配列に溜め、比較を行う。
＞(1)はまぁ、コテコテとプログラムすることになります。

に近い方法をお一つ。

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

＞BのCSVの「A列の値＋B列の値」がおなじものをAのCSVから探し
＞同じものを見つけたらBのCSVの同じ行のC列の値が一致しているか検索

とのことですが、その順序で コード を書くと、冗長になりますので、

１）「BのCSV」の中から「AのCSV」に存在しない行を探し
２）BのCSVのその行の「A列の値＋B列の値」を、再度「AのCSV」から探す

という順序で考えてみました。

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

[１]「AのCSV」（"D:\hoge\A.CSV"）の全文を strCsvA に格納します。
[２]「BのCSV」（"D:\hoge\B.CSV"）を １レコード ずつ読み込み、[１] から検索します。
[３] 見つからなかった場合は、今度は、「A列の値＋B列の値」だけを [１] から検索します。
[４] [３] の結果が、
・「見つかった」場合は（C列の値だけ）「一致しない」
・「見つからなかった」場合は（「A列の値＋B列の値」自体が）「存在しない」
という文字列を付して、「別テキスト」（"D:\hoge\C.CSV"）に書き出します。

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

＞VBすくりぷとで考えています。
とのことですので、
・メモ帳を起動し、下記コード を コピペ します。
・全角スペース を 半角スペース ２個 に置換します。
・これを適当な名前で、拡張子「VBS」で保存します。
・この VBS ファイル を実行します。

　以上です。

'-----------------------------------

Option Explicit

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim objFSO
Dim objCsvA, objCsvB, objCsvC
Dim strCsvA, strCsvB, strCsvC
Dim arrCsvB

'//FileSystemObject を使って 値を読み書きします。
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCsvA = objFSO.OpenTextFile("D:\hoge\A.CSV", ForReading)
Set objCsvB = objFSO.OpenTextFile("D:\hoge\B.CSV", ForReading)
'//追加書込の場合は、下の「ForWriting」を「ForAppending」に変えてください。
Set objCsvC = objFSO.OpenTextFile("D:\hoge\C.CSV", ForWriting)
strCsvA = vbCrLf & objCsvA.ReadAll　　'[１]

Do While objCsvB.AtEndOfStream <> True　　'[２]
　strCsvB = vbCrLf & objCsvB.ReadLine
　arrCsvB = Split(strCsvB, ",")
　If InStr(strCsvA, strCsvB) = 0 Then
　　If InStr(strCsvA, arrCsvB(0) & "," & arrCsvB(1)) = 0 Then　　'[３]・[４]
　　　objCsvC.writeline """存在しない""," & Replace(strCsvB, vbCrLf, "")
　　Else
　　　objCsvC.writeline """一致しない""," & Replace(strCsvB, vbCrLf, "")
　　End If
　End If
Loop

objCsvA.Close
objCsvB.Close
objCsvC.Close
Set objCsvA = Nothing
Set objCsvB = Nothing
Set objCsvC = Nothing
Set objFSO = Nothing

お礼

ありがとうございました。
若干レスポンスに問題はありましたが、要件も問題なくクリアしており大変助かりました。
参考になりました