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

質問

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

回答No.4

mitarashi · ベストアンサー

AccessのクエリをVBSに載せ替えてみたという、実験的なコードで、実用性は疑問ですが、ご参考まで。（自分自身Accessの助け無しにこのSQLを書く才覚はありませんので）
最初の課題に沿っているつもりですが、実行例もご質問に書いていただけると助かります。二つ目の課題もAccess上ではやってみましたが...
VBSは滅多に使わないので、お作法に則っておりませんが、ご容赦下さい。

Dim cn
Dim rs
Dim connectionString
Dim csvFilePath
Dim item
Dim mySQL
Dim fso, dstFile
Dim buf

Set cn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dstFile = fso.CreateTextFile("c:\testfile.txt", True)
csvFilePath = "C:\"
'CSVファイルにラベル（フィールド名）が無いとする
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & csvFilePath & ";" _
& "Extended Properties=""Text;HDR=NO;FMT=Delimited"""
cn.Open connectionString
mySQL = "SELECT tableA.F1, tableA.F2, tableA.F3" _
& " FROM A.csv AS tableA LEFT JOIN B.csv AS tableB ON (tableA.F3=tableB.F3) AND (tableA.F2=tableB.F2) AND (tableA.F1=tableB.F1)" _
& " WHERE (((tableB.F3) Is Null));"
Set rs = cn.Execute(mySQL)
Do While rs.EOF = False
buf= chr(34) & rs.fields(0) & """,""" & rs.fields(1) & """,""" & rs.fields(2) & chr(34)
dstFile.WriteLine buf
rs.MoveNext
Loop

dstFile.Close
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Set fso = Nothing

お礼

ありがとうございました。
こういう使い方は思いつきもしませんでした。
要件も問題なくクリアしており大変助かりました。
参考になりました