【テクニカル・上級編】【上級プロフェッショナル向け】FSOとMSXML2.DOMDocumentを連携させた「テキスト設定」と「XML構成」の双方型同期パイプライン – VBScript (Visual Basic Scripting Edition)解析バイブル

双方向同期パイプラインの構築：FSOとMSXML2を統合する「設定管理」の極致

レガシーなエンタープライズ環境において、我々が直面する現実は決して美しいものではない。洗練されたモダンなマイクロサービス構成などではなく、そこにあるのは「人間が読み書きするためのフラットなテキスト設定」と「システムが解釈するための厳格なXML構成」という、性質の異なる二つの情報の断片である。

これら二つのデータソースを、手動の運用や不完全なスクリプトで同期させることは、システム全体の整合性を破壊するリスクを孕んでいる。本稿では、`FileSystemObject` (FSO) によるシーケンシャルなテキスト処理と、`MSXML2.DOMDocument` による階層型データ構造を、`Scripting.Dictionary` を介して高度に同期させる「双方向同期パイプライン」の設計思想と実装について詳述する。

これは単なるファイルの読み書きではない。オブジェクトのライフサイクルを制御し、メモリ効率を極限まで高め、データの「真実の単一ソース（Single Source of Truth）」を確立するためのアーキテクチャ論である。

1. 統合アーキテクチャの設計思想

単一のファイルを書き換えるだけの単純なスクリプトは、エンジニアリングとは呼ばない。我々が構築すべきは、以下の三層構造を持つ同期エンジンである。

1. Ingestion Layer (取り込み層): FSOを用いてフラットなKey-Value形式を解析し、MSXML2を用いてXMLのDOMツリーを走査する。
2. Mediation Layer (調停層): `Scripting.Dictionary` をメモリ上のバッファとして利用。両者の差分（Delta）を抽出し、どちらのソースを優先するか、あるいはマージするかを決定する。
3. Persistence Layer (永続化層): 同期された結果を、再びそれぞれの適切なフォーマット（Text/XML）へと書き戻す。

なぜ `Scripting.Dictionary` を介するのか？

FSOで一行ずつ読み込みながらXMLを操作しようとすれば、計算量は $O(n \times m)$ に膨れ上がり、大規模な設定ファイルではパフォーマンスが致命的に低下する。一旦、メモリ上のハッシュマップ（Dictionary）に全データを展開することで、検索コストを $O(1)$ に抑え、同期処理を高速化させるのが定石である。

2. オブジェクトのライフサイクルとメモリ管理

VBScriptにおいて、最も多くのジュニアエンジニアが犯す過ちは、COMオブジェクトの解放を怠ることだ。特に `MSXML2.DOMDocument` のような重厚なオブジェクトは、ループ内で繰り返し生成・破棄を繰り返すと、メモリリークを引き起こし、長時間稼働するバックグラウンドプロセスにおいてシステム全体の不安定化を招く。

プロフェッショナルは、以下の原則を遵守する。

• 明示的な解放: `Set obj = Nothing` を、オブジェクトの役割が終わった瞬間に必ず実行すること。
• スコープの最小化: オブジェクトの生存期間を、必要最小限の関数内に閉じ込めること。

3. 実装：双方向同期パイプライン

以下に、フラットな `config.txt` (Key=Value形式) と `config.xml` を同期させる実戦的なコードを示す。

'**
' Dual-Type Configuration Synchronization Engine
' Author: Legendary Chief Architect
' Description: Synchronizes Flat Text (Key=Value) and XML Configuration.
'**

Option Explicit

' 定数定義
Const TXT_FILE = "system_config.txt"
Const XML_FILE = "system_config.xml"

' メインエントリポイント
Call Main()

Sub Main()
    Dim dictConfig, fso, xmlDoc
    Dim errStatus
    
    ' オブジェクト生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dictConfig = CreateObject("Scripting.Dictionary")
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    xmlDoc.async = False
    xmlDoc.validateOnParse = False

    On Error Resume Next

    ' 1. Ingestion Phase: Flat Text -> Dictionary
    If fso.FileExists(TXT_FILE) Then
        Call ParseFlatFile(fso, TXT_FILE, dictConfig)
    Else
        Err.Raise 1, "Main", "Flat text file not found: " & TXT_FILE
    End If

    ' 2. Ingestion Phase: XML -> Dictionary
    If xmlDoc.Load(XML_FILE) Then
        Call ParseXMLToDict(xmlDoc, dictConfig)
    Else
        Err.Raise 2, "Main", "XML file load failed: " & xmlDoc.parseError.reason
    End If

    ' --- ここで差分判定やビジネスロジックを挟むことが可能 ---
    ' 現在の実装では、両方のソースから読み取った最新の状態を保持している

    ' 3. Persistence Phase: Write back to both
    Call WriteFlatFile(fso, TXT_FILE, dictConfig)
    Call WriteXMLFile(xmlDoc, XML_FILE, dictConfig)

    ' エラーチェック
    If Err.Number <> 0 Then
        WScript.Echo "CRITICAL ERROR: " & Err.Description
        WScript.Quit 1
    End If

    ' 4. Cleanup Phase: Explicitly release resources
    ' これを怠ることは、プロフェッショナルに対する冒涜である
    Set dictConfig = Nothing
    Set xmlDoc = Nothing
    Set fso = Nothing

    WScript.Echo "Synchronization completed successfully."
    On Error GoTo 0
End Sub

'------------------------------------------------------------------------------
' Flat Text Parsing (FSO)
'------------------------------------------------------------------------------
Sub ParseFlatFile(fso, filePath, dict)
    Dim ts, line, parts, key, val
    Set ts = fso.OpenTextFile(filePath, 1) ' ForReading
    
    Do Until ts.AtEndOfStream
        line = Trim(ts.ReadLine)
        ' コメント行または空行のスキップ
        If line <> "" And Left(line, 1) <> "#" Then
            If InStr(line, "=") > 0 Then
                parts = Split(line, "=", 2)
                key = Trim(parts(0))
                val = Trim(parts(1))
                dict(key) = val
            End If
        End If
    Loop
    ts.Close
    Set ts = Nothing
End Sub

'------------------------------------------------------------------------------
' XML Parsing (MSXML2.DOMDocument)
'------------------------------------------------------------------------------
Sub ParseXMLToDict(xmlDoc, dict)
    Dim nodes, node
    ' <setting key="Name">Value</setting のような構造を想定
    Set nodes = xmlDoc.SelectNodes("//setting")
    
    For Each node In nodes
        Dim k, v
        k = node.getAttribute("key")
        v = node.text
        If k <> "" Then
            dict(k) = v
        End If
    Next
    Set nodes = Nothing
End Sub

'------------------------------------------------------------------------------
' Flat Text Persistence
'------------------------------------------------------------------------------
Sub WriteFlatFile(fso, filePath, dict)
    Dim ts, key
    Set ts = fso.CreateTextFile(filePath, True) ' ForWriting
    
    ts.WriteLine "# Generated by Sync Engine - DO NOT EDIT MANUALLY"
    For Each key In dict.Keys
        ts.WriteLine key & "=" & dict(key)
    Next
    
    ts.Close
    Set ts = Nothing
End Sub

'------------------------------------------------------------------------------
' XML Persistence
'------------------------------------------------------------------------------
Sub WriteXMLFile(xmlDoc, filePath, dict)
    Dim key, rootNode, settingNode
    
    ' XML構造の構築（既存のルートを再利用、または新規作成）
    ' ここでは簡易的に、Dictionaryの内容をXMLノードに反映させる
    Set rootNode = xmlDoc.documentElement
    If rootNode Is Nothing Then
        ' 本来はここでルート要素の作成ロジックが必要だが、
        ' 既存のXMLをLoadしている前提のため、ノードの更新に注力する
        Exit Sub 
    End If

    For Each key In dict.Keys
        ' 既存のノードを探す
        Set settingNode = xmlDoc.SelectSingleNode("//setting[@key='" & key & "']")
        
        If settingNode Is Nothing Then
            ' ノードが存在しない場合は新規作成
            Set settingNode = xmlDoc.createElement("setting")
            settingNode.setAttribute "key", key
            rootNode.appendChild settingNode
        End If
        
        ' 値を更新
        settingNode.text = dict(key)
    Next

    xmlDoc.Save filePath
    Set rootNode = Nothing
    Set settingNode = Nothing
End Sub

4. エンジニアリング・ノート：極限の知見

エンコーディングの罠

FSO (`OpenTextFile`) は、デフォルトでシステム既定のエンコーディング（多くの場合、Shift-JIS/ANSI）を使用する。一方で、MSXML2 は XML宣言に基づき UTF-8 を要求することが多い。この不一致は、マルチバイト文字（日本語など）が含まれた瞬間に、データの破損（文字化け）を引き起こす。
もし、UTF-8 環境での厳格な運用が求められるならば、FSOを捨て、`ADODB.Stream` を用いてバイナリレベルでエンコーディングを制御するコードへと昇華させる必要がある。

冪等性（Idempotency）の確保

このスクリプトは、何度実行しても同じ結果をもたらす「冪等性」を意識して設計されている。`WriteXMLFile` において、ノードの有無を確認してから `appendChild` するか、既存ノードを更新するかを切り分ける処理は、システム構成を破壊しないための防波堤である。

例外処理の哲学

`On Error Resume Next` は、単なるエラー回避の手段ではない。それは「予期せぬ事態を、エンジニアが制御可能な状態に留めるための手段」である。エラーが発生した際、単に無視するのではなく、`Err.Number` を検証し、ログに記録、あるいはクリーンアップ処理へ誘導する。これこそが、レガシーシステムを支える「守護者」としての振る舞いである。

結論

FSOとMSXML2の連携は、一見すると古臭い技術の組み合わせに見えるかもしれない。しかし、それらのオブジェクトの挙動を完全に理解し、メモリと計算量を制御下に置くとき、それは極めて堅牢なインフラストラクチャへと変貌する。

真のアーキテクトは、新しい技術を追うだけでなく、既存の技術の限界を知り、その限界を設計の力で超えていくのである。