VB API处理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 lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function GetINI(AppName As String, KeyName As String, FilePath As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FilePath))
End Function

Function WriteINI(AppName As String, KeyName As String, Value As String, FilePath As String)
WritePrivateProfileString AppName, KeyName, Value, FilePath
End Function

 

Private Sub Command1_Click()  '读ini
Dim FilePath As String
FilePath = App.Path & "a.ini"
Print GetINI("DBSettings", "Server", FilePath)
End Sub

Private Sub Command2_Click()  '写ini
Dim FilePath As String
FilePath = App.Path & "a.ini"
WriteINI "DBSettings", "Server", "(local)", FilePath 
End Sub