IniFile , IniSection, IniItem does not exist?

Karl Blessing · May 26, 2000

I am reading an article over at <A HREF="

http://msdn.microsoft.com/library/periodic/period99/msovba9902_ini2.htm"

TARGET="_new">

http://msdn.microsoft.com/library/periodic/period99/msovba9902_ini2.htm</A> It

has three types in there that concern me, IniFile, IniSection, IniItem, none of these show up in the MSDN help, wne when I search online MSDN only points to that Article, nor is it even show in the API Text Viewer, I have no idea how to declare these types or use them, yet I was able to get back the section names through the command. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Karl Blessing · May 26, 2000

I managed to get all the section names as well as the items under them using this that I wrote when I payed attention to how the SectionName API command was being used. Public Sub ReadData()   Dim strSections As String   Dim lngSize As Long   Dim astrSections As Variant   Dim astrItems As Variant   Dim i As Integer   Dim Items As Variant   On Error GoTo HandleErrors    Form1.Label1.Caption = ""   ' In most cases, 1024 characters is enough, but if it's   ' not, the code will double that and try again.   lngSize = 1024   Do     strSections = Space$(lngSize)     lngSize = GetPrivateProfileSectionNames(strSections, lngSize, "C:\kbstuff\inistuff\Test.ini&quot

If lngSize = 0 Then       ' No sections, so get out of here!       GoTo ExitHere     ElseIf lngSize = Len(strSections) - 2 Then       ' That's how the API indicates you didn't allow       ' enough space, but returning the size you originally       ' specified, less 2. In that case, just double the       ' buffer, and try again.       lngSize = lngSize * 2     Else       ' Trim the extra stuff. Use lngSize - 1 because       ' there's an extra vbNullChar at the end of this       ' string.       strSections = Left$(strSections, lngSize - 1)       Exit Do     End If   Loop   ' Now strSections contains the section names, separated   ' with vbNullChar.   astrSections = Split(strSections, vbNullChar)   For i = LBound(astrSections) To UBound(astrSections) - 1     ' Add the section to the collection, indicating that     ' it's not a NEW section. That is, it's not being added     ' after the file was read. That way, the code there can     ' know to not bother looking for items when being added     ' by code later.            Form1.Label1.Caption = Form1.Label1.Caption & astrSections(i) & vbCrLf       astrItems = GetValues(astrSections(i))       For Each Items In astrItems          Form1.Label1.Caption = Form1.Label1.Caption & "  " & Items & vbCrLf       Next            'Call AddSection(astrSections(i), False)   Next i ExitHere:   Exit Sub HandleErrors:   Err.Raise Err.Number, Err.Source, Err.Description End Sub Public Function GetValues(section As Variant) As Variant   Dim strSections As String   Dim lngSize As Long   Dim astrSections As Variant   Dim i As Integer   On Error GoTo HandleErrors   ' In most cases, 1024 characters is enough, but if it's   ' not, the code will double that and try again.   lngSize = 1024   Do     strSections = Space$(lngSize)     lngSize = GetPrivateProfileSection(section, strSections, lngSize, "C:\kbstuff\inistuff\Test.ini&quot

If lngSize = 0 Then       ' No sections, so get out of here!       GoTo ExitHere     ElseIf lngSize = Len(strSections) - 2 Then       ' That's how the API indicates you didn't allow       ' enough space, but returning the size you originally       ' specified, less 2. In that case, just double the       ' buffer, and try again.       lngSize = lngSize * 2     Else       ' Trim the extra stuff. Use lngSize - 1 because       ' there's an extra vbNullChar at the end of this       ' string.       strSections = Left$(strSections, lngSize - 1)       Exit Do     End If   Loop   ' Now strSections contains the section names, separated   ' with vbNullChar.   astrSections = Split(strSections, vbNullChar)          GetValues = astrSections      ExitHere:   Exit Function HandleErrors:   Err.Raise Err.Number, Err.Source, Err.Description End Function Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

IniFile , IniSection, IniItem does not exist?

Karl Blessing

Programmer

Karl Blessing

Programmer

Similar threads

Part and Inventory Search

Sponsor