【実務・中級編】【文字列結合パフォーマンス最適化】大量ループ処理における「&」演算子のオーバーヘッド回避と配列Joinによる高速化 – VBScript (Visual Basic Scripting Edition)解析バイブル

【文字列結合パフォーマンス最適化】VBScriptの闇を断つ！大量ループにおける「&」演算子の呪縛と、Array + Join による超高速化の極意

開発現場のリーダーである私に、若手エンジニアからよくこんな相談が持ち込まれる。
「業務システムのログから数万行のデータを抽出し、巨大なCSVやテキストレポートを生成するVBScriptを書いたのですが、処理が進むにつれてなぜか劇的に動作が重くなり、最終的に固まります」と。

コードを見せてもらうと、決まって犯人はあの記述だ。
ループの中で繰り返される `strData = strData & “…”` という文字列の連結処理。

VBScriptをレガシーなオモチャだと思って侮ってはいけない。オブジェクトのライフサイクルやメモリの裏側の挙動を理解せずにお気楽なコードを書けば、Windowsのスクリプトエンジンは容赦なくリソースを食いつぶす。

今回は、VBScriptにおける文字列結合のメカニズムの裏側を暴き、プロの現場で通用する「ArrayとJoin関数を用いた超高速文字列構築手法」を叩き込む。

—

1. なぜ「&」演算子による文字列結合は破滅を招くのか？

VBScript（というか背後にあるCOMのBSTR型文字列）のメモリ管理の仕様を正確に理解している人は少ない。

「&」演算子を使って文字列を結合する際、裏側では何が起きているのか？

1. メモリの再確保（Reallocation）:
左辺の文字列と右辺の文字列を格納するために、新しく結合されたサイズ分のメモリ領域がヒープ上に新しく確保される。
2. データのコピー:
古い文字列データが、新しく確保された領域へと丸ごとコピーされる。
3. 古いメモリの解放:
元にあった古いメモリ領域が破棄される。

これをループ内で1万回、10万回と繰り返したらどうなるか？
ループの回数が進むにつれて結合対象の文字列サイズは肥大化し、「メモリの確保・コピー・解放」のコストが二次関数的（あるいはそれに近い形）に増大していく。これが、処理の後半で急激に動作が重くなる（あるいはフリーズ・メモリリークに見舞われる）根本原因である。

いわゆる O(N^2) の悲劇だ。これを防ぐには、メモリの再割り当てを極小化する設計にシフトしなければならない。

—

2. 救世主：ArrayとJoin関数によるO(N)設計

このボトルネックを華麗に回避する唯一無二の解が、「配列（Array）に要素を蓄え、最後にJoin関数で一気に結合する」というアプローチである。

配列にあらかじめ必要な数（または十分な大きさ）の領域を確保するか、動的配列のサイズを適切にコントロールしながら要素を格納していく。文字列のメモリ実体は最後の `Join` が実行されるまで結合されないため、無駄なコピーが発生せず、処理速度は劇的に改善される（O(N) の線形時間へ昇華する）。

パフォーマンスの比較イメージ

• `&` 演算子ループ: 10万行の結合に 数分〜数十分 （最悪の場合 Out of Memory）
• `Array + Join`: 10万行の結合が わずか数秒

実務における巨大CSV生成やSQL一括生成において、この差はプロダクトの生死を分ける。

—

3. 【プロダクションコード】堅牢かつ最速の文字列構築モジュール

それでは、現場でそのままコピー＆ペーストして使える、実用的なVBScriptのコードを提示しよう。
エラーハンドリング、巨大データのバッファリング、そして保守性を考慮したプロフェッショナル・デザインだ。

Option Explicit

‘ ==============================================================================
‘ スクリプト名: FastTextBuilder.vbs
‘ 概要 : 大量ループにおけるArray+Joinを用いた超高速文字列構築サンプル
‘ 著者 : チーフアーキテクト
‘ ==============================================================================

Main

Sub Main()
Dim objTimer
Set objTimer = New clsTimer
objTimer.Start

WScript.Echo “=== 処理を開始します ===”

‘ 1. テストデータの生成（例として50,000行のレコードを作成）
Const TOTAL_ROWS = 50000
Dim i

‘ 動的配列の宣言
Dim arrBuffer()
ReDim arrBuffer(TOTAL_ROWS – 1) ‘ あらかじめサイズを確定させてメモリを固定確保（高速化の極み）

‘ ヘッダー行の作成
arrBuffer(0) = “ID,Category,Name,Timestamp,Status”

‘ 2. ループ内では「&」を使わず、配列のインデックスに直接代入する
For i = 1 To TOTAL_ROWS – 1
‘ 実際の実務ではDBやファイルからの読み込み、APIレスポンス等が入る
arrBuffer(i) = i & “,Category_” & (i Mod 5) & “,Item_Name_” & i & “,” & Now() & “,Active”
Next

‘ 3. Join関数で一気に文字列化（ここで初めてメモリ上の結合が最適に処理される）
Dim strFinalOutput
strFinalOutput = Join(arrBuffer, vbCrLf)

‘ 4. ファイルへの書き出し（UTF-8 または Shift-JIS）
Call WriteTextFile(“C:\Temp\output_result.csv”, strFinalOutput)

objTimer.Stop
WScript.Echo “=== 処理完了 ===”
WScript.Echo “経過時間: ” & objTimer.ElapsedSeconds & ” 秒”

Set objTimer = Nothing
End Sub

‘ ==============================================================================
‘ 汎用関数: 文字列を指定パスへファイル出力する（ADODB.Stream使用）
‘ ==============================================================================
Sub WriteTextFile(ByVal strFilePath, ByVal strContent)
On Error Resume Next

Dim objStream
Set objStream = CreateObject(“ADODB.Stream”)

With objStream
.Type = 2 ‘ adTypeText
.Charset = “UTF-8” ‘ 現代の標準であるUTF-8を指定
.Open
.WriteText strContent
.SaveToFile strFilePath, 2 ‘ adSaveCreateOverWrite (上書き保存)
.Close
End Sub

If Err.Number <> 0 Then
WScript.Echo “[ERROR] ファイル書き込み失敗: ” & Err.Description
Err.Clear
End If

Set objStream = Nothing
On Error GoTo 0
End Sub

‘ ==============================================================================
‘ 計測用クラス（パフォーマンス検証用）
‘ ==============================================================================
Class clsTimer
Private m_StartTime

Public Sub Start()
m_StartTime = Timer
End Sub

Public Sub [Stop]()
‘ 処理なし（Timerプロパティで差分計算）
End Sub

Public Property Get ElapsedSeconds()
ElapsedSeconds = Timer – m_StartTime
End Property
End Class

—

4. プロジェクトリーダーから現場への重要アドバイス

上記のコードを見て、「なぜ `ReDim Preserve` を使わずに、最初から `ReDim arrBuffer(TOTAL_ROWS – 1)` でサイズを決めているのか？」と気づいた読者は非常にセンスが良い。

① 配列サイズの事前確定（Pre-allocation）の思想

もしデータ総数が事前に分からない動的なループ（例：ファイルが終わるまで `Do Until EOF` で回すケース）の場合、`ReDim Preserve arrBuffer(UBound(arrBuffer) + 1)` を毎ループ実行したくなる衝動に駆られる。
しかし、`ReDim Preserve` も裏側でメモリの再確保と全データコピーを行っているため、「&」演算子と同じ悪夢を引き起こす。

• 対策:

1. 事前にレコード数が予測できるなら、最初に `ReDim` で最大サイズを確保する（余った分は後で `Filter` やスライスするか、有効な要素数までを別の小さめの変数で `Join` する工夫をする）。
2. あるいは、一定のチャンクサイズ（例：10,000件ごと）で配列を拡張するアルゴリズムを実装する。

② ファイル出力時の文字コード選定

VBScriptでテキストを出力する際、古臭い `Scripting.FileSystemObject` の `CreateTextFile` を使うと、強制的にANSI（Shift-JIS）になり、昨今のWeb API連携や多言語データ混入時に文字化けのトラブルを起こす。
上記のサンプルコードの通り、`ADODB.Stream` オブジェクトを必ず経由させ、Charsetを “UTF-8” に明示するのが、モダンなWindows自動化における鉄則である。

—

総括

VBScriptはレガシーな言語と揶揄されるが、その背後にあるWindowsのCOMアーキテクチャやメモリ管理の理屈を理解して書かれたコードは、今なお現役の現場で圧倒的なパフォーマンスを発揮する。

「動けばいいや」という安易な文字列結合(`&`の乱用)を今日で卒業し、メモリ効率を極限まで高めた `Array + Join` のデザインパターンをあなたの武器に組み込んでほしい。
保守性が高く、かつ秒速で仕事を終わらせる自動化スクリプトこそが、プロのエンジニアの成果物なのだから。