大容量ログを制する：VBScriptにおけるメモリ効率を極めた「ヘッダースキップ」の奥義
レガシーシステムの墓場と呼ばれるような現場でも、VBScriptは依然としてインフラ管理の最前線で息づいている。しかし、数ギガバイトに及ぶログファイルを読み込む際、「安易に `ReadAll` を使う」という過ちは、即座にメモリ枯渇（OOM）という死を招く。
今日は、FileSystemObject (FSO) の潜在能力を限界まで引き出し、メモリ消費を限りなくゼロに近づけながら、巨大なログの特定行へ「瞬時に」到達する実装の極意を伝授する。
—
なぜ ReadLine ではなく SkipLine なのか？
多くのジュニアエンジニアは、ログをパースする際に `ReadLine` で文字列変数に格納し、条件判定を行おうとする。これは間違いではないが、不要なヘッダーが10万行あった場合、10万個の文字列オブジェクトが一時的にメモリへ生成され、ガベージコレクション（GC）の負荷を増大させる。
ここで登場するのが `SkipLine` メソッドだ。
- ReadLine: メモリ上に文字列バッファを確保し、VBScriptの変数へ値をコピーする（オーバーヘッド大）。
- SkipLine: ファイルポインタを次の行頭へ進めるだけ。文字列の生成を行わない（オーバーヘッド最小）。
この差が、数GBのログを扱う際の「実行時間」と「安定性」を分かつ決定的な境界線となる。
—
実装：メモリを汚染しない高速スキップ・アルゴリズム
以下は、特定の行数まで瞬時にスキップし、そこから必要なデータのみを読み込むための定石コードだ。
‘ — パフォーマンス重視のログパース・テンプレート —
Option Explicit
Const ForReading = 1
Dim fso, ts, logPath, skipLines, i
logPath = “C:\Logs\HugeApplication.log”
skipLines = 50000 ‘ 5万行目までをスキップ対象とする
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ファイルの存在確認は必須。存在しないファイルを無理に開くことはリソースの無駄
If fso.FileExists(logPath) Then
Set ts = fso.OpenTextFile(logPath, ForReading)
‘ 核心部：SkipLineによる高速移動
‘ ループ内でReadLineによる変数割当を避けることがメモリ節約の鍵
For i = 1 To skipLines
If Not ts.AtEndOfStream Then
ts.SkipLine
Else
WScript.Echo “警告: 指定行数に達する前にファイルが終了しました。”
Exit For
End If
Next
‘ ここから先は、必要なデータのみをReadLineで処理する
Do Until ts.AtEndOfStream
Dim currentLine
currentLine = ts.ReadLine
‘ パース処理（正規表現エンジンを使う場合は、コンパイル済みのオブジェクトをループ外で作成すること）
If InStr(currentLine, “[ERROR]”) > 0 Then
WScript.Echo “抽出データ: ” & currentLine
End If
Loop
‘ オブジェクトの明示的解放
‘ VBScriptではスクリプト終了時に解放されるが、巨大なループ処理では
‘ 明示的な解放がメモリリークを防ぐ唯一の手段となる
ts.Close
Set ts = Nothing
End If
Set fso = Nothing
—
アーキテクトの視点：限界を超えた最適化のために
上記のコードが「基礎」であれば、さらに一段階上の「極致」へ達するための注意点を記す。
1. 文字列結合の罠を回避せよ
ループ内で `data = data & newLine` のような記述を繰り返してはならない。VBScriptの文字列は不変（Immutable）であるため、結合のたびに新たなメモリ領域が確保され、メモリ断片化（メモリフラグメンテーション）の主犯となる。出力が必要なら `WScript.Stdout.WriteLine` を直接叩くか、`Dictionary` オブジェクトへの一時格納を検討すること。
2. ファイルポインタとバッファサイズ
極めて巨大なログの場合、OSのファイルキャッシュがボトルネックになる。もしパフォーマンスが頭打ちになる場合は、`ADODB.Stream` オブジェクトへの切り替えを検討せよ。`ADODB.Stream` はFSOよりも低レイヤーでバイナリ制御が可能であり、`ReadText` メソッドで読み込みサイズを指定することで、さらなる高速化が可能だ。
3. COMオブジェクトのライフサイクル管理
`Set fso = Nothing` を疎かにするエンジニアが多いが、長時間稼働するタスクスケジューラ上のスクリプトでは、これが致命的なメモリリークを招く。特に `CreateObject` をループ内で呼び出すような愚行は、システム全体を汚染する。必ずスコープを意識し、スコープを抜ける前に明示的に `Nothing` を代入する習慣を徹底せよ。
—
結びに
VBScriptは「古い」技術ではない。現代の言語に比べれば機能は制限されているが、それゆえに「マシンが裏で何をしているか」をエンジニア自身が制御しなければならない。
メモリを浪費するコードは、ハードウェアへの冒涜だ。この `SkipLine` メソッドを活用し、数ギガのログを軽やかに捌く知見こそが、真のエンジニアリングである。
コードが語る言葉に耳を澄ませ。それが、レガシーを掌握する唯一の道だ。
