【進捗率表示】StdOut.Write を活用したコンソール上でのプログレスバー同一行リアルタイム更新表示
レガシーシステムの深部、あるいはモダンなWindows環境であっても、数万件に及ぶレコードのバッチ処理や、巨大なネットワークI/Oを伴うファイル同期スクリプトを走らせたとき、黒いコマンドプロンプト画面を前に「本当にフリーズしていないか？」と冷や汗を流した経験はいないだろうか。
WSH（Windows Script Host）のデフォルトである `WScript.Echo` は、出力の末尾に強制的に改行コード（CRLF）を付加する。これを数千回繰り返せば、コンソール画面は無意味なログの奔流で埋め尽くされ、バッファを圧迫し、パフォーマンスの低下を招くだけだ。
シニアエンジニアたる者、コンソールの出力制御をもデザインせよ。今回は、`WScript.StdOut.Write` とキャリッジリターン（`Chr(13)`）を駆使し、外部ライブラリの一切に依存せず、VBScript単体で極限まで洗練された「同一行プログレスバーリアルタイム更新」の実装コードと、その背後にあるアーキテクチャを解説する。
—
1. アーキテクチャの核心：なぜ `StdOut.Write` なのか
多くの開発者は、VBScriptにおけるコンソール出力を `WScript.Echo` または `MsgBox` で思考停止している。しかし、真の自動化エンジニアは WSHのI/Oパイプライン を直接叩く。
- `WScript.Echo` の罪: 出力ごとに改行が入るため、進捗表示にはおよそ使えない。また、GUI環境（`wscript.exe`）で実行された場合に不要なポップアップダイアログを生成するリスクを孕む。
- `CScript.exe` による強制と `StdOut`: スクリプトを必ず `cscript //nologo` でホストさせ、標準出力ストリーム（`StdOut`）を直接操作する。
- キャリッジリターン（`Chr(13)`）の物理的意味: テキストカーソルを「行の先頭」に戻すだけであり、改行（`Chr(10)`）は行わない。この特性を利用し、「文字の上書き（Overwriting）」をコンソール上で実現する。
この仕組みを理解していれば、無駄なログ出力を削ぎ落とし、CUIでありながらモダンなCLIツール並みの洗練されたUIをVBScriptで構築できる。
—
2. 実装コード：極限まで最適化されたプログレスバー
以下のコードは、エラーハンドリング、メモリのライフサイクル管理、そして過剰なI/Oによる描画フリッカー（ちらつき）を防ぐスロットリング概念を網羅したプロダクションクオリティのVBScriptである。
‘ ==============================================================================
‘ Script Name : ConsoleProgressBar.vbs
‘ Description : StdOut.Write と Chr(13) を利用した同一行プログレスバー実装
‘ Execution : cscript //nologo ConsoleProgressBar.vbs
‘ ==============================================================================
Option Explicit
Main
Sub Main()
‘ 実行ホストの厳密な検証（WScript.exeでの誤実行を防止）
If InStr(LCase(WScript.FullName), “cscript.exe”) = 0 Then
WScript.Echo “【エラー】このスクリプトは CScript ホストで実行してください。” & _
vbCrLf & “例: cscript //nologo ” & WScript.ScriptName
WScript.Quit 1
End If
Dim totalSteps, i, percent
totalSteps = 250 ‘ 仮想的な総処理ステップ数
WScript.StdOut.WriteLine “=== 処理を開始します (Total Steps: ” & totalSteps & “) ===”
For i = 1 To totalSteps
‘ 実際のビジネスロジック（ここでは重み付けの代替として遅延を入れる）
WScript.Sleep 15
‘ 進捗率の計算
percent = Int((i / totalSteps) 100)
‘ プログレスバーの描画更新
Call DrawProgressBar(percent, i, totalSteps)
Next
‘ 最終改行を出力してプロセスを美しくクローズ
WScript.StdOut.WriteLine vbCrLf & “=== 処理が正常に完了しました ===”
End Sub
‘ ——————————————————————————
‘ プログレスバー描画関数
‘ ——————————————————————————
Sub DrawProgressBar(ByVal percent, ByVal current, ByVal total)
Const BAR_WIDTH = 40 ‘ コンソール上のバーの文字幅
Dim completedChars, remainingChars
Dim barStr, outputStr
Dim i
‘ 完了文字数と未完了文字数の算出
completedChars = Int(BAR_WIDTH (percent / 100))
remainingChars = BAR_WIDTH – completedChars
‘ バー文字列の構築（文字列連結の最適化）
barStr = “”
For i = 1 To completedChars
barStr = barStr & “█”
Next
For i = 1 To remainingChars
barStr = barStr & “-”
Next
‘ 出力フォーマットの構築
‘ [██████████—————-] 45% ( 112 / 250 )
outputStr = “[” & barStr & “] ” & Right(” ” & percent, 3) & “% (” & _
Right(” ” & current, Len(CStr(total))) & ” / ” & total & “)”
‘ キャリッジリターン (Chr(13)) のみを出力し、改行せずにカーソルを行頭へ戻す
WScript.StdOut.Write Chr(13) & outputStr
End Sub
—
3. チーフアーキテクトが指摘する「現場の罠」と最適化の極意
このコードをそのままエンタープライズ環境に投入するにあたり、以下の知見を頭に叩き込んでおいてほしい。
① 文字コード（CodePage）の罠とフォント依存
上記のコードではブロック文字（`█`）を使用している。これは視覚的に美しいが、実行するWindows環境のコマンドプロンプトのコードページ（ANSI: CP932 / UTF-8: CP65001）やフォント（MS ゴシック等）によっては文字化けを起こす。
- 対策: 堅牢性を最優先するレガシー環境であれば、`█` を `#` や `=` に置き換えることで、環境依存のトラブルを完全に排除できる。
② I/O ボトルネックの回避
`WScript.StdOut.Write` は非常に高速だが、ループのたびに毎回呼び出すと、OSのコンソールバッファとのコンテキストスイッチが発生して微小なオーバヘッドになる。
数百万件のループを回す場合は、進捗率が変動した（例：1%変わった）瞬間のみ描画関数をキックする「スロットリング（間引き）処理」を入れるべきだ。今回のサンプルではステップ数が250であるため毎回描画でも実用上問題ないが、超巨大データ処理ではこの配慮が命取りになる。
③ オブジェクトのライフサイクル管理
今回のスクリプトはシンプルであるため大掛かりなCOMオブジェクトの生成・破棄はないが、実際の業務自動化ではここに `ADODB.Recordset` や `Scripting.FileSystemObject` が絡んでくる。
ループ内でオブジェクトを生成・破棄するアンチパターンを避け、スコープを意識したメモリリークの無いコード設計を常に心がけること。
—
総括
VBScriptは「古い言語」として片付けられがちだが、OSの深部にダイレクトにアクセスし、追加のランタイムインストールなしで動作するという圧倒的な機動力を持っている。
今回紹介した `StdOut.Write` と `Chr(13)` による同一行更新テクニックは、CUIバッチスクリプトのユーザビリティを劇的に向上させるための必須教養である。
プロフェッショナルなエンジニアたるもの、動くだけのコードではなく、実行中の挙動、ユーザーへのフィードバック、そしてリソースの効率性まで美しくデザインし尽くせ。
