このクラスモジュールは、

INIファイルを解析してDictionaryに格納するLoadFileメソッド、

指定されたセクションとキーに対応する値を返すGetValueメソッド、

指定されたセクションとキーに対応する値を設定するSetValueメソッドを提供します。

Option Explicit

Private data As Object

Private Sub Class_Initialize() Set data = CreateObject("Scripting.Dictionary") End Sub

Public Function LoadFile(ByVal filePath As String) As Boolean On Error GoTo ErrHandler

Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(filePath) Then LoadFile = False Exit Function End If

Dim fileStream As Object Set fileStream = fso.OpenTextFile(filePath)

Dim currentSection As String currentSection = ""

Dim line As String Do Until fileStream.AtEndOfStream line = fileStream.ReadLine line = Trim(line)

If Len(line) > 0 Then Dim firstChar As String firstChar = Left(line, 1)

If firstChar = "[" And Right(line, 1) = "]" Then currentSection = Mid(line, 2, Len(line) - 2) Else Dim keyVal As Variant keyVal = Split(line, "=", 2)

If UBound(keyVal) = 1 Then Dim key As String key = Trim(keyVal(0))

Dim value As String value = Trim(keyVal(1))

Dim sectionData As Object If data.Exists(currentSection) Then Set sectionData = data(currentSection) Else Set sectionData = CreateObject("Scripting.Dictionary") data.Add currentSection, sectionData End If

sectionData.Add key, value End If End If End If Loop

LoadFile = True

ExitFunction: On Error Resume Next fileStream.Close Set fileStream = Nothing Set fso = Nothing Exit Function

ErrHandler: LoadFile = False GoTo ExitFunction End Function

Public Function GetValue(ByVal section As String, ByVal key As String, Optional ByVal defaultValue As Variant) As Variant If Not data.Exists(section) Then GetValue = defaultValue Exit Function End If

Dim sectionData As Object Set sectionData = data(section)

If Not sectionData.Exists(key) Then GetValue = defaultValue Exit Function End If

GetValue = sectionData(key) End Function

Public Function SetValue(ByVal section As String, ByVal key As String, ByVal value As Variant) As Boolean Dim sectionData As Object If data.Exists(section) Then Set sectionData = data(section) Else Set sectionData = CreateObject("Scripting.Dictionary") data.Add section, sectionData End If

sectionData(key) = value

SetValue = True End Function