【動的配列の二分探索】数万件のデータを一瞬で射抜け！VBScript極限高速化の技術
業務自動化の現場において、VBScriptは今なおレガシーシステムとの統合や、インフラ自動化の最後の砦として強烈な存在感を放っている。
しかし、ここで一つ問いかけたい。
「君の書いたスクリプト、数万件のマスターデータを前にフリーズしていないか？」
マスターデータやログファイルから読み込んだ数万行のレコードに対し、配列の先頭から順に舐めていく「線形検索（Linear Search）」を実装しているとしたら、今すぐその手を止めてほしい。データ量に比例して処理時間が直線的に悪化する $O(N)$ のアルゴリズムは、モダンな業務において悪でしかない。
今回は、整列済み配列に対して圧倒的なパフォーマンスを発揮する「二分探索（バイナリサーチ：Binary Search）」をVBScriptで極限まで最適化し、プロダクション環境に耐えうる堅牢なコードとして実装する方法を伝授する。
—
1. なぜVBScriptで「二分探索」なのか？
線形検索の限界
VBScriptはインタプリタ言語であり、ループ処理のオーバーヘッドが比較的大きい。数万件の配列に対して `For` ループを回し、毎回条件分岐を行う線形検索は、件数が増えれば増えほどCPUを無駄に消耗する。
二分探索の破壊力 $O(\log N)$
二分探索は、「すでにソートされている配列」に対し、中央の要素と目的の値を比較し、一致しなければ「前半」か「後半」のどちらを探索すべきかを判定して範囲を半分に絞り込んでいくアルゴリズムだ。
- 線形検索 ($100,000$ 件): 最悪の場合 $100,000$ 回の比較
- 二分探索 ($100,000$ 件): 最悪でもわずか $17$ 回の比較
この圧倒的な計算量の差を、VBScriptというエコシステムの中でどう実装し、実用に落とし込むかがエンジニアの腕の見せ所となる。
—
2. 堅牢な二分探索エンジンの設計思想
VBScriptでアルゴリズムを実装する際、以下の3点を徹底的に考慮しなければならない。
1. 境界値の罠（オフバイワンエラー）:
配列のインデックス下限（`LBound`）と上限（`UBound`）の管理を誤ると、無限ループや配列境界外エラー（Subscript out of range）を引き起こす。
2. 型の一致と大文字小文字の区別:
VBScriptはバリアント型（Variant）の暗黙の型変換に依存しやすいため、文字列比較では適切な比較演算子（`StrComp`）を使い、予期せぬ型ミスマッチを防ぐ必要がある。
3. データ構造の前提:
対象の配列が事前に昇順ソートされていることが絶対条件である。
—
3. 【プロダクションコード】超高速バイナリサーチ実装
以下のコードは、数万件規模の二次元配列（または一次元配列）を想定し、エラーハンドリングと厳密な比較処理を組み込んだ実用的なVBScriptモジュールである。
そのままコピー＆ペーストし、`.vbs` ファイルとして実行可能だ。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: BinarySearchSample.vbs
‘ 概要 : 大容量整列済み配列に対する二分探索の実装例
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Main
Sub Main()
‘ 1. テストデータの生成（本来はDBやCSVから取得した整列済みデータ）
Dim maxRecords
maxRecords = 500000 ‘ 50万件のデータ
WScript.Echo “— ” & FormatNumber(maxRecords, 0) & ” 件のテストデータを生成中（昇順） —”
Dim targetArray()
ReDim targetArray(maxRecords – 1)
Dim i
For i = 0 to maxRecords – 1
‘ “ID000001” のようなゼロ埋め文字列を生成（これがソート済みキーになる）
targetArray(i) = “ID” & Right(“0000000” & CStr(i + 1), 7)
Next
‘ 2. 検索キーワードの設定
Dim searchKey
searchKey = “ID0045892” ‘ 途中の適当なキー
WScript.Echo “検索キーワード: ” & searchKey
‘ 3. 探索の実行と計測開始
Dim startTime, endTime, resultIndex
startTime = Timer
‘ 二分探索の呼び出し
resultIndex = BinarySearch(targetArray, searchKey)
endTime = Timer
‘ 4. 結果の出力
If resultIndex >= 0 Then
WScript.Echo “【成功】インデックス [” & resultIndex & “] に値を発見しました。”
Else
WScript.Echo “【失敗】指定された値は存在しません。”
End If
WScript.Echo “処理時間: ” & FormatNumber((endTime – startTime) 1000, 2) & ” ms”
End Sub
‘ ==============================================================================
‘ 関数名 : BinarySearch
‘ 概要 : 昇順ソートされた一次元配列から指定された値を二分探索する
‘ 引数 : arr – 探索対象の配列 (ByRef)
‘ : target – 検索する値
‘ 戻り値 : 見つかった場合は配列のインデックス、見つからない場合は -1
‘ ==============================================================================
Function BinarySearch(ByRef arr, ByVal target)
Dim low, high, mid
Dim compResult
low = LBound(arr)
high = UBound(arr)
BinarySearch = -1 ‘ 初期値は未検出
Do While low <= high
' 整数除算により中央インデックスを算出（オーバーフロー対策も考慮）
mid = low + Int((high - low) / 2)
' VBScriptの文字列・数値比較（バイナリ比較：大文字小文字を区別）
' ※数値の場合は単純に 「arr(mid) > target」 等を使っても良いが、
‘ StrCompは汎用性が高いためここでは採用。
compResult = StrComp(arr(mid), target, vbBinaryCompare)
If compResult = 0 Then
‘ 一致した場合
BinarySearch = mid
Exit Function
ElseIf compResult < 0 Then ' 配列の中央値がターゲットより小さい場合、後半を探索 low = mid + 1 Else ' 配列の中央値がターゲットより大きい場合、前半を探索 high = mid - 1 End If Loop End Function ---
4. 現場で使える実務上の重要ノウハウ（ファイル・DB連携の注意点）
このアルゴリズムを実際の業務（CSVインポートやデータベース連携）に組み込む際、以下の罠に注意してほしい。
① 「ソート済み」の保証をどこで行うか？
二分探索は、未ソートの配列に対して実行すると全くデタラメな結果を返す（あるいは見つからない）。
- データベースから取得する場合: SQL側で `ORDER BY` 句を必ず付与してソート済みの結果セットとしてVBScript側に渡すこと。
- ファイル（CSV等）から読み込む場合: ファイル自体の行順序が保証されていない場合、一度VBScript側で配列に読み込んでからスクリプト内でソートするか、あらかじめソートされたファイルを読み込ませる必要がある。（※VBScript単体での配列ソートは重いため、DBや外部ユーティリティに任せるのがセオリーだ）
② メモリの効率利用（`ByRef` の徹底）
VBScriptで配列をユーザー定義関数に渡す際、デフォルトの `ByVal`（値渡し）で行うと、数万〜数百万要素の配列全体がメモリ上に複製され、致命的なパフォーマンス低下（メモリ枯渇）を引き起こす。
必ず `Function BinarySearch(ByRef arr, ByVal target)` のように、`ByRef`（参照渡し）を使用し、ポインタのみを渡すように設計すること。
—
5. 総括
VBScriptは古い言語と揶揄されることもあるが、アーキテクチャの原理原則（アルゴリズムの選択やメモリ管理）を正しく理解していれば、現在でも第一線で爆速の自動化ツールとして機能する。
「なんとなくループを回す」というプログラミングを卒業し、適切なデータ構造とアルゴリズム（二分探索）を適用することで、あなたの書くスクリプトは劇的に生まれ変わるはずだ。
現場の信頼を勝ち取る堅牢なコードを、ぜひ今日の開発から取り入れてみてほしい。
