ファイル1の文字列でファイル2を検索する

Question

前提

csvファイル1のデータでcsvファイル2のデータを検索するプログラムを作っています。
言語はvbsです。
csv1のデータが以下の場合
1 abc.txt
2 abc.txt
3 abb.txt
csv2のデータが以下の場合
1 abc.txt
2 abc.txt
3 abc.txt
4 abb.txt
この場合abc.txtエラーabb.txtはOKとなるプログラムにするにはどうしたら良いでしょうか？

該当のソースコード

ソースコード

Function CsvToDic(a_sFilePath)
Dim oFS '// FileSystemObjectインスタンス
Dim oTS '// TextStream変数
Dim dic '// 連想配列(Dictionary)
Dim sLine '// CSVファイルの行文字列
Dim v '// カンマ分割後の配列
Dim iColumn
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTS = oFS.OpenTextFile(a_sFilePath)
Set dic = CreateObject("Scripting.Dictionary")
'/ファイルループ
Do While oTS.AtEndOfStream <> True
' 1行読み込み
sLine = oTS.ReadLine
' カンマで文字列を分割し配列化
v = Split(sLine, ",")
' カンマ区切り配列をループ
For iColumn = 0 To UBound(v)
'Dictionaryにカンマ区切りの内容とその個数を格納
If dic.Exists(v) Then
dic(v) = dic(v) + 1
Else
dic.Add v, 1
End If
Next
Loop
Call oTS.Close
'Functionの戻り値としてDictionaryを返す
Set CsvToDic = dic
End Function
'メイン処理
Dim oFileInfoArray
Set oFileInfoArray = WScript.Arguments
Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
Dim i, j
Dim sFilePath
Dim sFileName
Dim sAllPath

If oFileInfoArray.Count <> 2 Then
MsgBox "2つのCSV"
WScript.Quit (0)
End If

For i = 0 To 1
sFilePath = oFileInfoArray.Item(i)
sFileName = oFso.GetFileName(sFilePath)
If oFso.GetExtensionName(sFileName) <> "csv" Then
MsgBox "CSV" & oFso.GetExtensionName(sFileName)
WScript.Quit (0)
End If
Next
Dim dic1, dic2
Set dic1 = CsvToDic(oFileInfoArray.Item(0))
Set dic2 = CsvToDic(oFileInfoArray.Item(1))
Dim w
For Each w In dic1
If dic2.Exists(w) Then
If dic1(w) <> di2(w) Then
'一致するワードの個数が異なる
End If
Else
End If
Next
WScript.Quit (0）

Comments

[yambejp]

「csv1のデータが以下の場合
1 abc.txt
2 abc.txt
3 abb.txt」
1,2,3までがcsvなのですか「1 abc.txt」がcsv2にあるからOKなのですか？
たとえば「1 abc.txt」と「11 abc.txt」があった場合別のものという認識ですか？
（11 abc.txtに1 abc.txtは含まれています）
あいまいすぎです。

[inu05]

ファイル1,2共にcsvであり
ファイルの中身は1 aaa.txtなどの文字列になっております。
1 abc.txtと　11 abc.txtは別物としたいです。

[yambejp]

1行に数値＋スペース＋ファイル名のセットが１組みしかないのですね？
サンプルデータが少なすぎて検証ができませんが、
提示のものであればfcコマンドで比較すればよいのでは？