【INI設定ファイル操作】API非依存で動作する自作のINIファイル読み込み・書き込み・セクション解析モジュール
レガシーシステムの呪縛、あるいは閉じたイントラネット環境において、`WScript.Shell`の`.RegRead`や`.RegWrite`に依存した設定管理は、レジストリの肥大化と権限管理の観点から悪手でしかない。かといって、`GetPrivateProfileString`や`WritePrivateProfileString`といったWindows API（Kernel32.dll）を`DllCall`の如くVBScriptから叩くアプローチは、32bit/64bitのアーキテクチャ差異、文字コード（ANSI/Unicode）の壁、そして何より環境依存のエラーハンドリングの複雑化を招く。
真のエンジニアリングとは、「外部依存を極限まで排除し、純粋なVBScriptのランタイム仕様のみで、OSの差異を超越した堅牢性を担保すること」にある。
今回は、APIの一切を排除し、標準のテキストI/Oと厳密な文字列操作のみで構成された、生産現場でそのまま使える完全自作のINIファイル操作クラス（モジュール）の全貌を公開する。
—
1. アーキテクチャ設計の思想
本モジュールを構築するにあたり、以下の3つの制約と要件をクリアしている。
1. API完全非依存: `Kernel32.dll`などの外部DLL呼び出しを行わない。これにより、セキュリティポリシーが厳格な端末や、仮想化されたサンドボックス環境でも動作を保証する。
2. メモリ最適化とリソース管理: VBScriptの暗黙的なガベージコレクションに頼らず、大型のファイル読み込み時におけるメモリリークを防ぐため、オブジェクトの明示的な破棄と文字列バッファの効率的な運用を行う。
3. 改行コード・BOMへの耐性: 現場のテキストエディタで編集されたINIファイルが、CRLFかLFか、あるいはUTF-8（BOM付き/なし）やShift-JISであっても、FileSystemObject (FSO) のストリーム制御を適切に組み合わせることで、文字化けやパースエラーを未然に防ぐ。
—
2. 実装コード：`IniManager.vbs`
以下のコードは、インスタンスベースでセクション、キー、バリューを安全に操作するためのクラスモジュールである。
‘ ==============================================================================
‘ クラス名: IniManager
‘ 概要: Windows APIに依存せず、純粋なVBScriptのテキスト操作で
‘ INIファイルの読み込み・書き込み・セクション解析を行う汎用クラス
‘ ==============================================================================
Option Explicit
Class IniManager
Private m_FSO
Private m_FilePath
Private m_Dictionary
‘ コンストラクタ
Private Sub Class_Initialize()
Set m_FSO = CreateObject(“Scripting.FileSystemObject”)
‘ Dictionaryオブジェクトを使用し、大文字小文字を区別しないキー管理を行う
Set m_Dictionary = CreateObject(“Scripting.Dictionary”)
m_Dictionary.CompareMode = 1 ‘ TextCompare (大文字小文字無視)
m_FilePath = “”
End Sub
‘ デストラクタ（明示的なメモリ解放）
Private Sub Class_Terminate()
Call ClearMemory()
Set m_Dictionary = Nothing
Set m_FSO = Nothing
End Sub
‘ 内部メモリの解放と初期化
Public Sub ClearMemory()
If Not m_Dictionary Is Nothing Then
m_Dictionary.RemoveAll
End If
m_FilePath = “”
End Sub
‘ ターゲットとするINIファイルのパスを設定し、メモリへロードする
Public Property Let FilePath(ByVal path)
m_FilePath = m_FSO.GetAbsolutePathName(path)
Call Load()
End Property
Public Property Get FilePath()
FilePath = m_FilePath
End Property
‘ ==============================================================================
‘ メソッド: Load
‘ 概要: INIファイルを読み込み、”Section.Key”をキーとしたDictionaryに展開する
‘ ==============================================================================
Public Sub Load()
Call m_Dictionary.RemoveAll()
If Not m_FSO.FileExists(m_FilePath) Then Exit Sub
‘ TextStreamによる読み込み (ForReading = 1, TristateUseDefault = -2)
‘ ※Shift-JIS等のレガシー環境を考慮し、システムデフォルトエンコーディングを使用
Dim objFile, strLine, currentSection
Set objFile = m_FSO.OpenTextFile(m_FilePath, 1, False, -2)
currentSection = “”
Do While Not objFile.AtEndOfStream
strLine = Trim(objFile.ReadLine)
‘ コメント行（’;’ または ‘#’）および空行はスキップ
If strLine <> “” And Left(strLine, 1) <> “;” And Left(strLine, 1) <> “#” Then
‘ セクション判定 ([SectionName])
If Left(strLine, 1) = “[” And Right(strLine, 1) = “]” Then
currentSection = Trim(Mid(strLine, 2, Len(strLine) – 2))
‘ キーと値の判定 (Key = Value)
Else
Dim intPos
intPos = InStr(strLine, “=”)
If intPos > 0 Then
Dim strKey, strVal
strKey = Trim(Left(strLine, intPos – 1))
strVal = Trim(Mid(strLine, intPos + 1))
‘ インラインコメントの除去 (例: Value ; comment)
Dim intCommentPos
intCommentPos = InStr(strVal, “;”)
If intCommentPos > 0 Then
strVal = Trim(Left(strVal, intCommentPos – 1))
End If
If currentSection <> “” Then
Dim dictKey
dictKey = currentSection & “.” & strKey
m_Dictionary(dictKey) = strVal
End If
End If
End If
End If
Loop
objFile.Close
Set objFile = Nothing
End Sub
‘ ==============================================================================
‘ メソッド: GetValue
‘ 概要: 指定したセクションとキーの値を取得する。存在しない場合はデフォルト値を返す
‘ ==============================================================================
Public Function GetValue(ByVal section, ByVal key, ByVal defaultValue)
Dim dictKey
dictKey = section & “.” & key
If m_Dictionary.Exists(dictKey) Then
GetValue = m_Dictionary(dictKey)
Else
GetValue = defaultValue
End If
End Function
‘ ==============================================================================
‘ メソッド: SetValue
‘ 概要: メモリ上のDictionaryの値を更新（存在しない場合は新規追加）する
‘ ==============================================================================
Public Sub SetValue(ByVal section, ByVal key, ByVal value)
Dim dictKey
dictKey = section & “.” & key
m_Dictionary(dictKey) = value
End Sub
‘ ==============================================================================
‘ メソッド: Save
‘ 概要: メモリ上のデータを元にINIファイルを再構築して書き出す
‘ (既存のコメントやフォーマットを極力保持せず、正規化された状態で出力)
‘ ==============================================================================
Public Sub Save()
If m_FilePath = “” Then Err.Raise 9999, “IniManager”, “FilePathが設定されていません。”
Dim objFile
‘ ForWriting = 2, Create = True, TristateUseDefault = -2
Set objFile = m_FSO.CreateTextFile(m_FilePath, True, False)
Dim keys, key, sections, sec
Set sections = CreateObject(“Scripting.Dictionary”)
sections.CompareMode = 1
‘ 1. セクションの一覧を抽出
For Each key In m_Dictionary.Keys
Dim arr
arr = Split(key, “.”)
sec = arr(0)
If Not sections.Exists(sec) Then
sections.Add sec, True
End If
Next
‘ 2. セクションごとにファイルへ書き出し
For Each sec In sections.Keys
objFile.WriteLine “[” & sec & “]”
For Each key In m_Dictionary.Keys
If Left(key, Len(sec) + 1) = sec & “.” Then
Dim actualKey
actualKey = Mid(key, Len(sec) + 2)
objFile.WriteLine actualKey & “=” & m_Dictionary(key)
End If
Next
objFile.WriteLine “” ‘ セクション間の空行
Next
objFile.Close
Set objFile = Nothing
Set sections = Nothing
End Sub
End Class
—
3. 実践：スクリプトからの呼び出しと運用パターン
上記のクラスを別ファイル（例: `IniManager.vbs`）として保存し、メインスクリプトから`ExecuteGlobal`またはインクルードパターン（※VBScript標準には`#include`がないため、FSOでテキストを読み込んで`Execute`する手法）で呼び出す。
以下は、実際に運用スクリプトで使用する際のコードパターンである。
‘ メイン処理のサンプル
Option Explicit
‘ — インクルード処理の実装 —
Function LoadScript(filePatht)
Dim fso, stream
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set stream = fso.OpenTextFile(filePatht, 1)
LoadScript = stream.ReadAll
stream.Close
Set stream = Nothing
Set fso = Nothing
End Function
‘ IniManagerクラスの読み込み
Execute LoadScript(“C:\Scripts\IniManager.vbs”)
‘ — 実装テスト —
Dim ini
Set ini = New IniManager
‘ ファイルパスを指定（存在しない場合は新規作成される）
ini.FilePath = “C:\Scripts\config.ini”
‘ 値の取得（存在しない場合のデフォルト値を指定可能）
Dim dbServer, timeout
dbServer = ini.GetValue(“Database”, “Server”, “127.0.0.1”)
timeout = ini.GetValue(“Database”, “Timeout”, “30”)
WScript.Echo “Server: ” & dbServer
WScript.Echo “Timeout: ” & timeout
‘ 値の更新（メモリ上）
ini.SetValue “Database”, “Timeout”, “60”
ini.SetValue “AppStatus”, “LastRun”, Now()
‘ ファイルへ書き込み永続化
ini.Save()
‘ 明示的なオブジェクト解放（メモリ最適化の極意）
ini.ClearMemory()
Set ini = Nothing
WScript.Echo “INIファイルの更新が完了しました。”
—
4. チーフアーキテクトが指摘する「現場の罠」とチューニング
この実装を導入するにあたり、現場のシステム管理者が陥りがちな罠と、それを回避するための知見を共有する。
① 巨大なINIファイルにおけるパフォーマンスの罠
数千行に及ぶINIファイルを毎回フルパースすることは、VBScriptのインタプリタ特性上、パフォーマンスの低下を招く。本モジュールでは内部に`Scripting.Dictionary`を保持しているため、「一度ロードした後はメモリ上で完結させ、プロセス終了間際、あるいは設定変更時のみ`Save()`を呼ぶ」ライフサイクルを徹底すること。やたらにインスタンスを生成・破棄しないこと。
② 文字コードとBOM（Byte Order Mark）の挙動
FSOの`OpenTextFile`メソッドの第4引数（`Tristate`）には細心の注意が必要だ。
- `-2` (`TristateUseDefault`): システムのデフォルト（多くはANSI/Shift-JIS）
- `-1` (`TristateTrue`): Unicode (UTF-16)
- `0` (`TristateFalse`): ASCII
昨今のモダンなテキストエディタ（VS Codeなど）でINIファイルを編集すると、勝手にUTF-8（BOM付き/なし）で保存されるケースがある。FSOは標準ではUTF-8をネイティブサポートしないため、もし現場の運用でUTF-8が強制される環境であれば、ADODB.Streamオブジェクトを用いたラッパーに換装する必要がある。ただし、閉じた社内システムのバッチ処理やレガシー環境であれば、Shift-JIS（`-2`）で統一するルールを徹底する方が、コードの肥大化を防ぎ、保守性を高めるという観点で正解となる。
③ インラインコメントと前後の空白
本実装のパーサーは、`Trim()`関数を徹底的に適用し、`Key = Value` のイコールの前後の空白を自動的にトリミングする仕様にしている。また、値の後方に `;` によるインラインコメントがある場合も、自動的にカットして純粋なバリューのみを抽出する設計だ。これにより、オペレーターが設定ファイルを編集する際に混入させがちな「うっかりスペース」による予期せぬバグを完全にシャットアウトする。
—
結言
APIに頼らない。レジストリを汚さない。そして、環境依存のエラーに怯えない。
VBScriptの本質は、その素朴なランタイムのなかに、どれだけ堅牢なロジックを構築できるかというエンジニアの職人技にある。このモジュールをあなたの自動化スクリプト群に組み込むことで、環境構築のハードルは劇的に下がり、システム運用の信頼性は極限まで高まるはずだ。
