ファイル1の文字列がファイル2の文字列の中に全てあるかチェック

前提

ここに質問の内容を詳しく書いてくだい
２つのエクセルファイルの文字列で対象の文字列が全てあるかチェックするプログラムを作っています。

実現したいこと

ファイル1のデータがファイル2に全てあるかチェックしたい

例
1aaa.csv:aaa 2aaa.csv:aaa
2aaa.csv:aaa 2aaa.csv:aaa
3bbb.csv:bbb 3aaa.csv:aaa
この場合エラーとしたいです。

この部分のコードのアドバイスをいただけないでしょうか？

▲▲機能を動作するようにする

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

vbs
1ソースコード

Option Explicit
'----------------------------------------------------------------------------
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'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

'------------------------------------------------------------------------------
'メイン処理
'------------------------------------------------------------------------------
'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 = ""

'1ファイル目と2ファイル目のデータを比較して、2ファイル目に同じデータがあるかチェックする
For i = 0 To UBound(arr1, 1) '行数繰り返し
    blnCheckNG = False
    For j = lngCheckRow To UBound(arr2, 1) '行数繰り返し
        If j > UBound(arr2, 1)Then
            Exit for
        End if
        If arr1(i, 1) = arr2(j, 1) Then
            lngCheckA = arr2(j, 0)
            strCheckB = arr2(j, 1)
            lngCheckRow = j + 1
            blnCheckNG = True
            Exit for
        End if
    Next
    
    If blnCheckNG = False Then
        If strCheckB = arr2(lngCheckRow -1, 1) Then
            strErrNo = strErrNo & vblf & lngCheckA
        End if
    End if
Next

lngCheckRow = 0

'2ファイル目と1ファイル目のデータを比較して、1ファイル目に同じデータがあるかチェックする
For i = 0 To UBound(arr2, 1) '行数繰り返し
    blnCheckNG = False
    For j = lngCheckRow To UBound(arr1, 1) '行数繰り返し
        If j > UBound(arr1, 1)Then
            Exit for
        End if
        If arr2(i, 1) = arr1(j, 1) Then
            lngCheckRow = j + 1
            blnCheckNG = True
            Exit for
        End if
    Next
    
    If blnCheckNG = False Then
        strErrNo = strErrNo & vblf & arr2(i, 0)
    End if
Next



If strErrNo <> "" Then
    MsgBox "以下の行数がエラーです"& vblf  & "----------" & strErrNo
else
    MsgBox "チェックが完了しました。OKです"
End if

WScript.Quit(0)

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

指定した文字列が２次元配列の中にあるかどうかチェックする Function を作りましょう

vb
1Function WordExists(iWord, iArr)
2    Dim i, j
3    WordExists = False '最初は False
4    For i = LBound(iArr, 1) To UBound(iArr, 1)
5        For j = LBound(iArr, 2) To UBound(iArr, 2)
6            If iWord = iArr(i, j) Then
7                WordExists = True ' 存在したら True にして抜ける
8                Exit Function
9            End If
10        Next
11    Next
12End Function

これをファイル１の配列分繰り返せばよいです。

vb
1Dim i, j
2For i = LBound(arr1, 1) To UBound(arr1, 1)
3    For j = LBound(arr1, 2) To UBound(arr1, 2)
4        If Not WordExists(arr1(i, j), arr2) Then
5            ' エラー処理
6        End If
7    Next
8Next

投稿2022/08/25 02:52

KOZ6.0

総合スコア2626

inu05

2022/08/25 07:17

回答ありがとうございます。以下のように修正していきたいのですがファイル１　　　　ファイル２ 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の場合チェック完了ファイル2が一覧のイメージです。ファイル1とファイル2のデータ数は同一ではありません。ファイル２のほうが多くあります。