巨大ログ処理の暗闇に光を：VBScriptにおけるリアルタイム進捗率可視化の極意
レガシーシステムの保全、あるいはWindows環境における軽量なバッチ処理の要として、VBScriptはいまだに現役の第一線で稼働している。しかし、数ギガバイトに及ぶ巨大なテキストログを`Scripting.FileSystemObject`（以下、FSO）の`OpenTextFile`で順次読み込ませる処理を実装した時、エンジニアは共通の絶望に直面する。
「処理中、画面が完全にフリーズし、いつ終わるのか全く分からない」
`WScript.Echo`はポップアップブロックの悪夢を呼び、画面出力はバッファリングの壁に阻まれる。この沈黙の時間を打破し、コンソール（CScript）またはウィンドウタイトルバー（WScript）にリアルタイムで進捗率（%）を描画するためのループ設計について、メモリ管理とAPIの挙動の観点から深掘りしていこう。
—
1. 致命的なボトルネック：なぜ「毎回計算」してはいけないのか
巨大なログファイルを処理する際、最もやってはいけないアンチパターンがこれだ。
‘ 【悪夢のアンチパターン】
Do While Not objStream.AtEndOfStream
strLine = objStream.ReadLine
‘ 毎行ファイルポインタの位置を取得して割り算する
lngCurrentBytes = objStream.Line ‘ ※Lineは行数であってバイト位置ではないが、仮に位置計算を入れたとする
dblPercent = (lngCurrentBytes / lngTotalBytes) 100
WScript.StdOut.Write “進捗: ” & dblPercent & “%” & vbCr
Loop
これの何が問題か？
1. I/Oの過負荷: ファイルサイズやポインタ位置の算出（`AtEndOfStream`の判定含む）は、高頻度で行うとCOMオブジェクトの境界を跨ぐオーバーヘッドが蓄積する。
2. 描画の洪水: コンソールへの出力（`StdOut.Write`）自体が重い処理である。全行に対して描画を行えば、肝心のログ解析処理そのものの速度が何倍にも低下する。
シニアエンジニアたる者、「進捗更新はサンプリング（間引き）によって制御する」という鉄則を忘れてはならない。
—
2. 実装アーキテクチャ：CSI（Console Stream Indicator）パターン
今回は、CScript環境での実行を前提とし、`vbCr`（キャリッジリターン：復帰）を用いて同一行を上書きし続けるスムーズな進捗表示エンジンを構築する。
さらに、FSOの`OpenTextFile`では正確なバイト位置（オフセット）が取得できないというFSOの仕様上の欠損を補うため、ファイル全体のサイズを事前取得し、行数ベースではなく「読み込み文字数／総文字数」の比率でパーセンテージを算出する設計を採用する。
実用スクリプト：`AdvancedLogProcessor.vbs`
‘ ==============================================================================
‘ Script Name : AdvancedLogProcessor.vbs
‘ Description : 巨大ログファイルを安全に走査し、コンソールへリアルタイム進捗を表示する
‘ Architecture: CScript Execution Engine / OLE Automation Memory Optimized
‘ ==============================================================================
Option Explicit
Sub Main()
Dim fso, targetFilePath, targetFile, totalSize, currentSize, stream
Dim line, lineCount, updateInterval, startTime
Dim percent, barLength, filledBlocks, emptyBlocks, progressBar
Dim i
targetFilePath = “C:\Logs\huge_application.log” ‘ 対象の巨大ログ
‘ 1. オプティマイズされたFSOのインスタンス生成
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(targetFilePath) Then
WScript.Echo “[ERROR] 対象ファイルが存在しません: ” & targetFilePath
Exit Sub
End If
Set targetFile = fso.GetFile(targetFilePath)
totalSize = targetFile.Size
If totalSize = 0 Then
WScript.Echo “[WARN] ファイルサイズが0バイトです。”
Exit Sub
End If
WScript.Echo “[INFO] 処理開始: ” & targetFilePath
WScript.Echo “[INFO] ファイルサイズ: ” & FormatNumber(totalSize, 0) & ” bytes”
‘ 2. ストリームのオープン (ForReading = 1, TriStateFalse = 0 [ASCII/ANSI])
Set stream = fso.OpenTextFile(targetFilePath, 1, False, 0)
lineCount = 0
currentSize = 0
updateInterval = 1000 ‘ 1000行に1回だけ進捗計算と描画を行う（パフォーマンス維持の肝）
startTime = Timer()
‘ 3. メイン・イテレーション・ループ
Do While Not stream.AtEndOfStream
line = stream.ReadLine
lineCount = lineCount + 1
‘ 1行あたりの文字数（改行コード分を含む概算バイト数として加算）
‘ ※マルチバイト文字混入時の厳密なバイト数が必要な場合はLenBを使用するが、
‘ FSOのReadLineはUnicode変換を挟むため、Len(line)を文字数ウェイトとして扱う。
currentSize = currentSize + Len(line) + 2 ‘ CR+LF分の2バイトを近似加算
‘ 一定間隔でのみ進捗を再計算する（CPUとI/Oの枯渇を防ぐ）
If lineCount Mod updateInterval = 0 Then
Call RenderProgress(currentSize, totalSize, lineCount, startTime)
End If
Loop
‘ 4. ループ終了後の最終描画（100%確定）
Call RenderProgress(totalSize, totalSize, lineCount, startTime)
WScript.Echo vbCrLf & “[SUCCESS] すべての処理が完了しました。総行数: ” & FormatNumber(lineCount, 0)
‘ ==========================================================================
‘ 5. 厳格なオブジェクトの解放 (ライフサイクル管理)
‘ ==========================================================================
stream.Close
Set stream = Nothing
Set targetFile = Nothing
Set fso = Nothing
End Sub
‘ ——————————————————————————
‘ 進捗描画プロシージャ
‘ ——————————————————————————
Sub RenderProgress(ByVal current, ByVal total, ByVal lines, ByVal start)
Dim pct, elapsed, speed, eta
Dim barWidth, filled, empty, i
If total <= 0 Then Exit Sub pct = (CDbl(current) / CDbl(total)) 100 If pct > 100 Then pct = 100
‘ 経過時間とスループットの算出
elapsed = Timer() – start
If elapsed < 0.001 Then elapsed = 0.001
' プログレスバーの視覚化（横幅20文字のインジケーター）
barWidth = 20
filled = CInt((pct / 100) barWidth)
If filled > barWidth Then filled = barWidth
empty = barWidth – filled
progressBar = “[” & String(filled, “=”) & String(empty, “-“) & “]”
‘ コンソールへの出力（vbCrで改行せずにカーソルを先頭に戻して上書き）
‘ WScript.StdOut を使用するため、必ず cscript.exe で実行すること。
On Error Resume Next
WScript.StdOut.Write _
vbCr & progressBar & ” ” & _
Right(” ” & FormatNumber(pct, 1), 5) & “% | ” & _
“Lines: ” & FormatNumber(lines, 0) & ” | ” & _
“Time: ” & Format(elapsed, “0.0”) & “s”
On Error GoTo 0
End Sub
‘ 実行のエントリポイント
Call Main()
—
3. チーフアーキテクトが解説する「知見のポイント」
A. なぜ `WScript.StdOut.Write` なのか？
GUIホストである `wscript.exe` では、`StdOut` は存在せず実行時エラーとなる。そのため、このスクリプトは必ずCUIホストである `cscript.exe` で実行する必要がある。
cscript //nologo AdvancedLogProcessor.vbs
`WScript.Echo` は出力のたびに自動的に改行（`vbCrLf`）を伴うため、インジケーターの「上書きアニメーション」が成立しない。`StdOut.Write` を用いることで、コンソールのバッファ上で滑らかなリアルタイム描画を実現している。
B. COMコンポーネントのメモリリークを防ぐライフサイクル管理
VBScriptのガベージコレクション（GC）は参照カウント方式に基づいている。巨大なファイルを扱うループ内で、万が一FSOやストリームオブジェクトを誤って再生成したり、解放し忘れたりすると、メモリ使用量が右肩上がりに膨れ上がる（メモリリーク）。
スクリプトの末尾において、以下の順序で明示的に `Nothing` を代入し、COMラッパーの参照を即座に破棄することがプロフェッショナルの条件である。
stream.Close
Set stream = Nothing
Set targetFile = Nothing
Set fso = Nothing
C. パフォーマンスのジレンマ：正確性と速度のトレードオフ
前述のコードでは、`Len(line)` を用いてファイルサイズの進捗を近似計算している。
厳密なバイトオフセットを求めるために、ADODB.Streamオブジェクトの `Position` プロパティを利用する手もあるが、テキストエンコーディング（UTF-8, Shift-JIS）の変換コストやオブジェクト切替のオーバーヘッドを考慮すると、巨大ログの高速処理においてはFSOの `OpenTextFile` によるシーケンシャル読み込み ＋ 疑似サイズ加算が最もCPU負荷が低い。実務上、この「近似値による進捗」はユーザー体験を損なうことなく、十分な実用性を発揮する。
—
総括
VBScriptはレガシーな言語と揶揄されることもあるが、OSの奥底（Win32 APIやCOM）にダイレクトに触れられる極めてプリミティブで強力なツールである。
「処理が終わるまで画面が固まる」というインフラ担当者や開発者のストレスを、適切なループ設計とI/O制御によって解消すること。それこそが、時代を超えてシステムを支える真のエンジニアリングなのである。
