【テクニカル・上級編】【正規表現の極意】RegExp オブジェクトを用いた「複数行モード」でのログファイル特定セクション一括抽出 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScript (Visual Basic Scripting Edition)

2026.11.15

「行」の呪縛を解け：VBScript RegExpによる複数行セクション抽出の極致

「行」の呪縛を解け：VBScript RegExpによる複数行セクション抽出の極致

ログ解析、設定ファイルのパース、あるいはレガシーなシステム間連携におけるデータ抽出。これらにおいて、多くのエンジニアが陥る罠がある。それは「1行ずつ読み込み、1行ずつ判定する」という、思考停止的なループ処理だ。

スタックトレースのように複数行にまたがるエラーメッセージや、特定の開始タグから終了タグまでを保持する設定ブロックを、行単位の `FileSystemObject` ループで処理しようとするのは、戦車で精密な時計を分解しようとするようなものだ。非効率であり、かつ決定的に不完全である。

本稿では、VBScript (WSH) 環境において、`RegExp` オブジェクトの真価を引き出し、複数行にまたがるデータセクションを一括で、かつ高精度に抽出するための「極限の知見」を伝授する。

1. 行単位処理の限界と「メモリ・マッピング」的思考

一般的なスクリプト作成者は、`FileSystemObject` の `ReadLine` を使い、行ごとに `InStr` や `Left/Right` 関数で判定を行う。しかし、このアプローチには二つの致命的な欠陥がある。

1. コンテキストの欠落: 「Aという行の次にBがある場合」という状態遷移を管理するために、フラグ変数（State Machine）を複雑に構築しなければならず、コードの可読性と保守性が著しく低下する。
2. オーバーヘッド: 膨大な行数に対して、スクリプトエンジン（VBScript）の命令セットを繰り返すことは、実行時間の増大に直結する。

真のアーキテクトは、対象となるファイルを一つの「巨大な文字列（Blob）」としてメモリ上に展開し、正規表現エンジンという強力なステートマシンに処理を委ねる。これが、複数行モードを活用した一括抽出の基本戦略である。

2. RegExp オブジェクトの深淵：MultiLine プロパティの誤解

VBScript の `RegExp` オブジェクトには、`Global`, `IgnoreCase`, `MultiLine` という3つの主要なプロパティが存在する。ここで、多くの者が `MultiLine` プロパティの挙動を誤解している。

`MultiLine = True` の真の役割

`MultiLine` プロパティを `True` に設定した際、変化するのは「ドット `.` が改行にマッチするかどうか」ではない。変化するのは、アンカー `^`（行頭）および `$`（行末）の挙動である。

`False` の場合：`^` は「文字列全体の先頭」にのみマッチする。
`True` の場合：`^` は「各行の先頭」にマッチする。

「DotAll」問題の回避策

VBScript の `RegExp` には、他の言語（PCRE等）にある「ドット `.` を改行にもマッチさせる（DotAllモード）」というプロパティが存在しない。つまり、通常の `.` を使う限り、改行を跨ぐことはできない。

これを突破する極限のテクニックが、文字クラスを用いた擬似 DotAll である。
`[\s\S]` もしくは `[\d\D]` を使用せよ。これは「空白文字（改行含む）または空白文字以外」という意味になり、結果として「改行を含むあらゆる文字」にマッチする。

3. 実践：ログファイルからのエラーブロック一括抽出

以下に、実戦投入可能なレベルのスクリプトを示す。ここでは、単なる `FileSystemObject` ではなく、エンコーディング制御に優れ、大規模データへの耐性を持つ `ADODB.Stream` を採用している。

'**
' Script: ExtractErrorBlocks.vbs
' Description: RegExpを用いた複数行エラーセクションの一括抽出
' Author: Legendary Chief Architect
'**
Option Explicit

' --- 定数定義 ---
Const ADODB_Stream_Type_Binary = 1
Const ADODB_Stream_Type_Text = 2
Const ADODB_Stream_Charset_UTF8 = "UTF-8"

Dim objStream, strContent, objRegExp, objMatches, objMatch
Dim strLogFile, strTargetPattern

' 抽出対象のログファイルパス
strLogFile = "C:\Logs\system_error.log"

' 抽出パターン: "ERROR" で始まり、"END_ERROR" で終わる複数行のブロック
' [\s\S]*? は非強欲（Non-greedy）マッチ。これを用いないとファイル末尾まで一気に食いつぶす。
strTargetPattern = "ERROR[\s\S]*?END_ERROR"

' 1. ファイルの読み込み (ADODB.Stream によるメモリ展開)
' FileSystemObject よりもエンコーディング制御が容易であり、
' 大規模なテキストを一つの文字列として扱う際に信頼性が高い。
On Error Resume Next
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = ADODB_Stream_Type_Text
objStream.Charset = ADODB_Stream_Charset_UTF8
objStream.Open
objStream.LoadFromFile strLogFile

If Err.Number <> 0 Then
    WScript.Echo "CRITICAL ERROR: ファイルの読み込みに失敗しました。" & vbCrLf & Err.Description
    WScript.Quit
End If

strContent = objStream.ReadText
objStream.Close
Set objStream = Nothing ' オブジェクトの明示的解放
On Error GoTo 0

' 2. 正規表現エンジンの構築
Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
    .Pattern = strTargetPattern
    .Global = True        ' 全ての一致箇所を検索
    .IgnoreCase = True    ' 大文字小文字を区別しない
    .MultiLine = True     ' 行頭/行末アンカーを有効化
End With

' 3. 抽出実行
Set objMatches = objRegExp.Execute(strContent)

' 4. 結果の出力
If objMatches.Count > 0 Then
    WScript.Echo "--- 抽出完了: " & objMatches.Count & " 個のブロックを検出 ---"
    For Each objMatch In objMatches
        ' 各マッチング結果の出力
        WScript.Echo "------------------------------------------"
        WScript.Echo objMatch.Value
        WScript.Echo "------------------------------------------"
    Next
Else
    WScript.Echo "対象のパターンは見つかりませんでした。"
End If

' 5. メモリ解放の儀式
' VBScript におけるメモリリークは、長期間稼働する WSH タスクにおいて致命的となる。
' スコープを抜ける前に、明示的に Nothing を代入することは、シニアエンジニアの嗜みである。
Set objMatches = Nothing
Set objRegExp = Nothing

4. アーキテクトの視点：パフォーマンスと安全性

この実装において、私が特にこだわった点は以下の3点である。

I. 非強欲マッチ（Non-greedy Match）の徹底

パターン内で `*` を使用する場合、必ず `*?` と記述せよ。
`ERROR[\s\S]*END_ERROR` と記述した場合、正規表現エンジンは「最初に見つかった ERROR」から「ファイル内で最後に見つかった END_ERROR」までを、一つの巨大な塊としてマッチさせてしまう。これはログ解析において致命的な誤検出を招く。

II. メモリ管理の規律

VBScript はガベージコレクションを持つが、その挙動は COM オブジェクトの参照カウントに依存する。特に `ADODB.Stream` や `RegExp` のような外部コンポーネントを扱う場合、ループ内や例外処理の中でオブジェクトが浮遊しないよう、`Set obj = Nothing` を徹底すること。これが、数万件のログを処理するバッチ処理における「安定性」の正体である。

III. エンコーディングの壁

レガシー環境では `Shift-JIS`、モダンな環境では `UTF-8` が混在する。`FileSystemObject` はこれらに対して脆弱な側面がある。`ADODB.Stream` を使用することで、文字化けによるパターンマッチング失敗という、デバッグ困難なバグを未然に防ぐことができる。

結論

VBScript はもはや「古い言語」として片付けられがちだ。しかし、Windows 展開環境におけるその圧倒的な「どこにでもある」という汎用性は、今なお強力な武器である。

単なる「行の読み込み」に終始するのではなく、オブジェクトの特性を理解し、メモリ構造と正規表現の数学的挙動をコントロールする。それこそが、レガシーなアーキテクチャを掌握し、システムを堅牢に保つプロフェッショナルの仕事である。