reading all headers from ini files

[mgoarrow]

I'm familiar and have used the GetProfileString and WriteProfileString API calls to read and write from .ini files. Is there a way to retrieve the names of all headers in an .ini file and the name and values of the existing keys under each header?

Thanks for your help!

[TheBao]

Ini file is just a text file. You know all the header are inside []. Just read the file as you normally read the text file and search for all [].

Regards.

[mgoarrow]

True, but I'm looking to use the API to gather the header information - not the standard Open File for input stuff.....My API guide didn't have the API call I was looking for but I've since found it - it's the GetPrivateProfileSectionNames function. The API is much faster than the open file routine - thanks for your help!

[dubae524]

Yes. But which header information. The headers themselves? The keys, or the values? I have written a lot of non-API code on INI files. I'm right now writing instructions for using the modules, but I can post different functions if you need any help.

[mgoarrow]

Here' s what I ended up doing (I used a TreeView control to display the info):

Option Explicit

Private Declare Function GetPrivateProfileSectionNames Lib "kernel32" _
    Alias "GetPrivateProfileSectionNamesA" (ByVal lpReturnBuffer As String, _
    ByVal nSize As Long, ByVal lpName As String) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias _
    "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString _
    As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    
    
Public Sub FillTree(strPath As String, objForm As Object)

    Dim strBuffer As String
    Dim lngRet As Long
    Dim arrHeaders() As String
    Dim arrValues() As String
    Dim I, J As Integer
    Dim nodParent As Node
    
    strBuffer = Space(1000)
    
    lngRet = GetPrivateProfileSectionNames(strBuffer, Len(strBuffer), strPath)
    If lngRet Then
        arrHeaders = Split(strBuffer, vbNullChar)
        For I = 0 To UBound(arrHeaders)
            Set nodParent = objForm.TreeView1.Nodes.Add(, , arrHeaders(I), arrHeaders(I))
            nodParent.Expanded = True
            
            strBuffer = Space(1000)
            lngRet = GetPrivateProfileSection(arrHeaders(I), strBuffer, Len(strBuffer), _
                strPath)
            
            If lngRet Then
                strBuffer = Replace(strBuffer, vbNullChar & vbNullChar, vbNullChar)
                arrValues = Split(strBuffer, vbNullChar)
                
                For J = 0 To UBound(arrValues)
                    If Len(Trim(arrValues(J))) Then
                        objForm.TreeView1.Nodes.Add nodParent, tvwChild, , arrValues(J)
                    End If
                Next
            End If
        Next
    End If

End Sub