Option Explicit On

Module INI
    'INICont.bas Ver 1.0+a  INI    '====================================================================
    'GetIntFromINI( sectionName , keyName , defaultValue, iniPath )
    '
    '          sectionName:節(jié)點(diǎn)名

    '          keyName    :配置項(xiàng)名
    '          defaultValue:默認(rèn)值

    '          iniPath       :INI配置文件的路徑

    '
    '====================================================================

      //聲明從INI配置文件中獲取類型為Int的配置項(xiàng)的值的系統(tǒng)函數(shù)
      Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer

     //聲明從INI配置文件中獲取類型為string的配置項(xiàng)的值的系統(tǒng)函數(shù)
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

      //聲明向INI配置文件中寫入類型為string的配置項(xiàng)的值的系統(tǒng)函數(shù)

      Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

     //從INI配置文件中獲取類型為Int的配置項(xiàng)的值

    Public Function GetIntFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As Integer, ByVal iniPath As String) As Integer

               GetIntFromINI = GetPrivateProfileInt(sectionName, keyName, defaultValue, iniPath)
    End Function

     //從INI配置文件中獲取類型為string的配置項(xiàng)的值
    Public Function GetStrFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As String, ByVal iniPath As String) As String
        Dim buffer As String 

        Dim rc As Integer 

        buffer = Space(256)
       

        rc = GetPrivateProfileString(sectionName, keyName, defaultValue, buffer, buffer.Length, iniPath)
        

        GetStrFromINI = Left(buffer, InStr(buffer, vbNullChar) - 1)
    End Function

     //向INI配置文件中寫入類型為string的配置項(xiàng)的值

     Public Function WriteStrINI(ByVal sectionName As String, ByVal keyName As String, ByVal setValue As String, ByVal iniPath As String) As Integer
        Dim rc As Integer 

        rc = WritePrivateProfileString(sectionName, keyName, setValue, iniPath)

        If rc Then
            rc = 1
        End If
        WriteStrINI = rc
    End Function

  End Module