2つのファイルの文字列をカウントして比較する

Question

前提

比較したい文字列のファイル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:aaa3つ存在するのにファイル1にはaaa.csv:aaaが2つしか存在しないのでエラーとしたいです
ファイル2にccc.csv:aaaが5つしか存在しないのにファイル1には6つ存在するこの場合エラー
ddd.csv:aaaの場合各ファイルに1つづつあるのでチェック完了としたいです。

ファイル2が一覧のイメージです。
ファイル1とファイル2のデータ数は同一ではありません。ファイル２のほうが多くあります。

実現したいこと

比較したい文字列のファイル1と比較対象のファイル2のデータが全てあるかチェックするプログラムにしたい。
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
'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

vbs

以上です。よろしくお願いします。

Comments

[itagagaki]

「質問」をしましょう

[novelistory]

ご記載いただいたコードの表記が崩れてしまっているようです。
Markdownで記載いただくと見やすくなります。
https://teratail.com/help#about-markdown