行単位の思考を捨てろ。VBScript RegExpによる「マルチライン抽出」の極意
業務自動化の現場において、多くの開発者が陥る「設計の罠」がある。それは、「ログファイルは1行ずつ読み込み、1行ずつ正規表現で判定する」という、あまりにも素朴で、あまりにも非効率なアプローチだ。
もし君が、スタックトレースを含むエラーブロックや、複数行にわたる設定セクションを抽出しようとして、`FileSystemObject`でループを回しながら1行ずつ正規表現を当てはめているとしたら――断言しよう。君のコードは「動いてはいるが、プロフェッショナルとは呼べない」。
本稿では、VBScriptの`RegExp`オブジェクトを真に掌握し、複数行にまたがるデータ構造を一撃で、かつ堅牢に抜き出すための「アーキテクトの視点」を伝授する。
1. なぜ「行単位のループ」は敗北するのか
まず、設計の根本的な欠陥を指摘しておこう。
一般的な「1行ずつ読み込んで判定する」手法には、以下の3つの致命的なリスクがある。
1. 文脈（コンテキスト）の喪失:
正規表現の真価は、パターンが持つ「前後の関係性」にある。エラーメッセージが「開始行」と「終了行」の間に存在する場合、1行ずつの処理では「今、どのブロックの中にいるのか」という状態管理（ステートマシン）を自前で実装しなければならない。これはコードの複雑性を爆発させ、バグの温床となる。
2. I/Oオーバーヘッド:
ファイルへのアクセスと、ループ内でのオブジェクト操作の繰り返しは、大規模なログファイルにおいて致命的なパフォーマンス低下を招く。
3. 正規表現エンジンのポテンシャルを殺している:
正規表現エンジンは、メモリ上の文字列全体に対して、高度に最適化された有限オートマトンを用いてパターンマッチングを行う。文字列全体を一度に渡してあげることこそが、エンジンに対する最大の敬意であり、最速の道だ。
2. 核心：`MultiLine` と `SingleLine` の混同を正せ
ここで、多くのエンジニアが躓く「プロパティの罠」について触れておく。VBScriptの`RegExp`オブジェクトには、似て非なる2つのプロパティが存在する。ここを間違えると、君のコードは一生、複数行を跨ぐことはできない。
`MultiLine` プロパティ
これは、`^`（行頭）と `$`（行末）の挙動を変えるものだ。
- `False`（デフォルト）: 文字列全体の先頭と末尾にのみマッチする。
- `True`: 各行の先頭と末尾にマッチする。
つまり、これは「行の境界」を定義するためのものであり、「行を跨ぐ」ためのものではない。
`SingleLine` プロパティ（重要！）
これこそが、我々が求めている武器だ。
- `True` に設定すると、`.`（ドット）が改行文字（`\n`）にもマッチするようになる。
「複数行のブロックを抜き出す」というミッションにおいて、我々がすべきことは、「ファイル全体を一つの巨大な文字列として読み込み、`SingleLine = True` の状態で、ドットを使ってブロックを飲み込む」ことなのだ。
3. プロダクション・レディな実装例
以下に、ログファイルから `[ERROR]` セクションから `[END]` セクションまでを、一括で抽出する堅牢なコードを示す。単なるコピペで終わらせず、なぜこのように書くべきかを注視せよ。
' ==============================================================================
' Module: LogSectionExtractor
' Description: RegExpのSingleLineモードを利用した、複数行ブロックの高速抽出
' Author: Chief Architect
' ==============================================================================
Option Explicit
' 定数定義：マジックナンバーを排除し、保守性を高める
Const REGEX_SINGLELINE = True
Const REGEX_GLOBAL = True
Sub Main()
Dim targetFile, logContent, errorBlocks
targetFile = "C:\Logs\app_server.log" ' 対象ファイルパス
' 1. ファイルの読み込み（メモリ許容範囲内であることを前提とする）
' 大規模ファイルの場合は、ADODB.Stream等を用いたストリーム処理を検討せよ
logContent = ReadFileToString(targetFile)
if logContent = "" Then Exit Sub
' 2. 正規表現による抽出実行
errorBlocks = ExtractMultiLineSections(logContent, "\[ERROR\](.*?)\s*\[END\]")
' 3. 結果の出力（実務ではDB書き込みやメール通知へ繋げる）
If errorBlocks.Count > 0 Then
WScript.Echo "--- Found " & errorBlocks.Count & " error blocks ---"
Dim block
For Each block In errorBlocks
WScript.Echo "------------------------------------------"
WScript.Echo block
Next
Else
WScript.Echo "No matching sections found."
End If
End Sub
''' <summary>
''' 指定されたパターンに基づき、複数行にわたるセクションを抽出する
''' </summary>
Function ExtractMultiLineSections(strInput, strPattern)
Dim objRegExp, objMatches, objMatch, colResults
Set colResults = CreateObject("System.Collections.ArrayList") ' 柔軟なコレクションを利用
On Error Resume Next
Set objRegExp = New RegExp
objRegExp.Pattern = strPattern
objRegExp.IgnoreCase = True
objRegExp.Global = REGEX_GLOBAL
' 【極意】ドットを改行にマッチさせ、複数行を「一つの塊」として扱う
objRegExp.SingleLine = REGEX_SINGLELINE
If Err.Number <> 0 Then
WScript.StdErr.WriteLine "RegExp Initialization Error: " & Err.Description
Exit Function
End If
On Error GoTo 0
' マッチング実行
Set objMatches = objRegExp.Execute(strInput)
For Each objMatch In objMatches
' SubMatch (カッコ内のグループ) があればそれを、なければ全体を格納
If objMatch.SubMatches.Count > 0 Then
colResults.Add objMatch.SubMatches(0)
Else
colResults.Add objMatch.Value
End If
Next
Set objRegExp = Nothing
Set ExtractMultiLineSections = colResults
End Function
''' <summary>
''' ファイルの内容を文字列として一括取得する
''' </summary>
Function ReadFileToString(strPath)
Dim objFSO, objFile, strContent
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(strPath) Then
WScript.StdErr.WriteLine "Error: File not found -> " & strPath
ReadFileToString = ""
Exit Function
End If
On Error Resume Next
Set objFile = objFSO.OpenTextFile(strPath, 1) ' 1 = ForReading
strContent = objFile.ReadAll
objFile.Close
If Err.Number <> 0 Then
WScript.StdErr.WriteLine "Error reading file: " & Err.Description
strContent = ""
End If
On Error GoTo 0
Set objFSO = Nothing
ReadFileToString = strContent
End Function
' 実行
Main4. アーキテクトの設計指針：実務における注意点
このコードをプロダクション環境に投入するにあたり、以下の3点を忘れてはならない。
A. メモリ管理の境界線
`objFile.ReadAll` は、ファイル全体をメモリに展開する。数GB規模のログファイルをこれで行えば、即座にメモリ不足（Out of Memory）でプロセスは死ぬ。
- 小〜中規模（数百MB以下）: この手法が最速。
- 大規模（GB単位）: ファイルを一定のバッファサイズで読み込み、パターンが完成するまでバッファを保持し続ける「スライディング・ウィンドウ」的な実装、あるいは事前に `findstr` 等の外部コマンドで対象範囲を絞り込む設計が必要だ。
B. `System.Collections.ArrayList` の活用
VBScript標準の `Array` は、要素の追加（`Push`）が極めて面倒だ。`System.Collections.ArrayList`（.NET Frameworkに依存するが、現代のWindows環境ならほぼ確実に存在する）を利用することで、動的な要素追加をクリーンに記述できる。これは保守性を劇的に向上させる。
C. データベース連携時の「エスケープ」
抽出した文字列をそのまま SQL 文に組み込んではならない。ログにはシングルクォート `’` や改行が含まれている。これらは SQL インジェクションや構文エラーの直接的な原因となる。必ず、DB接続用のオブジェクト（ADODB.Command等）を用い、パラメータクエリ（Prepared Statement）を使用せよ。
結論
VBScriptは古くからある言語だが、その設計思想を正しく理解し、オブジェクトの特性を最大限に引き出せば、今なお強力な武器となる。
「1行ずつ処理する」という思考停止から脱却し、「データ構造全体をパターンで捉える」という視点を持て。それが、単なるスクリプターと、真の自動化エンジニアを分かつ境界線である。
