VB语言实现INI文件读写操作

' 读取INI文件

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

' 写入INI文件

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

' 示例

Private Sub Example()

Dim IniFilePath As String

Dim SectionName As String

Dim KeyName As String

Dim DefaultValue As String

Dim ReturnedString As String

Dim BufferSize As Long

IniFilePath = "C:\example.ini"
SectionName = "Section"
KeyName = "Key"
DefaultValue = ""
ReturnedString = String(255, " ")
BufferSize = Len(ReturnedString)

' 读取INI文件
GetPrivateProfileString SectionName, KeyName, DefaultValue, ReturnedString, BufferSize, IniFilePath
ReturnedString = Left(ReturnedString, InStr(1, ReturnedString, Chr(0)) - 1)

' 写入INI文件
WritePrivateProfileString SectionName, KeyName, "Value", IniFilePath

End Sub