二つのファイルを比較してすべての文字列があるかチェック

Question

前提

ファイル1の文字列をファイルの中にあるか調べて一致した場合数も一致しているか調べるプログラムを書きたいです。
ファイル1とファイル2のカウントを比較するなど試しているのですが有効なコードがかけておらず質問いたしました。
アドバイスなどいただけると嬉しいです。
よろしくお願いいたします。

実現したいこと

ファイル１　　　　ファイル２
1　aaa.csv:aaa 1　aaa.csv:aaa
2　aaa.csv:aaa 2　aaa.csv:aaa
3　bbb.csv:aaa 3　aaa.csv:aaa
4　ccc.csv:aaa 4　ccc.csv:aaa
5　ccc.csv:aaa 5　ccc.csv:aaa
6　ccc.csv:aaa 6　ccc.csv:aaa
7　ccc.csv:aaa 7　ccc.csv:aaa
8　ccc.csv:aaa 8　ccc.csv:aaa
9　ccc.csv:aaa 9　ddd.csv:aaa
10　ddd.csv:aaa 10　ccc.csv:aaa

上の例の場合ファイル2にaaa.csv:aaaが3つ存在するのにファイル1にはaaa.csv:aaaが2つしか存在しないこの場合エラー
ファイル2にccc.csv:aaaが5つしか存在しないのにファイル1には6つ存在するこの場合エラー
ddd.csv:aaaの場合チェック完了

該当のソースコード

'------------------------------------------------------------------------------
'CSVファイルを配列に変換する関数
'------------------------------------------------------------------------------
Function CsvToArray (a_sFilePath, a_sArLine())
Dim oFS '// FileSystemObjectインスタンス
Dim oTS '// TextStream変数
Dim sLine '// CSVファイルの行文字列
Dim iLineCount '// CSVファイル行数
Dim iCommaCount '// カンマ数
Dim v '// カンマ分割後の配列
Dim i '// ループカウンタ
Dim iColumn

Set oFS = CreateObject("Scripting.FileSystemObject")

' TextStreamオブジェクト作成
Set oTS = oFS.OpenTextFile(a_sFilePath)

iLineCount = 0
iCommaCount = 0

'/ファイルループ
Do While oTS.AtEndOfStream <> True
    ' 1行読み込み
    sLine = oTS.ReadLine

    '/カンマで文字列を分割し配列化
    v = Split(sLine, ",")

    ' 現在行をカンマで分割した数が今までより多い場合
    If (iCommaCount < UBound(v)) Then
        '// 最大カンマ数を更新
        iCommaCount = UBound(v)
    End If

    iLineCount = iLineCount + 1
Loop

Call oTS.Close

Erase a_sArLine
ReDim a_sArLine(iLineCount - 1, iCommaCount)

' TextStreamオブジェクト作成
Set oTS = oFS.OpenTextFile(a_sFilePath)

i = 0

' ファイルループ
Do While oTS.AtEndOfStream <> True
    ' 1行読み込み
    sLine = oTS.ReadLine
    ' カンマで文字列を分割し配列化
    v = Split(sLine, ",")
    ' カンマ区切り配列をループ
    For iColumn = 0 To UBound(v)
        ' カンマ区切りの内容を二次元配列に格納
        a_sArLine(i, iColumn) = v(iColumn)
    Next
    i = i + 1
Loop
Call oTS.Close

End Function

Function WordExists(iWord, iArr)
Dim i, j
WordExists = False '最初は False
For i = LBound(iArr, 1) To UBound(iArr, 1)
For j = LBound(iArr, 2) To UBound(iArr, 2)
If iWord = iArr(i, j) Then
WordExists = True ' 存在したら True にして抜ける
Exit Function
End If
Next
Next
End Function

'------------------------------------------------------------------------------
'メイン処理
'------------------------------------------------------------------------------
'WScript.Argumentsでドラッグ＆ドロップしたファイル情報を引数として配列にセット
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

'取得したファイル情報を順番に取り出し、ファイル名とパスを取得する。
'その後、CSVファイルかどうかチェックする。
For i = 0 to 1
    sFilePath = oFileInfoArray.Item(i)            'Itemでファイル情報からpathを入手
    sFileName = oFso.GetFileName(sFilePath)       'GetFileNameでパスからファイル名部分のみを取得する
    If oFso.GetExtensionName(sFileName) <> "csv" Then
         MsgBox "CSVファイルをドラックアンドドロップしてください" &  oFso.GetExtensionName(sFileName)
         WScript.Quit(0)
    End if
Next

'CSVファイルを開き、配列に情報を格納する
Dim arr1(), arr2()
Dim blnCheckNG
Dim lngCheckRow
Dim strErrNo
Dim lngCheckA
Dim strCheckB
CsvToArray oFileInfoArray.Item(0), arr1
CsvToArray oFileInfoArray.Item(1), arr2
lngCheckRow = 0
lngCheckA = 0
strCheckB = ""

Dim i, j
For i = LBound(arr1, 1) To UBound(arr1, 1)
    For j = LBound(arr1, 2) To UBound(arr1, 2)
        If Not WordExists(arr1(i, j), arr2) Then
        ' エラー
        End If
    Next
Next

WScript.Quit(0)

VBS

Comments

[退会済みユーザー]

質問を投稿したらその結果をレビューして、コードのインデントが崩れているなどがあったら、ちゃんと直しましょう。一事が万事いい加減だと思われますよ。そう思われたら、レスしてくれる人も少なくなると思います。

[YAmaGNZ]

前の質問にてアドバイスを貰っているようですが、それについて何か調査されたりしたのでしょうか？

Answer 1

このような検索とか、グループ化して個数を調べるというときは、連想配列(Dictionary)を使うとシンプルなコードで高速に処理できます。
連想配列は、1要素に KeyとItemの２つの値を格納することができます。また、keyは重複することができません。これを利用して、keyにワードを格納して、Itemにその個数を格納するようにします。

コード例

'------------------------------------------------------------------------------
'CSVファイルのワードと個数を連想配列に変換する関数
'------------------------------------------------------------------------------
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


'------------------------------------------------------------------------------
'メイン処理
'------------------------------------------------------------------------------

    'WScript.Argumentsでドラッグ＆ドロップしたファイル情報を引数として配列にセット
    Dim oFileInfoArray
    Set oFileInfoArray = WScript.Arguments

    Dim i, j
    'ファイルパス
    Dim sFilePath
    '取得したファイル名
    Dim sFileName
    '全てのパス
    Dim sAllPath

    'ドラックアンドドロップされたファイルが２ファイルあることを確認する。
    If oFileInfoArray.Count <> 2 Then
        MsgBox "2つのCSVファイルをドラックアンドドロップしてください"
        WScript.Quit (0)
    End If
    '取得したファイル情報を順番に取り出し、ファイル名とパスを取得する。
    'その後、CSVファイルかどうかチェックする。
    For i = 0 To 1
        sFilePath = oFileInfoArray.Item(i)       'Itemでファイル情報からpathを入手
        sFileName = oFso.GetFileName(sFilePath)  'GetFileNameでパスからファイル名部分のみを取得する
        If oFso.GetExtensionName(sFileName) <> "csv" Then
            MsgBox "CSVファイルをドラックアンドドロップしてください" & oFso.GetExtensionName(sFileName)
            WScript.Quit (0)
        End If
    Next
    
    
    Dim dic1, dic2
    Set dic1 = CsvToArray(oFileInfoArray.Item(0))
    Set dic2 = CsvToArray(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)

動作確認はしてませんので、エラーなく動く保証はありません。
このコードのロジックを参考にして、コーディングしてください。