读写ini文件的问题

Question

怎样使ini里面的各个Sections,Key和value都支持中文?谢谢

Answer 1

'读写INI文件的Windows API函数声明
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
'从INI配置文件中读取一个设置值
Public Function IniGetValue(ByVal IniSectionName As String, ByVal IniKeyName As String, ByVal IniFileName As String) As String    Dim ResultSpaceString As String
    Const lpBufferLength As Long = 1024    ResultSpaceString = Space(lpBufferLength)    Call GetPrivateProfileString(IniSectionName, IniKeyName, "", ResultSpaceString, lpBufferLength, IniFileName)
    IniGetValue = Left$(ResultSpaceString, InStr(ResultSpaceString, vbNullChar) - 1)End Function
'向INI配置文件中写入一个设置值
Public Function IniSetValue(ByVal IniSectionName As String, ByVal IniKeyName As String, ByVal IniKeyValue As String, ByVal IniFileName As String) As Boolean
    IniSetValue = CBool(WritePrivateProfileString(IniSectionName, IniKeyName, IniKeyValue, IniFileName))
End Function
---------------------------------------------
从我的程序里给你复制出来的。