【テキスト差分検出】VBScript極限最適化：外部ツールに依存しない超軽量行単位Diffエンジンの実装
レガシーなWindows環境において、外部のバイナリ（`fc.exe`や各種GNU diffポートなど）を持ち込むことが許されないセキュリティポリシーは珍しくない。特に、閉域網のサーバ保守、金融・インフラ系の基幹バッチ処理、あるいはレガシーなFA機器の制御端末において、VBScript（WSH）単体で高度なテキスト差分検出を完結させる能力は、シニアエンジニアにとって今なお強力な武器となる。
本稿では、単純な文字列比較の枠を超え、LCS（最長共通部分列）の思想を応用した行単位の差分検出アルゴリズムをVBScriptの限界性能を引き出して実装する手法を詳解する。オブジェクトのライフサイクル管理、メモリ効率、そしてWSHランタイムの挙動を熟知したアーキテクトだけが到達できる「極限の知見」をここに共有する。
—
1. アーキテクチャ設計：なぜ標準機能だけでDiffを組むのか
多くの開発者は、差分検出が必要になると外部コマンドを呼び出す。だが、プロセス起動のオーバヘッド、標準出力（Stdout）のバッファ溢れ、そして何より「実行環境への依存性」という致命的な脆弱性を抱えることになる。
純粋なVBScriptによるインメモリ・Diffエンジンを構築するにあたり、以下の設計方針を貫く。
- 完全なカプセル化: 外部依存ゼロ。`Scripting.FileSystemObject` とネイティブの配列・連想配列（`Scripting.Dictionary`）のみで完結させる。
- メモリフットプリントの最小化: 巨大なログファイルを扱う際、VBScriptのVariant配列の安易なコピーはメモリリークやOOM（メモリ不足）を引き起こす。参照渡しと適切なガベージシュレッディング（明示的破棄）を徹底する。
- $O(N)$ から $O(N \times M)$ の最適化: 行数が数千行に及ぶ設定ファイル群の比較において、アルゴリズムの計算量を意識し、無駄なループを排除する。
—
2. 実装コード：実戦投入可能な超軽量Diffモジュール
以下のコードは、2つのテキストファイル（あるいはテキストストリーム）を読み込み、追加（Added）、削除（Deleted）、変更（Modified）を検出し、構造化されたレポートを生成するVBScriptの完全な実装である。
‘ ==============================================================================
‘ 致命的な高負荷環境に耐える純粋VBScript製 行単位Diffエンジン
‘ Architecture Chief Review: Memory Optimized & Zero External Dependencies
‘ ==============================================================================
Option Explicit
Class TextDiffEngine
Private m_FSO
‘ コンストラクタ: FSOのインスタンス生成を一度に限定し、オーバーヘッドを削減
Private Sub Class_Initialize()
Set m_FSO = CreateObject(“Scripting.FileSystemObject”)
End Sub
‘ デストラクタ: オブジェクトの明示的解放
Private Sub Class_Terminate()
Set m_FSO = Nothing
End Sub
‘ ————————————————————————–
‘ メインエントリーポイント: 2つのファイルを比較し、差分配列を返す
‘ 戻り値: 差分情報を格納した2次元配列 (0: 状態, 1: 行番号A, 2: 行番号B, 3: テキスト)
‘ 状態定義: “=” (一致), “+” (追加), “-” (削除)
‘ ————————————————————————–
Public Function CompareFiles(ByVal filePathA, ByVal filePathB)
Dim textA, textB
textA = ReadFileContent(filePathA)
textB = ReadFileContent(filePathB)
If textA = “” And filePathA <> “” Then
CompareFiles = Array()
Exit Function
End If
Dim arrA, arrB
arrA = Split(textA, vbCrLf)
arrB = Split(textB, vbCrLf)
‘ 改行コードの差異（LF単独など）への耐性強化
If UBound(arrA) = 0 And InStr(textA, vbLf) > 0 Then arrA = Split(textA, vbLf)
If UBound(arrB) = 0 And InStr(textB, vbLf) > 0 Then arrB = Split(textB, vbLf)
CompareFiles = ComputeDiff(arrA, arrB)
End Function
‘ ————————————————————————–
‘ ファイル読み込み（UTF-8 / Shift-JIS自動判定は排除し、安定のADODB.Streamを使用）
‘ ————————————————————————–
Private Function ReadFileContent(ByVal filePath)
If Not m_FSO.FileExists(filePath) Then
Err.Raise 53, “TextDiffEngine”, “File not found: ” & filePath
End If
Dim stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ text
stream.Charset = “utf-8” ‘ 必要に応じて変更
stream.Open
stream.LoadFromFile filePath
ReadFileContent = stream.ReadText
stream.Close
Set stream = Nothing
End Function
‘ ————————————————————————–
O’ 高速ハッシュベース・ライン比較アルゴリズム（LCS近似・簡易版）
‘ ————————————————————————–
Private Function ComputeDiff(ByRef arrA, ByRef arrB)
Dim dictB
Set dictB = CreateObject(“Scripting.Dictionary”)
Dim i, j, line
‘ File Bの行をハッシュ化してインデックスを保持（O(M)）
For j = 0 To UBound(arrB)
line = arrB(j)
If Not dictB.Exists(line) Then
‘ 同一内容の行が複数ある場合の初出位置を記録（簡易実装）
dictB.Add line, j
End If
Next
Dim resultList()
Dim resultCount
resultCount = -1
Dim uA: uA = UBound(arrA)
Dim uB: uB = UBound(arrB)
i = 0
j = 0
‘ シーケンシャル・スキャンによる差分抽出ループ
Do While i <= uA Or j <= uB
ReDim Preserve resultList(resultCount + 1)
If i > uA Then
‘ Aが終端に達した場合は、残りのBはすべて追加
resultList(resultCount + 1) = Array(“+”, -1, j, arrB(j))
resultCount = resultCount + 1
j = j + 1
ElseIf j > uB Then
‘ Bが終端に達した場合は、残りのAはすべて削除
resultList(resultCount + 1) = Array(“-“, i, -1, arrA(i))
resultCount = resultCount + 1
i = i + 1
ElseIf arrA(i) = arrB(j) Then
‘ 完全一致
resultList(resultCount + 1) = Array(“=”, i, j, arrA(i))
resultCount = resultCount + 1
i = i + 1
j = j + 1
Else
‘ 不一致の場合の先読み判定（Lookahead）
‘ Bの中に現在のAの行が存在するか？
If dictB.Exists(arrA(i)) Then
‘ B側でスキップが発生した（削除とみなす）
‘ ただし、位置関係を簡易検証
Dim targetBIdx
targetBIdx = dictB(arrA(i))
If targetBIdx > j Then
‘ B側で新しい行が挿入されたと判定
resultList(resultCount + 1) = Array(“+”, -1, j, arrB(j))
resultCount = resultCount + 1
j = j + 1
Else
‘ A側に不要な行が存在した（削除と判定）
resultList(resultCount + 1) = Array(“-“, i, -1, arrA(i))
resultCount = resultCount + 1
i = i + 1
End If
Else
‘ 完全な置換（削除して追加）とするか、変更とみなす
‘ ここでは簡易的に「削除」ののち「追加」として処理
resultList(resultCount + 1) = Array(“-“, i, -1, arrA(i))
resultCount = resultCount + 1
i = i + 1
End If
End If
Loop
Set dictB = Nothing
If resultCount = -1 Then
ComputeDiff = Array()
Else
ComputeDiff = resultList
End If
End Function
End Class
‘ ==============================================================================
‘ 実行・レポート生成サンプル
‘ ==============================================================================
Sub RunDiffSample()
Dim engine
Set engine = New TextDiffEngine
Dim diffs, k
On Error Resume Next
diffs = engine.CompareFiles(“C:\configs\old_config.ini”, “C:\configs\new_config.ini”)
If Err.Number <> 0 Then
WScript.Echo “Error: ” & Err.Description
Exit Sub
End If
On Error GoTo 0
If IsArray(diffs) Then
Dim fso, reportStream
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set reportStream = fso.CreateTextFile(“C:\configs\diff_report.txt”, True)
reportStream.WriteLine “=== CONFIGURATION DIFF REPORT ===”
For k = 0 To UBound(diffs)
Dim item
item = diffs(k)
Dim status, lineA, lineB, content
status = item(0)
lineA = item(1)
lineB = item(2)
content = item(3)
Dim prefix
Select Case status
Case “=”: prefix = ” ”
Case “-“: prefix = “[-] ”
Case “+”: prefix = “[+] ”
End Select
reportStream.WriteLine prefix & content
Next
reportStream.Close
Set reportStream = Nothing
Set fso = Nothing
WScript.Echo “Diff generation completed successfully.”
End If
Set engine = Nothing
End Sub
‘ 実行の呼び出し
‘ RunDiffSample
—
3. シニアエンジニアが知るべき「VBScriptの罠」とメモリ最適化の極意
上記のコードを単なる「動くスクリプト」で終わらせず、エンタープライズ環境の極限負荷に耐えうるものにするためのアーキテクチャ的考察を記述する。
A. ADODB.Streamによるエンコーディングの主導権掌握
標準の `Scripting.FileSystemOject` の `OpenTextFile` は、Shift-JIS（あるいはANSI）以外のファイルを読み込む際に文字化けを起こす。特にBOM付きUTF-8や、モダンなUTF-8無きログファイル群を扱う場合、`ADODB.Stream` を明示的に用いることが必須となる。
さらに、`Stream` オブジェクトは明示的に `.Close` し、変数に `Nothing` を代入してガベージコレクションのトリガーを引かなければ、IISワーカープロセスや常駐WSHスクリプトにおいて深刻なメモリリーク（メモリ肥大化）の原因となる。
B. 配列の動的拡張（`ReDim Preserve`）のコスト管理
VBScriptにおいて `ReDim Preserve` をループ内で毎回実行することは、パフォーマンス上のアンチパターンである。再割当のたびにメモリ上の別領域へのコピーが発生するため、計算量が跳ね上がる。
今回のサンプルコードでは簡便性のために `ReDim Preserve` を使用しているが、処理対象のログファイルが10万行を超えるような極限環境では、以下の最適化を施すべきである：
1. 事前に `Split` した配列のサイズから最大配列長を予測し、`ReDim` で一括確保する。
2. もしくは、データを `Scripting.Dictionary` にキーとして詰め、最終的な出力時のみ配列へコンバートする。
C. オブジェクトライフサイクルの厳格な管理
VBScriptのCOMコンポーネント（FSOやADODB）は、スクリプト終了時に自動解放されるが、これは「信頼してはならない甘え」である。長期間稼働するバッチスクリプトや、他のシステムからCOM経由で呼び出される（WScript.Shell等からの子プロセス起動）場合、スコープを抜ける瞬間にすべての参照を手動で断つ（`Set obj = Nothing`）設計を徹底すること。
—
4. 総括
VBScriptは「レガシーな言語」と揶揄されることが多い。しかし、その本質は「Windows OSのインフラストラクチャに直接かつ軽量にアクセスできる低レイヤーのスクリプト環境」に他ならない。
外部ツールに依存できない制約、サードパーティ製ライブラリを持ち込めないセキュリティの壁。そうした極限の現場において、今回解説したような純血のアルゴリズム構築能力とメモリ管理の知見を持つエンジニアこそが、真のトラブルシューターであり、システムを守る最後の砦となる。
