inimodule.bas

适合乡镇供电所使用电费处理系统v3 软件

Attribute VB_Name = "IniModule"
Option Explicit
'访问INI
'   ReadINI   读INI
'   WriteINI  写INI
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias _
"WritePrivateProfileStringA" (ByVal AppName As String, _
ByVal KeyName As String, ByVal keydefault As String, _
ByVal Filename As String) As Long

Public Function ReadINI(inifile, inisection, inikey, iniDefault)
'如果没有section (appname),默认为第一
'如果没有key,则默认为第一
    Dim lpApplicationName As String, lpKeyName As String, _
    lpDefault As String, lpReturnedString As String, _
    lpFileName As String, Filename As String
    Dim nSize As Long, retval As Long
    lpDefault = Space$(254)
    lpDefault = iniDefault

    lpReturnedString = Space$(254)

    nSize = 254
    lpFileName = inifile
    lpApplicationName = inisection
    lpKeyName = inikey
    Filename = lpFileName
    retval = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
    ReadINI = lpReturnedString
    
End Function

Public Function WriteINI(inifile As String, inisection As String, inikey As String, Info As String) As String
    Dim retval As Long
    retval = WritePrivateProfileString(inisection, inikey, Info, inifile)
    WriteINI = LTrim$(Str$(retval))
End Function