ini文件读写.docVIP

ini文件读写 VB读写ini文件（1） 自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。 　　Dim Ret As Long 　　Dim Start As Long 　　Public FileName As String 　　Const BufSize = 10240 　　Dim buf As String * BufSize 　　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 　　 　　Private Declare Function GetPrivateProfileSection Lib kernel32 Alias GetPrivateProfileSectionA (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 　　 　　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 WritePrivateProfileSection Lib kernel32 Alias WritePrivateProfileSectionA (ByVal lpAppName As String, ByVal lpString As String, 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 　　 　　Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String) 　　 Ret = WritePrivateProfileString(clsName, key, V, FileName) 　　End Sub 　　 　　Public Function GetValue(ByVal clsName As String, ByVal key As String) As String 　　 Ret = GetPrivateProfileString(clsName, key, , buf, BufSize, FileName) 　　 Start = 1 　　 GetValue = RetStr() 　　End Function 　　 　　Private Function RetStr() As String 　　 Dim i As Long 　　 i = InStr(Start, buf, Chr(0)) 　　 If i Start Then 　　 RetStr = Mid(buf, Start, i - Start) 　　 End If 　　 Start = i + 1 　　End Function 　　 　　至此