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