VBScriptを掌握せよ：独自設定ファイル解析における「極限のメモリ管理」と「高速パース」の深淵
VBScriptは、現代のクラウドネイティブな開発環境から見れば「化石」のように見えるかもしれない。しかし、工場の生産管理システム、証券会社のレガシー基盤、あるいは閉域網の自動化ツールにおいて、これほど信頼性が高く、かつ追加インストールなしでOSの深部にまで届くツールは他にない。
今回は、JSONやINIといった定型フォーマットに頼らず、独自のKey-Value形式を高速かつ低オーバーヘッドでパースするモジュールの設計思想を共有する。これは単なる文字列操作ではない。メモリの断片化を避け、ガベージコレクション（GC）の挙動を意識した「枯れた技術」の極致だ。
—
1. なぜ「Dictionaryオブジェクト」と「行指向読み込み」なのか
VBScriptにおける設定読み込みのボトルネックは、無駄なオブジェクト生成と文字列の結合にある。特に巨大な設定ファイルを扱う際、`Scripting.FileSystemObject`（FSO）の扱いを誤れば、メモリリークとパフォーマンス低下を招く。
我々が目指すべきは、「一度の走査で、必要なメモリのみを確保し、即座に静的連想配列へマッピングする」ことだ。
パフォーマンスの要諦
- FSOの再利用: ループ内でFSOのインスタンスを再生成しない。
- Split関数の抑制: 巨大な文字列に対して何度も`Split`を呼ぶと、一時的なメモリ確保が多発する。`InStr`を駆使したポインタライクな走査が、VBScriptにおける高速化の鉄則だ。
- 明示的な解放: `Nothing`代入を怠ることは、COMオブジェクトがメモリを占有し続けることを意味する。
—
2. 実装：高速パースモジュール `ConfigParser.vbs`
このモジュールは、`#`や`;`をコメントとみなし、`=`または`:`で区切られたKeyValueを`Scripting.Dictionary`へ吸い上げる。
‘ クラスとして定義し、スコープを明確にする
Class ConfigParser
Private FSO
Private Sub Class_Initialize()
Set FSO = CreateObject(“Scripting.FileSystemObject”)
End Sub
Public Function LoadConfig(filePath)
Dim dict, ts, line, pos, key, val
Set dict = CreateObject(“Scripting.Dictionary”)
‘ ファイル存在確認は最小限のコストで
If Not FSO.FileExists(filePath) Then
Set LoadConfig = dict
Exit Function
End If
Set ts = FSO.OpenTextFile(filePath, 1) ‘ 1 = ForReading
Do Until ts.AtEndOfStream
line = Trim(ts.ReadLine)
‘ 空行およびコメント行のスキップ（高速化のためInStrを使用）
If Len(line) > 0 And Left(line, 1) <> “#” And Left(line, 1) <> “;” Then
‘ 区切り文字(= または :)を検索
pos = InStr(line, “=”)
If pos = 0 Then pos = InStr(line, “:”)
If pos > 1 Then
key = Trim(Left(line, pos – 1))
val = Trim(Mid(line, pos + 1))
‘ キーの重複を考慮しつつ格納
If Not dict.Exists(key) Then dict.Add key, val
End If
End If
Loop
ts.Close
Set ts = Nothing
Set LoadConfig = dict
End Function
Private Sub Class_Terminate()
Set FSO = Nothing
End Sub
End Class
—
3. 実践的知見：シニアエンジニアが意識すべき「メモリの行儀」
このコードを現場で運用する際、以下のポイントを遵守してほしい。
1. オブジェクトのライフサイクル管理
`Class_Terminate`での`FSO`の解放は必須だ。WSH環境ではスクリプト終了時に自動解放されるという甘えは捨てろ。長期稼働するバックグラウンドタスク（タスクスケジューラからの実行など）では、このわずかなメモリの残骸が累積し、システム全体の不安定化を招く。
2. 文字列バッファの最適化
VBScriptの文字列操作は、実は内部で `BSTR` 型として扱われている。`Mid` や `Left` を多用すると文字列のコピーが発生するため、非常に長い設定ファイルの場合は、正規表現 (`VBScript.RegExp`) を使うよりも、今回の `InStr` によるインデックス抽出の方が、オーバーヘッドが劇的に低い。
3. エラーハンドリングの流儀
本番環境では、`On Error Resume Next` を戦略的に使う必要がある。しかし、全域に適用するのは素人のやり方だ。
On Error Resume Next
Set dict = parser.LoadConfig(“config.txt”)
If Err.Number <> 0 Then
‘ ログ出力および適切な終了処理
WScript.Quit(1)
End If
On Error GoTo 0
このように、「関数の呼び出し直後にのみエラーを捕捉する」のが、堅牢なシステムを構築するための唯一の正解である。
—
結論：VBScriptを「過去の遺物」にするな
VBScriptは、正しく扱えば極めて軽量で、かつ強力な「OS直結の武器」となる。JSONライブラリやモダンなフレームワークが持ち込めない過酷な環境において、自らパースロジックを書き、メモリを制御する技術こそが、エンジニアとしての真の価値を決めるのだ。
この記事を読んだ諸君には、単なるコードのコピペではなく、なぜこの実装が「速い」のか、なぜ「この書き方」なのかを理解してほしい。レガシーを掌握する者にのみ、未来のシステム構築の権利が与えられる。
