VB读写INI文件的四个函数详解

2、 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
lpApplicationName String，指定在其中查找条目的小节。注意这个字串是不区分大小写的
lpKeyName String，欲获取的设置项或条目。这个支持不区分大小写
nDefault Long，指定条目未找到时返回的默认值
lpFileName String，初始化文件的名字。如果没有指定完整的路径名，windows就会在Windows目录中搜索文件
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
参数类型及说明：
lpApplicationName String，欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载这个ini文件所有小节的列表
lpKeyName String，欲获取的项名或条目名。这个字串不区分大小写。如设为vbNullString，就在lpReturnedString缓冲区内装载指定小节所有项的列表
说明：
在初始化文件指定小节内设置一个字串 ，返回值Long，非零表示成功，零表示失败。会设置GetLastError
参数类型及说明：
lpApplicationName - String，要在其中写入新字串的小节名称。这个字串不区分大小写。
lpKeyName - Any，要设置的项名或条目名。这个字串不区分大小写。用vbNullString可删除这个小节的所有设置项。
说明 ：
为初始化文件中指定的条目取得字串，返回值Long，复制到lpReturnedString缓冲区的字节数量，其中不包括那些NULL中止字符。如lpReturnedString缓冲区不够大，不能容下全部信息，就返回nSize-1（若lpApplicationName或lpKeyName为NULL，则返回nSize-2）
Dim Result As Long
Result = GetPrivateProfileInt(App, Key, 0, FileName)
GetINIint = Result
End Function
'读字符串
Public Function GetINIstr(ByVal FileName As String, ByVal App As String, ByVal Key As String) As String
说明：
这个函数能获取Windows目录的完整路径名。在这个目录里，保存了大多数windows应用程序文件及初始化文件，返回值Long，复制到lpBuffer的一个字串的长度。如lpBuffer不够大，不能容下整个字串，就会返回lpBuffer要求的长度。零表示失败。会设置GetLastError
VB读写INI文件的四个函数详解：
1、 Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
'仅仅针对是非值
'Y：yes,N：no,E：error
Public Function GetIniTF(ByVal In_Key As String) As Boolean
On Error GoTo GetIniTFErr
参数类型及说ห้องสมุดไป่ตู้：
lpBuffer String，指定一个字串缓冲区，用于装载Windows目录名。除非是根目录，否则目录中不会有一个中止用的“\”字符
nSize Long，lpBuffer字串的最大长度
自定义读写INI函数：
'写INI文件(字符串)
Public Sub WriteINI(ByVal FileName As String, ByVal App As String, ByVal Key As String, ByVal strValue As String)
Dim Result As Long
Result = WritePrivateProfileString(App, Key, strValue, FileName)
End Sub
'读整型
Public Function GetINIint(ByVal FileName As String, ByVal App As String, ByVal Key As String) As Long
WriteIniTF = True
If In_Data = True Then
WritePrivateProfileString "Setting", In_Key, "1", App.Path & "\SourceDB.ini"
Else
WritePrivateProfileString "Setting", In_Key, "0", App.Path & "\SourceDB.ini"
On Error GoTo GetIniStrErr
Dim Result As Long
Dim BufferStr As String * 255
Result = GetPrivateProfileString(App, Key, "", BufferStr, Len(BufferStr), FileName)
If Result = 0 Then
End If
Exit Function
WriteIniTFErr:
Err.Clear
WriteIniTF = False
End Function
'以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
'针对字符串值
'空值表示出错
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
GetIniTF = True
Dim GetStr As String
GetStr = VBA.String(128, 0)
GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini"
GetINIstr = ""
Else
GetINIstr = Left(BufferStr, Result)
End If
End Function
例子：
'文件名SourceDB.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
Err.Clear
GetIniTF = False
GetStr = ""
End Function
Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
On Error GoTo WriteIniTFErr
lpString - String，指定为这个项写入的字串值。用vbNullString表示删除这个项现有的字串。
lpFileName - String，初始化文件的名字。如果没有指定完整路径名，则windows会在windows目录查找文件。如果文件没有找到，则函数会创建它。