Attribute VB_Name = "modINIFile"
Option Explicit
Public 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
Public Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileSection Lib "kernel32" _
Alias "GetPrivateProfileSectionA" _
(ByVal lpAppName As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileSection Lib "kernel32" _
Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Long
' 从INI 文件中取得相关项
' 02 Mar 2006 James Space(128)=> Space(500)
Public Function GetItemFromINI(Section As String, _
Key As String, FileName As String) As String
Dim Valid As String
Dim Size As Integer
Dim Path As String
Dim s As String
s = Space(500)
Size = Len(s)
Valid = GetPrivateProfileString(Section, Key, "", s, Size, FileName)
s = Left(s, Valid)
GetItemFromINI = Trim(s)
End Function
' 将新的INI Item 的值,写入INI文件项中
Public Sub writeItemToINI(Section As String, _
Key As String, Value As String, FileName As String)
WritePrivateProfileString Section, Key, Value, FileName
End Sub