Create or Manipulate INI Files Easily

Category:

Files and Directories

Type:

Classes

Difficulty:

Beginning

Author: Anonymous

Version Compatibility: Visual Basic 6

More information:

Very simple to use, make, modify, save and load INI files easily. To make a new file: Dim X As New ModINI Call X.NewINI Call X.AddSection("Section") Call X.AddKey("Section", "Key", "Value") Call X.SaveINI("C:\Ini.ini") To load a file and extract data: ------------------------------ Dim X As New ModINI Call X.LoadINI("Ini.ini") Variable = X.GetKeyValue("Section", "Key") This class includes other functions, like the ability to rename sections and keys and change key values etc.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Type Key csName As String csValue As String csDeleted As Boolean End Type Private Type Section csName As String csNoKeys As Long csKeys() As Key csDeleted As Boolean End Type Private Sections() As Section Private SecNo As Long Private Loaded As Boolean

Code:

Public Sub LoadINI(File As String)

Dim hFile As Integer
Dim FileInfo As String
Dim Counter As Long
Dim Pos1 As Double, Pos2 As Double, Pos3 As Double
Dim SectionInfo() As String
Dim KeyNo As Long

hFile = FreeFile
    
    Open File For Binary Access Read As #hFile
        FileInfo = Space(LOF(hFile))
        Get hFile, , FileInfo
    Close #hFile
    
    SecNo = -1
    
    Do
        SecNo = SecNo + 1
        Pos1 = InStr(Pos1 + 1, FileInfo, "[")
        If Pos1 = 0 Then Exit Do
        Pos2 = InStr(Pos1, FileInfo, "]")
        ReDim Preserve Sections(SecNo)
        ReDim Preserve SectionInfo(SecNo)
        Sections(SecNo).csName = Mid(FileInfo, Pos1 + 1, Pos2 - Pos1 - 1)
        Pos3 = InStr(Pos2 + 1, FileInfo, "[") - 1
        If Pos3 < 0 Then Pos3 = Len(FileInfo)
        SectionInfo(SecNo) = Mid(FileInfo, Pos2 + 1, Pos3 - Pos2 - 2)
    Loop Until Pos1 = 0
    
    For Counter = 0 To SecNo - 1
        KeyNo = 0
        Pos1 = -2
        Pos2 = 0
        Pos3 = 0
        Do
            KeyNo = KeyNo + 1
            Pos1 = InStr(Pos1 + 3, SectionInfo(Counter), Chr(13) & Chr(10))
            If Pos1 = 0 Then Exit Do
            Pos2 = InStr(Pos1 + 3, SectionInfo(Counter), "=")
            ReDim Preserve Sections(Counter).csKeys(KeyNo)
            Sections(Counter).csKeys(KeyNo).csName = Mid(SectionInfo(Counter), Pos1 + 2, Pos2 - Pos1 - 2)
            Pos3 = InStr(Pos2, SectionInfo(Counter), Chr(13) & Chr(10))
            If Pos3 = 0 Then Pos3 = Len(SectionInfo(Counter)) + 1
            Sections(Counter).csKeys(KeyNo).csValue = Mid(SectionInfo(Counter), Pos2 + 1, Pos3 - Pos2 - 1)
        Loop Until Pos1 = 0
        Sections(Counter).csNoKeys = KeyNo - 1
    Next Counter
    
    Loaded = True

End Sub

Public Sub SaveINI(File As String)

Dim Counter As Long, KeyNo As Long
Dim FileInfo As String
Dim Ret As String * 2
Dim hFile As Long

If Loaded = False Then Exit Sub
    
    Ret = Chr(13) & Chr(10)

For Counter = 0 To SecNo - 1
Again:
        If Sections(Counter).csDeleted = True Then
            If Counter = UBound(Sections()) Then GoTo Saving
            Counter = Counter + 1
            GoTo Again
        End If
            FileInfo = FileInfo & "[" & Sections(Counter).csName & "]" & Ret
            For KeyNo = 1 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csDeleted = False And _
                    Sections(Counter).csKeys(KeyNo).csValue <> "" Then
                    FileInfo = FileInfo & Sections(Counter).csKeys(KeyNo).csName & "=" & Sections(Counter).csKeys(KeyNo).csValue & Ret
                End If
            Next KeyNo
    Next Counter
    
Saving:

If Dir(File) <> "" Then Kill (File)

hFile = FreeFile

Open File For Binary Access Write As #hFile
        Put #hFile, , FileInfo
    Close #hFile

End Sub

Public Function GetKeyValue(SectionName As String, KeyName As String) As Variant

Dim Counter As Long, KeyNo As Long

If Loaded = False Then Exit Function

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            For KeyNo = 0 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csName = KeyName Then
                    GetKeyValue = Sections(Counter).csKeys(KeyNo).csValue
                    Exit Function
                End If
            Next KeyNo
        End If
    Next Counter

End Function

Public Sub SetKeyValue(SectionName As String, KeyName As String, Value As Variant)

Dim Counter As Long, KeyNo As Long

If Loaded = False Then Exit Sub

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            For KeyNo = 0 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csName = KeyName Then
                    Sections(Counter).csKeys(KeyNo).csValue = Value
                    Exit Sub
                End If
            Next KeyNo
        End If
    Next Counter

End Sub

Public Sub ChangeSectionName(OldName As String, NewName As String)

Dim Counter As Long

If Loaded = False Then Exit Sub
    
    For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = OldName Then
            Sections(Counter).csName = NewName
            Exit Sub
        End If
    Next Counter
        
End Sub

Public Sub ChangeKeyName(SectionName As String, OldName As String, NewName As String)

Dim Counter As Long, KeyNo As Long

If Loaded = False Then Exit Sub

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            For KeyNo = 0 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csName = OldName Then
                    Sections(Counter).csKeys(KeyNo).csName = NewName
                    Exit Sub
                End If
            Next KeyNo
        End If
    Next Counter

End Sub

Public Sub RemoveKey(SectionName As String, KeyName As String)

Dim Counter As Long, KeyNo As Long

If Loaded = False Then Exit Sub

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            For KeyNo = 0 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csName = KeyName Then
                    Sections(Counter).csKeys(KeyNo).csDeleted = True
                    Exit Sub
                End If
            Next KeyNo
        End If
    Next Counter

End Sub

Public Sub RemoveSection(SectionName As String)

Dim Counter As Long

If Loaded = False Then Exit Function

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            Sections(Counter).csDeleted = True
        End If
    Next Counter
    
End Sub

Public Sub AddSection(SectionName As String)

Dim Counter As Long

If Loaded = False Then Exit Sub

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            Exit Sub
        End If
    Next Counter
    
    SecNo = SecNo + 1
    ReDim Preserve Sections(SecNo - 1)
    ReDim Preserve Sections(SecNo - 1).csKeys(0)
    Sections(SecNo - 1).csName = SectionName

End Sub

Public Sub AddKey(SectionName As String, KeyName As String, Value)

Dim Counter As Long, KeyNo As Long
Dim SecFound As Boolean, Sec As Long

If Loaded = False Then Exit Sub

For Counter = 0 To SecNo - 1
        If Sections(Counter).csName = SectionName Then
            SecFound = True
            Sec = Counter
            For KeyNo = 0 To Sections(Counter).csNoKeys
                If Sections(Counter).csKeys(KeyNo).csName = KeyName Then
                    Exit Sub
                End If
            Next KeyNo
        End If
    Next Counter
    
    If SecFound = False Then
        AddSection (SectionName)
        Sec = SecNo
    End If
    
    Sections(Sec).csNoKeys = Sections(Sec).csNoKeys + 1
    ReDim Preserve Sections(Sec).csKeys(Sections(Sec).csNoKeys)
    
    Sections(Sec).csKeys(Sections(Sec).csNoKeys).csName = KeyName
    Sections(Sec).csKeys(Sections(Sec).csNoKeys).csValue = Value

End Sub

Public Sub NewINI()

ReDim Sections(0)
    ReDim Sections(0).csKeys(0)
    Loaded = True

End Sub