【実務・中級編】【初心者向け】OpenTextFileにおけるTristate（TristateTrue / False / UseDefault）定数の選択ミスによる文字化け防止 – VBScript (Visual Basic Scripting Edition)解析バイブル

【極限の知見】FSOの罠を回避せよ：OpenTextFileにおけるTristate制御による「文字化け」の完全撲滅

業務自動化の現場において、ツールが「動く」ことと「堅牢である」ことの間には、深淵なる溝がある。

多くの初級エンジニアは、FileSystemObject (FSO) を使い、ファイルを開き、書き込み、読み込む。一見、完璧に動作しているように見える。しかし、ある日突然、本番環境のサーバーにデプロイした途端、あるいは特定のクライアント端末で実行した途端、出力されたテキストファイルが「文字化け」という名の崩壊を遂げる。

この事象が発生したとき、彼らは「環境のせいだ」と嘆く。だが、我々プロフェッショナルは知っている。それは環境のせいではない。君たちが、オブジェクトのライフサイクルとエンコーディングの仕様を正しく設計できていないからだ。

本稿では、FSOの`OpenTextFile`メソッドにおける第4引数、`Tristate`定数の選択ミスがなぜ致命的なバグを生むのか、そしてどのように設計すべきかを、アーキテクトの視点から徹底的に解説する。

1. 致命的な設計ミス：`TristateUseDefault`という名の「時限爆弾」

`OpenTextFile`メソッドの第4引数には、ファイルのエンコーディングを指定する`Format`パラメータが存在する。ここで選択可能な値は以下の3つだ。

ここで、多くの未熟なエンジニアが犯す最大の過ちは、`TristateUseDefault` を安易に使用することだ。

なぜ `UseDefault` は「悪」なのか？

`TristateUseDefault` を指定した場合、プログラムは実行されているOSの「システムロケール」に依存する。
例えば、開発者のローカルPC（日本語環境：Shift-JIS/CP932）では正常に動いていても、グローバル展開されたサーバー環境や、設定の異なる別の端末では、全く異なるエンコーディングとして解釈される。

「自分の環境では動いた」という言葉は、設計における敗北宣言である。
エンコーディングを環境に委ねるということは、コードの挙動を制御不能な外部要因に預けるということであり、それは「プログラム」ではなく「運任せのスクリプト」に過ぎない。

2. アーキテクトが推奨する「明示的指定」の原則

堅牢なツールを設計するなら、ルールはただ一つ。「常にエンコーディングを明示せよ」。

もし、扱うデータが純粋な英数字のみであれば `TristateFalse` (ASCII) を、多言語や特殊記号を含むことが確定しているならば `TristateTrue` (Unicode) を、迷わず指定すべきだ。

しかし、ここで一つ、実務上の大きな壁にぶつかる。
「現代の標準である UTF-8 を扱いたい」という要求だ。

実は、FSOの`OpenTextFile`は、UTF-8をネイティブにサポートしていない。 `TristateTrue` が扱うのはあくまで `UTF-16` である。昨今のシステム連携（Web APIやモダンなDB連携）では UTF-8 がデファクトスタンダードだ。FSOだけでこれに対応しようとすると、文字化けの泥沼に引きずり込まれることになる。

3. プロダクション・コード：堅牢なファイル操作の実装例

以下に、実務でそのまま使える、エラーハンドリングと明示的な定数管理を組み込んだコード例を示す。
ここでは、FSOを用いた「標準的なUnicode操作」と、現代的な要件に応えるための「ADODB.Streamを用いたUTF-8操作」の使い分けを提示する。

【パターンA】FSOによるUnicode (UTF-16) 操作

社内ツールや、Windows環境に閉じた古いシステムとの連携に最適だ。

' ==========================================================================
' Module: FileOperations_FSO
' Description: FSOを用いた堅牢なUnicodeファイル操作
' ==========================================================================
Option Explicit

' Tristate定数の明示的定義（VBScriptには組み込まれていない場合があるため）
Const TristateTrue = -1      ' Unicode (UTF-16)
Const TristateFalse = 0      ' ASCII
Const TristateUseDefault = -2 ' System Default (Avoid this!)

' 書き込みテスト
Call WriteUnicodeFile("C:\temp\test_unicode.txt", "こんにちは、世界！ (Unicode)")
' 読み込みテスト
Call ReadUnicodeFile("C:\temp\test_unicode.txt")

Sub WriteUnicodeFile(strPath, strContent)
    Dim objFSO, objFile
    On Error Resume Next ' エラーハンドリングの開始

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 第4引数に TristateTrue を明示。これにより環境依存を排除する
    ' 8 = ForWriting, True = Create if not exists
    Set objFile = objFSO.OpenTextFile(strPath, 8, True, TristateTrue)

    If Err.Number <> 0 Then
        MsgBox "Error writing file: " & Err.Description, vbCritical, "Critical Error"
        Exit Sub
    End If

    objFile.WriteLine strContent
    objFile.Close

    If Err.Number <> 0 Then
        MsgBox "Error during write: " & Err.Description, vbCritical, "Critical Error"
    Else
        WScript.Echo "File written successfully (Unicode)."
    End If

    Set objFile = Nothing
    Set objFSO = Nothing
    On Error GoTo 0 ' エラーハンドリングの解除
End Sub

Sub ReadUnicodeFile(strPath)
    Dim objFSO, objFile, strContent
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If Not objFSO.FileExists(strPath) Then
        WScript.Echo "File not found: " & strPath
        Exit Sub
    End If

    ' 読み込み時も必ず TristateTrue を指定。不一致は文字化けの直行便。
    Set objFile = objFSO.OpenTextFile(strPath, 1, False, TristateTrue)
    strContent = objFile.ReadAll
    objFile.Close

    WScript.Echo "Read Content: " & strContent

    Set objFile = Nothing
    Set objFSO = Nothing
End Sub

【パターンB】ADODB.StreamによるUTF-8操作（真のプロフェッショナル向け）

CSV出力や外部Webサービスとの連携など、UTF-8が必須な場合は、FSOを捨てて `ADODB.Stream` を使え。これが「設計の正解」だ。

' ==========================================================================
' Module: FileOperations_UTF8
' Description: ADODB.Streamを用いたUTF-8ファイル操作
' ==========================================================================
Option Explicit

Call WriteUTF8File("C:\temp\test_utf8.txt", "UTF-8での書き込みテスト。")
Call ReadUTF8File("C:\temp\test_utf8.txt")

Sub WriteUTF8File(strPath, strContent)
    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")

    With objStream
        .Type = 2 ' adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText strContent
        .SaveToFile strPath, 2 ' adSaveCreateOverWrite
        .Close
    End With

    WScript.Echo "File written successfully (UTF-8)."
    Set objStream = Nothing
End Sub

Sub ReadUTF8File(strPath)
    Dim objStream, strContent
    Set objStream = CreateObject("ADODB.Stream")

    With objStream
        .Type = 2 ' adTypeText
        .Charset = "UTF-8"
        .Open
        .LoadFromFile strPath
        strContent = .ReadText
        .Close
    End With

    WScript.Echo "Read Content (UTF-8): " & strContent
    Set objStream = Nothing
End Sub

4. まとめ：設計思想の昇華

文字化けは、単なる表示上の不具合ではない。データの整合性が失われ、後続のプロセス（データベースへのインサートや計算処理）を破壊する「データの汚染」である。

今回の教訓を整理する。

1. `TristateUseDefault` は封印せよ。 環境依存はバグの温床である。
2. FSOを使うなら、`TristateTrue` (Unicode) か `TristateFalse` (ASCII) を明示せよ。
3. UTF-8が必要な現代の業務要件には、FSOではなく `ADODB.Stream` を選択せよ。

ツールを作る際、君が「なぜこの定数を選んだのか」に論理的な回答を持っていれば、そのコードはプロダクション環境において真の価値を発揮する。

「動くコード」を書くのは作業員だ。「壊れない設計」を書くのがエンジニアである。 次のプロジェクトでは、この視点を忘れないことだ。