VBScriptを掌握する極限の知見：Scripting.Dictionaryによる超高速差分マージとメモリ制御の極意
レガシーシステムの深部、あるいは閉じたWindowsインフラストラクチャにおいて、VBScript（Visual Basic Scripting Edition）はいまだに現役のインフラストラクチャ・グルーとして君臨している。GUIを持たず、.NET Frameworkのランタイム依存すら排した純粋なWSH（Windows Script Host）環境は、サーバーのメンテナンスタスクや定時ログ処理において唯一無二の軽快さを誇る。
しかし、安易なコードは巨大なテキストファイルを処理する際にメモリリークやO（$N^2$）の破滅的なパフォーマンス低下を引き起こす。
本稿では、マスターログと差分更新ログという2つの巨大テキストファイルから、主キーベースで重複を完全に排除し、新規追加行のみを高速に抽出・統合するマージロジックを解説する。ここで鍵となるのは、COMオブジェクトである `Scripting.Dictionary` のハッシュ構造のハックと、OSリソースの厳格なライフサイクル管理である。
—
1. アーキテクチャ設計：なぜ `Scripting.Dictionary` なのか
テキストファイルの差分統合において、愚直に2重ループを回すアプローチ（$O(N \times M)$）はシステムに対する罪である。数万行を超えるログファイルの前では、CPUは完全に膠着する。
VBScript環境において、高速なルックアップ（$O(1)$ の時間計算量）を実現する唯一にして最強の武器が `Scripting.Dictionary` である。
メモリと参照の罠
Dictionaryのキーに主キー（IDやタイムスタンプ等）を格納し、存在確認（`Exists`メソッド）を行うことで、マスターデータを一瞬でインデックス化できる。これにより、マージ処理は $O(N + M)$ の線形時間まで劇的に最適化される。
しかし、VBScriptにおけるCOMオブジェクトの扱いには、ガベージコレクションの甘えを断ち切る覚悟が必要だ。特に巨大な文字列を扱う場合、不適切な変数スコープはメモリ断片化（Fragmentation）を引き起こす。
—
2. 実装：極限まで最適化された差分統合スクリプト
以下のプロダクションコードは、エラーハンドリング、文字コードの安全な扱い（ADODB.Streamの活用）、そして確実なメモリ解放を網羅した完全版の実装である。
‘ Option Explicitの強制：宣言なき変数の使用はバグの温床であり、アーキテクトとして万死に値する
Option Explicit
‘ 定数の定義
Const ForReading = 1
Const ForWriting = 2
Const TristateUseDefault = -2
Const TristateTrue = -1 ‘ Unicode (UTF-16) 等の制御用だが、今回はADODB.Streamで厳密に制御する
Sub MergeUpdateLogs()
Dim objFSO, objMasterStream, objDiffStream, objResultStream
Dim dictMaster, strLine, arrFields, strKey
Dim masterPath, diffPath, outputPath
Dim primaryKeyIndex
‘ パスの設定（実環境に合わせて変更すること）
masterPath = “C:\Logs\master_data.log”
diffPath = “C:\Logs\update_diff.log”
outputPath = “C:\Logs\merged_result.log”
‘ 主キーとする列インデックス（0始まり。例: 0番目のカンマ区切り値がIDの場合）
primaryKeyIndex = 0
‘ FSOのインスタンス化
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ 存在チェック
If Not objFSO.FileExists(masterPath) Then
WScript.Echo “Critical Error: Master file not found -> ” & masterPath
Exit Sub
End If
If Not objFSO.FileExists(diffPath) Then
WScript.Echo “Critical Error: Diff file not found -> ” & diffPath
Exit Sub
End If
‘ 【極知見】FSOのOpenTextFileは文字コード混発時に文字化けを起こすため、
‘ 厳密なエンコーディング制御が必要な場合はADODB.Streamを使用する。
‘ ここでは標準的なテキスト処理としてADODB.Streamを採用する。
On Error Resume Next
‘ 1. Dictionaryの生成（主キーインデックスの構築）
Set dictMaster = CreateObject(“Scripting.Dictionary”)
dictMaster.CompareMode = 1 ‘ TextMode (大文字小文字を区別しない場合。必要に応じて0にする)
WScript.Echo “Step 1: Reading Master Data…”
Set objMasterStream = CreateObject(“ADODB.Stream”)
objMasterStream.Type = 2 ‘ adTypeText
objMasterStream.CharSet = “UTF-8”
objMasterStream.Open
objMasterStream.LoadFromFile masterPath
Do Until objMasterStream.EOS
strLine = objMasterStream.ReadText(-2) ‘ adReadLine相当
If Len(Trim(strLine)) > 0 Then
arrFields = Split(strLine, “,”)
If UBound(arrFields) >= primaryKeyIndex Then
strKey = Trim(arrFields(primaryKeyIndex))
‘ キーが存在しない場合のみ登録（マスター側の重複は最初の行を正とする）
If Not dictMaster.Exists(strKey) Then
dictMaster.Add strKey, True
End If
End If
End If
Loop
objMasterStream.Close
Set objMasterStream = Nothing
WScript.Echo “Master Dictionary Loaded. Unique Keys: ” & dictMaster.Count
‘ 2. 差分ファイルの走査と新規行の特定・統合出力
WScript.Echo “Step 2: Processing Diff Data and Merging…”
Set objDiffStream = CreateObject(“ADODB.Stream”)
objDiffStream.Type = 2
objDiffStream.CharSet = “UTF-8”
objDiffStream.Open
objDiffStream.LoadFromFile diffPath
‘ 出力用ストリームの準備（新規ファイルとして作成）
Set objResultStream = CreateObject(“ADODB.Stream”)
objResultStream.Type = 2
objResultStream.CharSet = “UTF-8”
objResultStream.Open
‘ まずマスターの全内容を出力ストリームに書き出す（必要に応じた設計）
‘ ここでは「マスターをそのまま引き継ぎ、差分から新規キーのみを追加する」ロジックとする
‘ ※巨大なマスターをメモリに乗せず、ファイルストリームをそのまま流す方が安全
‘ マスターを再度読み込んで出力へ転記
Set objMasterStream = CreateObject(“ADODB.Stream”)
objMasterStream.Type = 2
objMasterStream.CharSet = “UTF-8”
objMasterStream.Open
objMasterStream.LoadFromFile masterPath
Do Until objMasterStream.EOS
strLine = objMasterStream.ReadText(-2)
objResultStream.WriteText strLine & vbCrLf
Loop
objMasterStream.Close
Set objMasterStream = Nothing
‘ 差分ファイルを検証し、マスターに存在しないキーの行だけを追記
Dim addedCount
addedCount = 0
Do Until objDiffStream.EOS
strLine = objDiffStream.ReadText(-2)
If Len(Trim(strLine)) > 0 Then
arrFields = Split(strLine, “,”)
If UBound(arrFields) >= primaryKeyIndex Then
strKey = Trim(arrFields(primaryKeyIndex))
‘ マスターに存在しない＝新規追加行
If Not dictMaster.Exists(strKey) Then
objResultStream.WriteText strLine & vbCrLf
‘ 多重追加を防ぐため、このセッション内の差分同士の重複も防ぐ
dictMaster.Add strKey, True
addedCount = addedCount + 1
End If
End If
End If
Loop
objDiffStream.Close
Set objDiffStream = Nothing
‘ 結果をファイルへ保存
objResultStream.SaveToFile outputPath, 2 ‘ adSaveCreateOverWrite
objResultStream.Close
Set objResultStream = Nothing
If Err.Number <> 0 Then
WScript.Echo “Error Encountered: ” & Err.Description
Err.Clear
Else
WScript.Echo “Success! New records added: ” & addedCount
WScript.Echo “Output saved to: ” & outputPath
End If
On Error GoTo 0
‘ 【極知見】オブジェクトの明示的破棄（Reference Deallocation）
‘ VBScriptのスコープ終端での暗黙的解放を信用せず、巨大リソースは即座にNothingを代入する
Set dictMaster = Nothing
Set objFSO = Nothing
End Sub
‘ 処理の実行
MergeUpdateLogs
—
3. チーフアーキテクトが解説するコードの急所
A. なぜ `ADODB.Stream` を選ぶのか（文字コード問題の完全制圧）
標準の `FileSystemObject.OpenTextFile` は、システムのANSIコードページ（日本語環境であればShift_JIS / CP932）に縛られるか、UCS-2LEにしか対応していない。現代のシステム間連携において、UTF-8（BOM有無混在）のログを読み込む際、FSOは無慈悲に文字化けを引き起こす。
`ADODB.Stream` オブジェクトを使用することで、文字コードを `UTF-8` に明示固定し、マルチバイト文字を含むログファイルであっても安全かつ高速にストリーム処理が可能となる。
B. メモリリークとCOMオブジェクトのライフサイクル
VBScriptのランタイムは参照カウンティング方式でメモリを管理している。しかし、循環参照や巨大なオブジェクト配列の放置は、プロセスが終了するまでメモリを解放しない「ゾンビメモリ」を生む原因になる。
特に `Scripting.Dictionary` は内部にハッシュテーブルのメモリ領域を確保し続けるため、処理の完了直後に `Set dictMaster = Nothing` を明示し、さらに参照チェーンを切断することが、長期間稼働するバッチサーバーにおいては極めて重要である。
C. 差分ロジックの二重防御
差分ファイル（`diffPath`）側にも同一キーのレコードが複数含まれているケースや、差分内部で重複が発生しているケースが実業務では多々存在する。
コード内では、新規追加時に `dictMaster.Add strKey, True` を行うことで、「差分ファイル内部での重複行の連鎖追加」をも一撃で阻止する設計にしている。この細やかな配慮が、下流システムでのパースエラーを防ぐ防壁となる。
—
4. 総括
VBScriptはレガシーな言語と揶揄されることもあるが、OSの根幹に直結し、追加のランタイムインストールなしで動作するその特権性は、インフラ自動化において今なお代えがたい価値を持っている。
オブジェクトの挙動を熟知し、メモリのライフサイクルを制御下に入れ、適切なデータ構造（`Scripting.Dictionary`）を選択すること。それさえできれば、VBScriptは数万行のテキスト処理をも軽快にこなす、極めて信頼性の高いエンタープライズ・ツールへと昇華する。
古きアーキテクチャを侮るなかれ。真のエンジニアは、いかなる制約環境下においても、最高速かつ堅牢なコードを紡ぎ出す。
