こんにちは！VBScriptの世界へようこそ。
業務自動化の現場で、Excelマクロの限界を超えた一括処理や、Windowsのタスク自動化でいまだに現役バリバリで活躍するのがこのVBScript（WSH）です。
今回は、VBScriptでの開発において誰もが一度はハマる「文字列結合のパフォーマンス問題」について、プロのアーキテクト視点から徹底的に解説します。
「大量のデータを処理していたら、なぜかスクリプトの実行がどんどん遅くなる…」
そんな悩みを抱えているなら、今回の知見は間違いなくあなたの武器になります。ここをクリアすれば、VBScriptのメモリ管理の裏側まで見通せるエンジニアに一歩近づけますよ。さあ、一緒に本質を学んでいきましょう！
—
1. なぜ「`&`」演算子でのループ結合は遅いのか？
VBScriptで複数の文字列をくっつけるとき、一番直感的に思い浮かぶのは結合演算子である `&` ですよね。例えば、次のようなコードを書いたことはありませんか？
‘ 【アンチパターン】& 演算子によるループ内結合
Dim i, result
result = “”
For i = 1 to 10000
result = result & “行データ: ” & i & vbCrLf
Next
一見、何の問題もなさそうなこのコード。しかし、処理する行数が1万行、10万行と増えるにつれて、爆発的に実行速度が低下していきます。
メモリの「再割り当て」という隠れたコスト
VBScriptの背後にあるCOM（Component Object Model）の世界では、文字列は「不変（イミュータブル）」に近い扱いに近いメモリブロックとして管理されています。
`result = result & “追加文字列”` というコードが実行されるたびに、VBScriptの裏側では以下のような重い処理が行われています。
1. 現在の `result` の長さを計算する
2. 「古い `result` の長さ」＋「追加する文字列の長さ」を合わせた、新しい巨大なメモリ領域をOSに要求し、確保する
3. 古い `result` の中身を、新しく確保したメモリ領域に「全コピー」する
4. 最後尾に「追加する文字列」を書き込む
5. 古いメモリ領域を解放する
これをループの回数分（例えば1万回）繰り返します。1万回目のループでは、数メガバイトのデータを毎回最初からコピーし直すという、極めて無駄な高負荷処理が発生しているのです。これが、処理が「徐々に遅くなる」のではなく「急激に重くなる」真の原因です。
—
2. 救世主！「Array + Join関数」による高速化のメカニズム
このメモリの無駄なコピー地獄を回避する唯一にして最高の王道アプローチが、「配列（Array）に断片を溜め込み、最後に `Join` 関数で一気に結合する」という手法です。
図解的にイメージしてみましょう。
[ & 演算子方式（毎回コピー） ]
1回目: [A]
2回目: [A][B] （Aをコピーし直す）
3回目: [A][B][C] （ABをコピーし直す）… 負荷爆発！
[ Array + Join方式（一発結合） ]
1回目: 配列の箱1に [A] を放り込む
2回目: 配列の箱2に [B] を放り込む
3回目: 配列の箱3に [C] を放り込む
最後: Join() で一網打尽にメモリを結合！（コピーは最後の一回だけ）
VBScriptの配列（特に動的配列）は、要素の追加時にメモリを効率よく確保するため、ループ内で `&` を使うのとは比較にならないほどの圧倒的なパフォーマンスを発揮します。
—
3. 実践！超高速文字列構築テンプレートコード
それでは、現場でそのまま使える、ArrayとJoinを組み合わせた実用的なコードを見てみましょう。今回は、大量のログデータやCSVテキストを生成するシーンを想定しています。
‘ =================================================================0
‘ スクリプト名: FastStringJoinSample.vbs
‘ 概要: 大量ループにおけるArray+Joinを活用した高速文字列構築サンプル
‘ =================================================================0
Option Explicit
Dim objFSO, objFile
Dim startTime, endTime
Dim i, maxCount
Dim arrLines() ‘ 動舞配列の宣言
maxCount = 50000 ‘ テスト用に5万行を生成
WScript.Echo “処理を開始します。対象行数: ” & maxCount & “行”
‘ 処理開始時間の計測
WScript.Timer ‘ ウォームアップ（VBScriptのTimerの精度確保のため）
startTime = Timer
‘ 1. あらかじめ必要なサイズの配列を確保（パフォーマンス向上の一工夫）
ReDim arrLines(maxCount)
‘ 2. ループ内では配列に代入するだけ（メモリ再割り当てなし！）
For i = 0 to maxCount – 1
‘ 配列のインデックスに直接文字列を格納
arrLines(i) = “LogData_” & FormatNumber(i, 0, , , False) & “: 正常終了ステータスを受信しました。”
Next
‘ 3. Join関数を使って、一瞬で一つの巨大な文字列に結合
Dim finalString
finalString = Join(arrLines, vbCrLf)
‘ 処理終了時間の計測
endTime = Timer
‘ 結果の表示
WScript.Echo “処理が完了しました。”
WScript.Echo “所要時間: ” & FormatNumber(endTime – startTime, 3) & ” 秒”
‘ おまけ: 生成したテキストをファイルに出力する場合の例
‘ Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ Set objFile = objFSO.CreateTextFile(“C:\Temp\output.txt”, True)
‘ objFile.Write finalString
‘ objFile.Close
‘ Set objFile = Nothing
‘ Set objFSO = Nothing
Set arrLines = Nothing
コードのポイント解説
- `ReDim arrLines(maxCount)`: ループの前に配列の大きさをあらかじめ決めておくことで、VBScriptがメモリを効率よく確保できます。
- `arrLines(i) = …`: `&` で繋ぐのではなく、配列の特定番地に「代入」するだけなので、CPUに余計な負担をかけません。
- `Join(arrLines, vbCrLf)`: 最後に結合文字（ここでは改行コード `vbCrLf`）を指定して一気に結合します。C#の `StringBuilder` に匹敵するスマートさとスピードをVBScriptで実現できます。
—
4. 陥りやすいエラーと注意点
ここで、現場でやりがちな「惜しいミス」についても触れておきましょう。
注意点1: 動的配列のサイズ変更（Redim Preserve）をループ内で使わない
「行数が事前に分からないから、ループのたびに `ReDim Preserve arrLines(i)` で配列を大きくしよう！」――これ、`&` 演算子と同じ過ち（毎回のメモリ再割り当て）を配列でやっているだけなので、逆に遅くなります。
行数が未知の場合は、後述する `Scripting.Dictionary` を使うか、最初に余裕を持った大きめのサイズで `ReDim` し、最後に実際の件数で切り詰める（あるいは結合時に有効範囲だけを渡す）工夫が必要です。
注意点2: 変数の型とメモリ
VBScriptの変数は基本的に `Variant` 型という何でも入る万能コンテナです。巨大な文字列（数10MB〜数100MBクラス）を扱う場合、Windowsのアーキテクチャ（32bitプロセスとして動作するWSH）のメモリ制限（約2GB）にぶつかることがあります。
もし数万行を超える超巨大データを扱う場合は、変数にすべて保持するのではなく、テキストストリーム（`ADODB.Stream` や `TextStream`）を使って随時ファイルに書き出す設計も検討してください。
—
まとめ
今回は、VBScriptにおける文字列結合のパフォーマンス最適化について深く掘り下げました。
- 「`&` 演算子」によるループ内結合は、メモリの再割り当てと全コピーが発生するため、大容量データでは劇的な性能劣化を引き起こす。
- 「Array ＋ `Join` 関数」の組み合わせを使えば、メモリ負荷を最小限に抑え、爆速でテキストを構築できる。
「動けばいいや」から一歩進んで、こうした裏側の仕組み（メモリのライフサイクル）まで意識できるようになると、あなたの書くコードの質は見違えるほど洗練されます。
ここをクリアすれば、VBScriptの基礎とパフォーマンスチューニングの勘所はもうバッチリです！日々の業務自動化を、ぜひ快適でスマートなものにしてくださいね。それでは、次の現場でお会いしましょう！
