【ストリームパイプ処理】CScript 実行における WScript.StdIn 逐次読み込みと超高速テキストフィルタリング
開発現場でこんな絶望を味わったことはないか？
数ギガバイト、あるいは数百万行に及ぶ巨大なログファイルやCSVデータをVBScriptで処理しようとして、`ReadAll` で一括メモリロードした瞬間、プロセスが沈黙し、最終的に `OutOfMemory` でクラッシュする。タスクマネージャーを見ればメモリがみるみるうちに消失していく――。
レガシーな技術と侮られがちなVBScriptだが、その実態はWSH（Windows Script Host）を介してOSの深部と直結する強力なツールだ。特に `CScript` ホストと組み合わせた標準入出力（StdIn / StdOut）のストリームパイプ処理をマスターすれば、巨大データをまるで水流のように流し、メモリを極限まで消費せずに超高速でテキストフィルタリングすることが可能になる。
今回は、業務自動化の現場で即座に使える、堅牢かつ極限まで最適化されたストリーム処理の設計思想とプロダクションコードを伝授しよう。
—
1. なぜ一括読み込み（`ReadAll`）は悪なのか？
多くのプログラマブルな素人がやりがちなミスがこれだ。
‘ 【アンチパターン】絶対にやってはいけない実装
Dim fso, allText
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ファイル全体を一度にメモリへバッファリングする
allText = fso.OpenTextFile(“huge_data.log”, 1).ReadAll
‘ ここでメモリ爆発を起こすか、巨大な文字列操作でCPUが焼き切れる
VBScript（OLEオートメーションの文字列管理）において、巨大な文字列の結合や一括読み込みはパフォーマンスの殺人行為だ。ガベージコレクションやメモリの再割り当て（Reallocation）が頻発し、処理速度は幾何級数的に低下する。
解決策：ストリームによる「1行逐次処理」
OSのパイプライン（`|`）経由で渡されるデータ、あるいはファイルから読み込むデータは、「今、目の前にある1行」だけをメモリに載せ、処理したら即座に捨てる。これがストリームパイプ処理の核心である。
`WScript.StdIn.AtEndOfStream` と `SkipLine` / `ReadLine` を適切に組み合わせることで、メモリ消費量を数キロバイトに固定したまま、テラバイト級のデータすら処理できるようになる。
—
2. プロダクションコード：超高速ログフィルターエンジン
以下のコードは、他のコマンド（例: `type` や `Get-Content` など）からパイプ経由で渡された標準入力を受け取り、指定したキーワードにマッチする行だけを抽出しつつ、行番号を付与して標準出力（`StdOut`）へリアルタイムに流し込む実用スクリプトだ。
実務の現場にそのまま投入できるよう、エラーハンドリング、エンコーディングの考慮、不正入力への耐性を完備している。
‘ ==============================================================================
‘ Script Name: StreamFilter.vbs
‘ Description: 標準入力から受け取ったデータを1行ずつストリーム処理し、
‘ 特定キーワードを含む行を高速に抽出して標準出力へ返す
‘ Usage: type huge.log | cscript //nologo StreamFilter.vbs “ERROR” > filtered.log
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Main
Sub Main()
On Error Resume Next
‘ 1. 引数の検証
Dim args
Set args = WScript.Arguments
If args.Count < 1 Then
WScript.StdErr.WriteLine "[ERROR] 引数が不足しています。キーワードを指定してください。"
WScript.StdErr.WriteLine "Usage: cscript //nologo StreamFilter.vbs
WScript.Quit 1
End If
Dim targetKeyword
targetKeyword = args(0)
‘ 2. ストリーム変数の定義
Dim lineCount, matchCount
lineCount = 0
matchCount = 0
Dim stdIn, stdOut
Set stdIn = WScript.StdIn
Set stdOut = WScript.StdOut
‘ 3. 逐次ストリーム読み込みループ（メモリ消費量 O(1) の実現）
Do While Not stdIn.AtEndOfStream
Dim currentLine
currentLine = stdIn.ReadLine
lineCount = lineCount + 1
‘ 4. 高速フィルタリング判定（InStrによる部分一致検索）
‘ ※ 大文字小文字を区別しない場合は InStr(1, currentLine, targetKeyword, vbTextCompare) を使用
If InStr(1, currentLine, targetKeyword, vbBinaryCompare) > 0 Then
matchCount = matchCount + 1
‘ フォーマットして標準出力へ即座に流す（バッファリングさせない）
stdOut.WriteLine FormatOutput(lineCount, currentLine)
End If
‘ 処理状況の定期的なデバッグ出力（必要に応じてコメントアウト解除）
‘ If lineCount Mod 10000 = 0 Then
‘ WScript.StdErr.WriteLine “[INFO] ” & lineCount & ” 行処理完了…”
‘ End If
Loop
‘ エラーチェック
If Err.Number <> 0 Then
WScript.StdErr.WriteLine “[FATAL] 処理中にエラーが発生しました: ” & Err.Description
WScript.Quit 2
End If
‘ 5. 終了サマリーを標準エラー出力へ通知（標準出力を汚さないためのプロの技）
WScript.StdErr.WriteLine “————————————————–”
WScript.StdErr.WriteLine “処理完了: 総行数=” & lineCount & “行 / マッチ数=” & matchCount & “行”
WScript.StdErr.WriteLine “————————————————–”
On Error GoTo 0
WScript.Quit 0
End Sub
‘ ——————————————————————————
‘ 出力フォーマット整形関数
‘ ——————————————————————————
Function FormatOutput(ByVal rowNum, ByVal text)
‘ ゼロパメされた行番号と元のテキストをタブ区切りで結合
FormatOutput = Right(“000000” & rowNum, 6) & vbTab & text
End Function
—
3. 現場で絶対に押さえるべきアーキテクチャ上の注意点
このスクリプトを実務の自動化パイプラインに組み込む際、VBScript特有の「ハマりどころ」を理解していないと、思わぬバグに直面する。チーフアーキテクトとして、以下の3点を厳命する。
① 必ず `CScript` ホストで実行させること
WSHには `WScript`（GUI環境）と `CScript`（CUI環境）の2つのホストが存在する。
標準入出力（`StdIn` / `StdOut` / `StdErr`）は、`CScript` で実行しなければ正常に機能しない（ダイアログボックスがポップアップしてフリーズするか、オブジェクトエラーになる）。
実行時は必ず以下のように呼び出すこと。
cscript //nologo StreamFilter.vbs “Keyword”
② 出力の分離（`StdOut` と `StdErr` の使い分け）
データ処理スクリプトにおいて、純粋なデータ出力（`StdOut`）と、進捗やログメッセージ（`StdErr`）をごちゃまぜにしてはならない。
プロのパイプライン設計では、データは `StdOut` で次のコマンドへ渡し、メタ情報（進捗・エラー）は `StdErr` へ流す。これにより、`> result.txt` でリダイレクトした際に、純粋なデータだけを綺麗にファイル保存できる。
③ 文字コード（エンコーディング）の壁
Windows環境における標準入力の文字コードは、コマンドプロンプトのコードページ（通常は Shift_JIS / CP932）に依存する。もしUTF-8の巨大ログを処理する場合、単純なパイプでは文字化けを起こす。
その場合は、VBScript単体に頼るのではなく、PowerShellのパイプラインや `ADODB.Stream` を組み合わせるか、事前に `chcp 65001` でコードページをUTF-8に変更してから `cscript` をキックする運用設計が不可欠となる。
—
4. チーフアーキテクトからの総括
「古い技術だから使えない」ではない。「特性を理解していないから使いこなせない」だけだ。
今回解説した `WScript.StdIn` による逐次ストリーム処理は、外部の重厚なフレームワークをインストールできない閉じたWindowsサーバー環境や、レガシーなバッチ処理の高速化において、今なお最強の武器として機能する。
メモリを支配し、データを水のように流す。このストリームの感覚を手の内に入れた時、あなたの自動化エンジニアとしての能力は間違いなく次のステージへと到達するだろう。現場へ戻り、さっそくこの設計を実装に落とし込んでくれ。
