Created by our partner:

INI-Reader

( )
3 Votes

The IniReader-class is a class designed to assist in reading of Ini-files.

Be the first to leve a comment or ask a question about the code!

Here is an example how to use it:

Dim I As Integer

'Instantiate
Dim IniReader As New clsIniReader

'Load an ini-file(True vid lyckat resultat)
Debug.Print IniReader.Initialize("C:\test.ini")

'Test if a value exists
Debug.Print IniReader.KeyExists("My test section", "My test value")

'Retrive a value
Debug.Print IniReader.GetValue("My test section", "My test value")

'Retrive a collection of all the sections
Dim Sections As Collection
Set Sections = IniReader.GetSections()
If Sections.Count > 0 Then
   For I = 1 To Sections.Count
      Debug.Print Sections(I)
   Next
End If

'Retrive a collection of all the keys in a section
Dim Keys As Collection
Set Keys = IniReader.GetKeys("My test section")
If Keys.Count > 0 Then
   For I = 1 To Keys.Count
      Debug.Print Keys(I)
   Next
End If

The interface:

GetKeys(ByVal Section As String) As Collection
Returns a collection of all the keys in a section as strings.
GetSections() As Collection
Returns a collection of all the sections in the ini-file as strings.
GetValue(ByVal Section As String, ByVal Key As String) As String
Returns the value of a key in a section.
Initialize(ByVal Filename As String) as Boolean
Loads an ini-file. Must be called before use of the object. Returns True on success.
KeyExists(ByVal Section As String, ByVal Key As String) As Boolean
Returns True if a key exists in a section.

Do you want your organization to take off
or are you happy as long as it doesn't drop?
With participation and motivated staff you organization can get airborne!

Last update Tuesday, August 07, 2007

INI-Reader

( )3 Votes

( )
3 Votes