how to use this public sub

[nojoke86]

i am starting to get the hang of vb6, but are stuck trying to use this public sub in a class from a form. I am trying to search for a key. i have been able to save to the ini file, but do not know how to use this:

Public Sub EnumerateCurrentSection(ByRef sKey() As String, ByRef iCount As Long)
        Dim sSection As String
        Dim iPos     As Long
        Dim iNextPos As Long
        Dim sCur     As String
   
    iCount = 0
    Erase sKey
    sSection = INISection
    If (Len(sSection) > 0) Then
        iPos = 1
        iNextPos = InStr(iPos, sSection, Chr$(0))
        Do While iNextPos <> 0
            sCur = Mid$(sSection, iPos, (iNextPos - iPos))
            If (sCur <> Chr$(0)) Then
                iCount = iCount + 1
                ReDim Preserve sKey(1 To iCount) As String
                sKey(iCount) = Mid$(sSection, iPos, (iNextPos - iPos))
                iPos = iNextPos + 1
                iNextPos = InStr(iPos, sSection, Chr$(0))
            End If
        Loop
    End If
 
End Sub

[LaVolpe]

That sub looks like part of a module or class. Can't really answer your question because that sub depends on some other information. The INISection variable for example appears to be a module-level or public variable that is populated elsewhere.

I also think that the code may be used for a custom INI file. I say that because the code is looking for Chr$(0) as a delimiter where [ ] symbols would be expected. But of course those could have been replaced with Chr$(0) elsewhere in the original code. Otherwise, you'd have to know the structure of the custom INI to guarantee you understand the routine. And if using APIs to read/write INIs, you don't need manual parsing routines.

[isnoend07]

i am using the same ini class I use it like this to get all the keys in a section:

Public Sub EnumerateCurrentSection(ByRef sKey() As String, ByRef iCount As Long)
        Dim sSection As String
        Dim iPos     As Long
        Dim iNextPos As Long
        Dim sCur     As String
    
    iCount = 0
    Erase sKey
    sSection = INISection
    If (Len(sSection) > 0) Then
        iPos = 1
        iNextPos = InStr(iPos, sSection, Chr$(0))
        Do While iNextPos <> 0
            sCur = Mid$(sSection, iPos, (iNextPos - iPos))
            If (sCur <> Chr$(0)) Then
                iCount = iCount + 1
                ReDim Preserve sKey(1 To iCount) As String
                sKey(iCount) = Mid$(sSection, iPos, (iNextPos - iPos))
                iPos = iNextPos + 1
                iNextPos = InStr(iPos, sSection, Chr$(0))
            End If
        Loop
    End If

End Sub

[isnoend07]

The class also contains this to put the section titles in a combo box

Private Sub FillTemplatesInCombo()  
  Dim asSections() As String, lNoofSections As Long, lIndex As Long
    clsINIFile.EnumerateAllSections asSections, lNoofSections

    CboTemplates.Clear
    For lIndex = 1 To lNoofSections
        CboTemplates.AddItem asSections(lIndex)
    Next lIndex
    
End Sub