VBScriptの深淵：ADODB.Streamで制圧する文字コードの混沌
レガシーシステムの保守、あるいは限定的な環境での自動化タスクにおいて、VBScriptは依然として「最強の刃」だ。しかし、多くのエンジニアが `Scripting.FileSystemObject` (FSO) の門前で立ち尽くす。FSOは、現代の標準であるUTF-8（特にBOMなし）を正しくハンドリングできない無能なインターフェースに成り下がっているからだ。
文字化けは「環境のせい」ではない。実装者の「無知」によるものだ。今日は、ADODB.Streamを使いこなし、VBScriptで文字コードの壁を完全に破壊するための極限のアーキテクチャを伝授する。
—
なぜ FSO を捨て、ADODB.Stream を選ぶのか
FSOの `OpenTextFile` は、システムのロケール依存である。これを現代のシステム間連携に持ち込むのは自殺行為に近い。一方、`ADODB.Stream` は本来データベース用のバイナリ操作オブジェクトだが、文字コード変換エンジンとして極めて優秀だ。
このオブジェクトは、「メモリ上にバッファを確保し、明示的なエンコーディング変換を経て入出力を行う」という、極めて堅牢なライフサイクルを持つ。
実装の極意：ADODB.Stream ラッパーの実装
単なるコードの羅列は無意味だ。重要なのは「リソースの解放」と「状態の管理」である。VBScriptにおいてオブジェクトを放置することは、COMポインタのリークを招き、長時間の自動化タスクをメモリ不足で崩壊させる。
以下のクラスライブラリ的なパターンをテンプレートとして使用せよ。
‘ — ADODB.Streamを用いた堅牢なファイル操作クラス —
Class TextFileManager
‘ UTF-8での読み込み
Public Function ReadTextUTF8(filePath)
Dim adoStream
Set adoStream = CreateObject(“ADODB.Stream”)
With adoStream
.Type = 2 ‘ adTypeText
.Charset = “utf-8”
.Open
.LoadFromFile filePath
ReadTextUTF8 = .ReadText
.Close
End With
Set adoStream = Nothing ‘ 即時解放。メモリリークを許すな。
End Function
‘ Shift-JISへの変換保存
Public Sub SaveAsShiftJIS(textData, outputPath)
Dim adoStream
Set adoStream = CreateObject(“ADODB.Stream”)
With adoStream
.Type = 2 ‘ adTypeText
.Charset = “shift_jis”
.Open
.WriteText textData
.SaveToFile outputPath, 2 ‘ adSaveCreateOverWrite
.Close
End With
Set adoStream = Nothing
End Sub
End Class
‘ — 実行例 —
Dim manager: Set manager = New TextFileManager
Dim content: content = manager.ReadTextUTF8(“C:\data\input.utf8”)
manager.SaveAsShiftJIS content, “C:\data\output.sjis”
Set manager = Nothing
—
シニアエンジニアが押さえるべき「4つの禁忌」
1. BOMの呪縛を解け: `ADODB.Stream` はBOMなしUTF-8を読み込む際、デフォルトでは挙動が不安定になることがある。必要に応じてバイナリモードで読み込み、先頭3バイトを判定してスキップする前処理を挟むのが、真のプロフェッショナルの仕事だ。
2. `Set object = Nothing` の徹底: VBScriptのGC（ガベージコレクション）を信じるな。COMオブジェクトの参照カウントは、明示的にゼロに近づけるのが鉄則である。特にループ内でファイル操作を行う場合、この一行を忘れるだけでメモリ消費量が右肩上がりになる。
3. ストリームタイプ（Type）の厳格な管理: `adTypeText` (2) と `adTypeBinary` (1) を混同してはならない。文字コード変換時は必ず `adTypeText` であることを確認し、`.Charset` プロパティを明示的に指定すること。
4. 例外ハンドリングの欠如: VBScriptには `Try-Catch` は存在しない。`On Error Resume Next` を使用せざるを得ないが、エラーチェックを怠れば、ファイルロックや権限エラーでシステムは即座に沈黙する。必ず `Err.Number` を監視し、適切なログを残せ。
—
最後に：自動化の真髄
VBScriptは「古い言語」ではない。「枯れた言語」だ。OSのカーネルに近い層で動作し、追加のランタイムインストールを必要とせず、数行のコードでシステムを制御できる。
ADODB.Streamによる文字コードの掌握は、自動化の第一歩に過ぎない。文字化けという「ノイズ」を排除し、データの本質だけを抽出し続けること。それこそが、我々エンジニアが守るべきデータ整合性の美学である。
明日からの現場で、このコードパターンが諸君の武器となることを願っている。コードは裏切らない。ただ、書き手の手法を反映するだけだ。
