【極限のVBScript】FSO × RegExp × Dictionary：大規模ログから「真に価値あるデータ」を抽出する設計思想
現場で動く「ツール」を作っているつもりで、実は「ただのスクリプト」を書いていないか？
大量のログファイルから特定の情報を抜き出す。一見、単純なタスクに見える。しかし、ファイルサイズが数GBに達した時、あるいは抽出対象が数万件を超えた時、初心者が書いたコードはメモリ不足で沈黙するか、処理が終わらない「無限の待ち時間」をユーザーに強いることになる。
本記事では、VBScriptにおけるファイル操作（FSO）、正規表現（RegExp）、そしてハッシュテーブル（Dictionary）を組み合わせ、「堅牢」「高速」「低メモリ消費」を実現するためのアーキテクチャを伝授する。これは、単なるコードの書き方ではない。エンジニアとしての「設計思想」の講義だ。
1. 凡庸な設計と、プロフェッショナルの設計
まず、多くの「中級者」が陥る罠を整理しておこう。
凡庸なアプローチ（Anti-Pattern）
1. `FSO.OpenTextFile().ReadAll` でファイル全体をメモリに読み込む。
2. 読み込んだ巨大な文字列に対して、正規表現を一度に実行する。
3. 抽出結果を配列に入れ、ループを回して「既出かどうか」を判定しながら重複を排除する。
なぜこれがダメなのか？
ファイルサイズがメモリ容量を超えた瞬間にクラッシュする。また、配列での重複チェックは計算量が $O(n^2)$ になり、データ量が増えると指数関数的に処理が遅くなる。これは「動くが、実戦では使えない」コードだ。
プロフェッショナルのアプローチ（Architectural Pattern）
1. ストリーム処理: `ReadLine` を用い、一行ずつメモリに載せて処理する。これにより、ファイルサイズに関わらずメモリ消費を一定に保つ。
2. ハッシュによる一意性確保: `Scripting.Dictionary` を使用する。キーの存在確認は $O(1)$ であり、データ量が増えても高速性を維持できる。
3. 正規表現の事前コンパイル: `RegExp` オブジェクトのプロパティをループの外で確定させ、実行コストを最小化する。
2. 実装：プロダクション・グレードの抽出エンジン
以下に、実務でそのまま利用可能な、堅牢な設計に基づいたコードを示す。このコードは、IPアドレスとメールアドレスを同時に、かつ重複なく抽出する。
' ==============================================================================
' Script Name: LogDataExtractor.vbs
' Description: FSO, RegExp, and Dictionaryを活用した、高効率なログ解析エンジン
' Author: Chief Architect
' ==============================================================================
Option Explicit
' --- 設定領域 ---
Const INPUT_FILE = "C:\Logs\server_access.log" ' 解析対象ファイル
Const OUTPUT_FILE = "C:\Logs\extracted_list.txt" ' 結果出力先
Const LOG_MODE = True ' デバッグログを出力するか
' --- メインルーチン ---
Main
Sub Main()
Dim fso, inputFile, outputFile
Dim dictIP, dictEmail
Dim regIP, regEmail
Dim tsIn, tsOut
Dim line, matches, match
Dim errCount : errCount = 0
Set fso = CreateObject("Scripting.FileSystemObject")
' 1. 存在チェック（防御的プログラミング）
If Not fso.FileExists(INPUT_FILE) Then
WScript.Echo "Error: Input file not found: " & INPUT_FILE
WScript.Quit 1
End If
' 2. オブジェクトの初期化
' Dictionary: 重複排除用のハッシュテーブル
Set dictIP = CreateObject("Scripting.Dictionary")
Set dictEmail = CreateObject("Scripting.Dictionary")
' RegExp: IPアドレス用 (IPv4パターン)
Set regIP = CreateObject("VBScript.RegExp")
regIP.Pattern = "\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b"
regIP.Global = True
' RegExp: メールアドレス用
Set regEmail = CreateObject("VBScript.RegExp")
regEmail.Pattern = "[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}"
regEmail.Global = True
' 3. ファイルストリーム処理 (メモリ節約のため一行ずつ読み込み)
On Error Resume Next
Set tsIn = fso.OpenTextFile(INPUT_FILE, 1) ' 1 = ForReading
If Err.Number <> 0 Then
WScript.Echo "Error: Failed to open input file. " & Err.Description
WScript.Quit 1
End If
WScript.Echo "Processing started..."
Do Until tsIn.AtEndOfStream
line = tsIn.ReadLine
' --- IPアドレスの抽出 ---
Set matches = regIP.Execute(line)
For Each match In matches
' DictionaryのKeyとして追加することで、自動的に重複が排除される
dictIP(match.Value) = Empty
Next
' --- メールアドレスの抽出 ---
Set matches = regEmail.Execute(line)
For Each match In matches
dictEmail(match.Value) = Empty
Next
Loop
tsIn.Close
On Error GoTo 0
' 4. 結果の書き出し
Set tsOut = fso.CreateTextFile(OUTPUT_FILE, True)
tsOut.WriteLine "=== Extracted IP Addresses ==="
WriteDictionaryToStream tsOut, dictIP
tsOut.WriteLine vbCrLf & "=== Extracted Email Addresses ==="
WriteDictionaryToStream tsOut, dictEmail
tsOut.Close
' 5. 終了処理
WScript.Echo "Task Completed Successfully."
WScript.Echo "IP Count: " & dictIP.Count
WScript.Echo "Email Count: " & dictEmail.Count
WScript.Echo "Result saved to: " & OUTPUT_FILE
' オブジェクトの明示的な解放（ライフサイクル管理）
Set dictIP = Nothing
Set dictEmail = Nothing
Set regIP = Nothing
Set regEmail = Nothing
Set fso = Nothing
End Sub
' --- ヘルパー関数: Dictionaryの内容をストリームへ書き出し ---
Sub WriteDictionaryToStream(ts, dict)
Dim key
If dict.Count = 0 Then
ts.WriteLine "[No data found]"
Else
For Each key In dict.Keys
ts.WriteLine key
Next
End If
End Sub3. アーキテクトの視点：なぜこのコードは「強い」のか
I. メモリ管理の徹底
`tsIn.ReadLine` を採用したことで、たとえ入力ファイルが10GBあろうとも、スクリプトが消費するメモリは「その一行の長さ」と「Dictionaryに格納された一意なデータ量」に依存する。これはスケーラビリティの基本だ。
II. Dictionaryによる $O(1)$ の検索
`dictIP(match.Value) = Empty` という記述。これは「もしキーが存在すれば上書き、存在しなければ新規追加」という動作を、極めて高速に行う。配列で `For Each` を回して重複チェックをするコードとは、比較にならないほどの速度差が出る。
III. 正規表現の精度
IPアドレスのパターンにおいて、`\b`（単語境界）を使用している点に注目してほしい。これがないと、`192.168.1.1234` のような不正な文字列の一部を誤って抽出してしまうリスクがある。境界を定義することは、データの正確性を担保するプロの作法だ。
IV. エラーハンドリングとクリーンアップ
`On Error Resume Next` を使うのは、エラーを無視するためではない。ファイルが開けないといった「予測可能な失敗」に対して、プログラムを安全に終了（Graceful Exit）させるためだ。また、最後に `Set Object = Nothing` を明示的に行うことで、リソースの解放を確実に行っている。
4. 実務への応用と注意点
このスクリプトを実務に投入する際は、以下の3点に留意せよ。
1. 文字コードの罠:
FSOは標準ではShift-JIS（ANSI）を想定している。UTF-8のログファイルを扱う場合、`ADODB.Stream` オブジェクトへ切り替える必要がある。これは設計変更のポイントだ。
2. 書き出し権限:
出力先ディレクトリへの書き込み権限がない場合、エラーで停止する。実行環境の権限設計は、コードと同じくらい重要だ。
3. 正規表現のチューニング:
メールアドレスのパターンは、仕様（RFC）によって無限に複雑化する。今回のパターンは「実務上、誤検知を最小限にしつつ、主要な形式を網羅する」バランスを重視している。要件に応じて、より厳格なパターンへ調整せよ。
結論
VBScriptは古い言語だ。しかし、その挙動を完全に掌握し、適切にオブジェクトのライフサイクルを管理できれば、今なお強力な武器となる。
「動けばいい」という考えを捨て、「どのようなデータが来ても、いかに効率的に、いかに正確に処理するか」という設計思想を持て。それが、エンジニアと、ただのスクリプトライターを分かつ境界線である。
