iniファイルの全セクション、キー、値を取得するには？ (ID:76439)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

どうせiniファイルなんてただのテキストファイルですから、
FileSystemObjectあたりで一気読みするとか・・・。

なお、下のサンプルでは表示にListView使ってます。
Flex使おうと思ってたらちょうど初心者掲示板にListViewネタがあったもんで…。

Option Explicit

Private Sub Command1_Click()
    Dim fso As New Scripting.FileSystemObject
    Dim tso As Scripting.TextStream
    Dim strBuf As String
    Dim SectionBuf As String
    Dim itmX As ListItem
    Dim strKeyValue() As String
    Set tso = fso.OpenTextFile("c:\windows\win.ini", ForReading, False, TristateFalse)
    Do Until tso.AtEndOfStream
        strBuf = tso.ReadLine
        If strBuf <> "" Then
            If Left(strBuf, 1) = "[" Then
                SectionBuf = Mid(strBuf, 2, Len(strBuf) - 2)
            Else
                strKeyValue = Split(strBuf, "=")
                Set itmX = ListView1.ListItems.Add(, , SectionBuf)
                itmX.SubItems(1) = strKeyValue(0)
                itmX.SubItems(2) = strKeyValue(1)
            End If
        End If
    Loop
    tso.Close
    Set tso = Nothing
    Set fso = Nothing
    
    Set itmX = Nothing
    
End Sub

Private Sub Form_Load()
  
  With ListView1
    .Width = 8000
    .ColumnHeaders.Add , , "セクション", 2000
    .ColumnHeaders.Add , , "キー", 2000
    .ColumnHeaders.Add , , "バリュー", 4000
    .View = lvwReport
  End With
  
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る