读写INI文件

      自从注册表诞生以来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
　　
　　至此已经完成了对一个完整的独立模块的封装，接下来就来看看怎么引用（其实看完上面程序就明了了）
INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下：

   [Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3

[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...

...

　　INI 文件中分若干个段 (Section)，每个段中有若干个键 (Key) 值 (Value) 对。一个键值对保存一个信息；段则将属性类似的一些键值对组织在一起。同一个段中不能出现两次以上同样的键，但不同的段中可以出现相同的键。