VBScriptを掌握する極限の知見：大容量整列済み配列に対する超高速バイナリサーチの実装
レガシーシステムの深部、あるいはWindows環境における軽量な自動化スクタイトの要塞として、VBScriptは今なおその生命を維持している。数万件、数十万件に及ぶマスターデータをCSVやDBから読み込み、インメモリで処理を完結させなければならない場面において、スクリプトの実行速度はエンジニアの生死を分ける境界線となる。
多くのプログラマは、配列の検索において何の疑いもなく `For` ループによる線形検索（Linear Search）を実装する。だが、考えてみてほしい。$N = 100,000$ の要素を持つ配列の末尾に目的のデータがある場合、最悪のケースでは10万回の比較演算が走る。これを毎秒何百回も繰り返すバッチ処理であれば、CPUは無駄なサイクルを消費し、システムは完全に沈黙する。
本稿では、VBScriptの貧弱な型システムとメモリ管理の制約を逆手に取り、整列済み配列に対して $O(\log N)$ のオーダーで爆速の検索を実現する「動的配列の二分探索（バイナリサーチ）」の実装と、その背後にある極限の最適化知見を解説する。
—
1. なぜVBScriptでバイナリサーチなのか？
VBScriptの内部データ構造は、基本的にVARIANT型ポインタの配列（SAFEARRAY）として管理される。スクリプト言語としてのオーバーヘッドを考慮すると、数万件のオブジェクトやレコードセットをメモリ上で頻繁にクエリすることは、COMコンポーネントの往復が発生するため致命的に遅い。
解決策は明確だ。データを一度プリミティブな一次元配列にロードし、メモリ上で昇順にソートした上で、バイナリサーチを適用する。
バイナリサーチのアルゴリズム自体はシンプルだが、VBScriptで実装する際には以下の「罠」に直面する。
1. 整数除算のパフォーマンス: VBScriptの `/` 演算子は浮動小数点数割算を行うため、配列の中央インデックスを算出する際は `\`（整数除算）を使用しなければ、微小なパフォーマンスロスと型変換オーバーヘッドが発生する。
2. 変数の型揺れ: VARIANT型による比較は暗黙の型変換を引き起こすため、大小比較（`<` または `>`）を行う前にデータ型を厳密に意識する必要がある。
—
2. 実装コード：超高速バイナリサーチ・エンジン
以下のコードは、数万件の整列済み配列から、指定されたキーを対数時間で割り出す実用的なVBScriptのモジュールである。
Option Explicit
‘ =========================================================================
‘ 処理名: 汎用二分探索（バイナリサーチ）関数
‘ 引数 : arrTarget – 昇順にソート済みの一次元配列 (ByRefで参照渡しによる高速化)
‘ vKey : 検索対象の値
‘ 戻り値: 見つかった場合は配列のインデックス、見つからない場合は -1
‘ =========================================================================
Function BinarySearch(ByRef arrTarget, ByVal vKey)
Dim intLow, intHigh, intMid
intLow = LBound(arrTarget)
intHigh = UBound(arrTarget)
‘ 境界値の極限チェック（配列が空の場合の早期リターン）
If intLow > intHigh Then
BinarySearch = -1
Exit Function
End If
Do While intLow <= intHigh
' 【極限知見】浮動小数点除算('/')ではなく、整数除算('\')を使用する
' これにより余計な倍精度浮動小数点へのキャストを防ぎ、CPUサイクルを節約する
intMid = intLow + ((intHigh - intLow) \ 2)
If arrTarget(intMid) = vKey Then
BinarySearch = intMid
Exit Function
ElseIf arrTarget(intMid) > vKey Then
intHigh = intMid – 1
Else
intLow = intMid + 1
End If
Loop
‘ 該当データなし
BinarySearch = -1
End Function
‘ =========================================================================
‘ 【テスト・実証用ドライバ】
‘ =========================================================================
Sub RunBenchmark()
Dim objTimer
Set objTimer = CreateObject(“WScript.Shell”)
Const MAX_ELEMENTS = 100000
Dim arrData()
ReDim arrData(MAX_ELEMENTS)
Dim i
‘ 1. ダミーの整列済みデータを生成 (0, 2, 4, 6, …)
For i = 0 To MAX_ELEMENTS
arrData(i) = i 2
Next
Dim targetKey, resultIndex
targetKey = 150042 ‘ 検索ターゲット
‘ 2. バイナリサーチ実行
Dim startTime
startTime = Timer()
resultIndex = BinarySearch(arrData, targetKey)
WScript.Echo “— バイナリサーチ結果 —” & vbCrLf & _
“要素数: ” & (MAX_ELEMENTS + 1) & vbCrLf & _
“検索キー: ” & targetKey & vbCrLf & _
“インデックス: ” & resultIndex & vbCrLf & _
“検出値: ” & IIf(resultIndex <> -1, arrData(resultIndex), “N/A”) & vbCrLf & _
“処理時間: ” & FormatNumber((Timer() – startTime) 1000, 4) & ” ms”
‘ オブジェクトの明示的解放
Set objTimer = End Sub
‘ 三項演算子のエミュレーション補助関数
Function IIf(bCondition, vTrue, vFalse)
If bCondition Then IIf = vTrue Else IIf = vFalse
End Function
‘ 実行のエントリポイント
Call RunBenchmark()
—
3. シニアアーキテクトが教えるパフォーマンスチューニングの極意
上記のコードを単にコピーして終わりではない。極限の環境でVBScriptを駆動させるための設計思想をいくつか授けよう。
① `ByRef` によるメモリ参照の最適化
VBScriptにおいて、配列を引数として渡す際、デフォルトの `ByVal`（値渡し）を使用すると、配列全体のディープコピーがメモリ上に生成される。数万件の配列をコピーするだけで、ガベージコレクタに甚大な負荷がかかり、スクリプトはフリーズしたような挙動を示す。
必ず `ByRef` を明示し、ポインタの参照渡しによってメモリ消費をゼロに抑えよ。
② オーバーフローの回避とインデックス計算
大規模配列（要素数が $2^{31}-1$ を超えることはVBScriptの仕様上ないが）の中央値を求める際、`intLow + intHigh` が整数型の最大値を超えてオーバーフローを起こすリスクを考慮し、コード内では以下の安全かつ高速なイディオムを採用している。
intMid = intLow + ((intHigh – intLow) \ 2)
このイディオムは、C/C++の低レイヤープログラミングにおいても定石とされるものであり、VBScriptのVARIANT（VT_I4）演算においても例外を生まない堅牢性を誇る。
③ 前提条件：ソート処理のコストとのトレードオフ
バイナリサーチの最大の前提は「データが完全にソートされていること」である。
もし検索対象の配列がランダムな順序である場合、検索のたびにクイックソート等のアルゴリズムを走らせていては、バイナリサーチの恩恵（$O(\log N)$）は完全に相殺され、むしろソートコスト（$O(N \log N)$）によってパフォーマンスが破綻する。
- 原則: マスターデータ読込時に一度だけソートを行い、以降のセッションではその整列済み配列に対して高速なバイナリサーチを幾度も叩き込むアーキテクチャに設計すること。
—
終わりに
VBScriptはレガシーな言語と嘲笑されることもある。しかし、背後にあるOSのアーキテクチャ、メモリ管理、そしてアルゴリズムの計算量を突き詰めたコードは、現代のどのモダン言語で書かれたプログラムよりも軽快に、かつ確実にタスクを完遂する。
現場で「遅い」と嘆く前に、アルゴリズムのオーダーを見直せ。$O(N)$ の暴力から抜け出し、$O(\log N)$ の美しさを手に入れたとき、あなたのVBScriptスクリプトは真の「武器」へと昇華する。
