【テクニカル・上級編】【高度な配列操作】Filter 関数と Join / Split の組み合わせによる要素の超高速絞り込みと一括整形 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScriptを掌握する極限の知見：FilterとJoin/Splitがもたらす配列操作のパラダイムシフト

レガシーシステムの深部、あるいはタスク自動化の最前線において、VBScript（Visual Basic Scripting Edition）は依然としてインフラストラクチャの隠れた基盤として稼働し続けている。現代的な言語が持つ洗練されたLINQや高階関数が存在しないこの世界で、愚直に`For…Next`ループを回し、`ReDim Preserve`を毎ループ実行するようなコードは、巨大なデータセットの前では確実にシステムを窒息させる。

メモリの断片化を恐れ、パフォーマンスの限界に挑むシニアエンジニアにとって、配列のライフサイクルをいかに支配するかは死活問題だ。
今回は、VBScriptの標準関数である `Filter`、`Split`、`Join` を有機的に結合させ、ループ処理を排除した「超高速絞り込みと一括整形」の極限テクニックを紐解く。

—

1. 根源的理解：なぜループ処理は悪なのか

VBScriptのバリアント配列（Variant Array）は、背後でCOMのメモリ管理機構に依存している。特に`ReDim Preserve`をループ内で多用すると、以下のような致命的なオーバーヘッドが発生する。

1. メモリの再割り当てとコピー: 拡張のたびにOSヒープ上でメモリ領域が確保され、既存データが丸ごとコピーされる。$O(N^2)$ の計算量を生み出す元凶となる。
2. Variant型の型判定コスト: 動的型付けの代償として、要素へのアクセスごとにオーバーヘッドが乗る。

この呪縛から逃れる唯一の手段が、「C言語レベルで最適化された組込関数群へ処理を委譲し、VBScript層でのループを極限まで排除すること」である。

—

2. 三大関数のシナジー：Filter × Split × Join

このアーキテクチャの核心は、文字列の「分割」「抽出」「結合」をメモリ上で一気に完結させる点にある。

基本武器の再定義

• `Split(Expression, [Delimiter])`: 巨大な文字列を一撃で1次元配列に変換する。
• `Filter(SourceArray, Match, [Include], [Compare])`: 配列内を部分一致・完全一致で爆速スキャンし、条件に合致（または不一致）する要素だけを抽出した新しい配列を瞬時に返す。
• `Join(SourceArray, [Delimiter])`: 配列の全要素を単一のデリミタで結合し、文字列に戻す。

これらを組み合わせることで、ファイルやストリームからの大量データ処理において、VBScriptとは思えないスループットを実現できる。

—

3. 実践コード：数万行のログから特定条件をミリ秒単位で抽出・整形する

以下のコードは、実務で遭遇する「巨大なCSVやログテキストから、特定のキーワードを含む行のみを抽出し、フォーマットを変換して出力する」シーンを想定したものである。`For`ループを一切排除した実装に注目してほしい。

‘ Option Explicitの強制：暗黙の変数宣言を排除し、メモリと名前空間を厳格に管理する
Option Explicit

Sub ExecuteHighSpeedArrayProcessing()
Dim objFSO, objFile
Dim strRawData, arrLines, arrFiltered, arrProcessed
Dim i, t0

t0 = Timer ‘ パフォーマンス計測開始

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

‘ 【前提】数万行に及ぶ巨大なログファイルを想定
‘ ここでは擬似的にメモリ上で巨大テキストを生成する
strRawData = GenerateMockLogData(50000)

‘ 1. 【Split】改行コードで一気に1次元配列へ爆速展開
‘ VBScriptのvbCrLfをデリミタとして、メモリ上に配列を構築
arrLines = Split(strRawData, vbCrLf)

‘ 2. 【Filter】ループを書かずに「ERROR」を含む行だけを抽出
‘ Filter関数は内部で最適化されており、数万件の配列スキャンを瞬時に完了させる
‘ 第3引数を True にすると一致するもの、False にすると除外するものになる
arrFiltered = Filter(arrLines, “ERROR”, True, vbTextCompare)

‘ 3. 【一括整形メカニズム】
‘ 抽出された配列要素に対して加工を行いたい場合、一度 Join で文字列に戻し、
‘ 置換処理を適用してから再度 Split する、あるいは特殊なパイプラインを通す。
‘ ここでは例として、カンマ区切りのログの特定カラムを置換するシナリオを想定
If UBound(arrFiltered) >= 0 Then
‘ 配列をカンマで一旦結合
Dim strJoined
strJoined = Join(arrFiltered, vbCrLf)

‘ 必要に応じた文字列レベルの一括置換（VBScriptのReplaceは高速）
strJoined = Replace(strJoined, “ERROR”, “[CRITICAL_ALERT]”)

‘ 再び配列へ
arrProcessed = Split(strJoined, vbCrLf)

‘ 4. 【Join】最終出力用に向けて一気呵成に結合
Dim finalOutput
finalOutput = Join(arrProcessed, vbCrLf)

WScript.Echo “処理成功。抽出行数: ” & (UBound(arrProcessed) + 1) & _
” / 処理時間: ” & FormatNumber(Timer – t0, 4) & ” 秒”

‘ 実運用ではここでファイル出力等を行う
‘ Call WriteTextFile(finalOutput)
Else
WScript.Echo “該当するデータはありませんでした。”
End If

‘ 5. 【メモリの明示的解放】
‘ COMオブジェクトおよび巨大配列変数を初期化し、メモリリークを根絶する
Erase arrLines
Erase arrFiltered
Erase arrProcessed
Set objFSO = Nothing

End Sub

‘ — ユーティリティ: モックデータ生成関数 —
Function GenerateMockLogData(ByVal rowCount)
Dim i, arrTemp()
ReDim arrTemp(rowCount)

For i = 0 to rowCount – 1
If i Mod 7 = 0 Then
arrTemp(i) = “202X-10-01 12:00:0” & (i Mod 10) & “, MODULE_A, ERROR, Invalid state detected.”
Else
arrTemp(i) = “202X-10-01 12:00:0” & (i Mod 10) & “, MODULE_B, INFO, Process normal.”
End If
Next

GenerateMockLogData = Join(arrTemp, vbCrLf)
End Function

‘ エントリポイントの実行
Call ExecuteHighSpeedArrayProcessing()

—

4. チーフアーキテクトが教える、現場の「地雷」と回避策

この手法は圧倒的なパフォーマンスを誇るが、レガシー環境や特殊なデータ構造を扱う際には、いくつかの「罠」が存在する。

トラップ1: `Filter` 関数の部分一致仕様

`Filter(SourceArray, Match)` は、デフォルトで部分一致（Substring Match）として動作する。
もし「`ID`」というキーワードで検索した場合、「`USER_ID`」や「`VALID`」といった意図しない要素まで拾い上げてしまう。

• 解決策: 完全一致が必要な場合は、データ構造側を工夫するか（例: デリミタで囲む）、`Filter` で粗く絞り込んだ後に配列の要素数が少ない状態で最小限のループを回す「ハイブリッド戦略」をとるべきである。

トラップ2: メモリ枯渇（Out of Memory）の恐怖

`Split` や `Join` は、対象の文字列や配列の規模が数メガバイト〜ギガバイト級に達すると、VBScriptのプロセス空間（32bit環境では最大2GB）を圧迫し、即座に「メモリ不足」エラーを引き起こす。

• 解決策: 扱うファイルが極端に巨大な場合（数百MB以上）、一括読み込みではなく、`ADODB.Stream` や `Scripting.FileSystemObject` の `ReadLine` を用いたストリーム処理（チャンク処理）へアーキテクチャを切り替えるべきだ。コードの簡潔さとメモリ安全性のトレードオフを常に見極めよ。

トラップ3: `Erase` によるメモリ解放の徹底

VBScriptのローカル変数や配列はスコープを抜ければ自動解放されるが、グローバルスコープや長期稼働するWSHプロセス内では、巨大な配列がメモリ上に残存し続ける。特に `ReDim` や `Split` で肥大化したバリアント変数は、明示的に `Erase arrName` を実行し、さらに `Set obj = Nothing` を徹底することで、ガベージコレクションの確実な発火を促さなければならない。

—

総括

VBScriptは「古い言語」ではない。正しくその内部構造（COMとバリアント配列の挙動）を理解したエンジニアが扱えば、現代のスクリプト言語に匹敵する特異な処理速度を叩き出す「鋭利な刃物」である。

`Filter`、`Split`、`Join` の三位一体による配列操作は、無駄なループを駆逐し、コード行数を劇的に削減する。レガシーシステムの保守や、限られたリソース環境での自動化タスクにおいて、この知見があなたのコードベースを救う羅針盤となることを確信している。