'****************************************************************************************** '* 需要注意的问题 * '****************************************************************************************** '1.INI<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的路径必须完整,<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名前面的各级目录必须存在,否则写入不成功,该<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>返回 FALSE 值. '2.<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名的路径中必须为 //,因为在VC++中,// 才表示一个 / . '3.也可将INI<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>放在程序所在目录,此时 lpFileName 参数为: ".//student.ini". '4.使用前请先初始化变量ProfileName '****************************************************************************************** '* API <a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>声明 * '****************************************************************************************** '为初始化<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>中指定的条目取得字串 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 '为初始化<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>中指定的条目<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>一个整数值 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 '在初始化<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>指定小节内设置一个字串 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 '<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>名（包含完整路径名） Public ProfileName As String '****************************************************************************************** '<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a><a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： iniProfileName '<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>说明： 初始化<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>名（<a href="https://www.jb51.cc/tag/baokuo/" target="_blank" class="keywords">包括</a>完整路径名） '****************************************************************************************** Public Sub iniProfileName(strProfileName As String) ProfileName = strProfileName End Sub '****************************************************************************************** '过程<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： GetProfileValueString '过程说明： <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a><a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>中子键的值（字符串） '参数说明： SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '返回值： 返回子键值（字符串） '****************************************************************************************** Public Function GetProfileValueString(ByVal SectionName As String,ByVal KeyWord As String,_ ByVal DefString As String) As String On Error GoTo errhandle Dim ResultString As String * 144,Temp As Integer Dim s As String,i As Integer Dim filename As String Temp% = GetPrivateProfileString(SectionName,KeyWord,"",ResultString,144,ProfileName) '检索关键词的值 If Temp% > 0 Then '关键词的值不为空 s = "" For i = 1 To 144 If Asc(Mid$(ResultString,i,1)) = 0 Then Exit For Else s = s & Mid$(ResultString,1) End If Next Else Temp% = WritePrivateProfileString(SectionName,DefString,ProfileName) '将缺省值写入INI<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> s = DefString End If GetProfileValueString = s errhandle: If Err.Number Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "读取<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>出错：" & Err.Description End If End Function '****************************************************************************************** '过程<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： GetProfileValueInt '过程说明： <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a><a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>中子键的值（整型） '参数说明： SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '返回值： 返回子键值（整型） '****************************************************************************************** Public Function GetProfileValueInt(ByVal SectionName As String,_ ByVal DefValue As Integer) As Integer On Error GoTo errhandle Dim d As Long,s As String d = DefValue GetProfileValueInt = GetPrivateProfileInt(SectionName,DefValue,ProfileName) If d <> DefValue Then s = "" & d d = WritePrivateProfileString(SectionName,s,ProfileName) End If errhandle: If Err.Number Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "读取<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>出错：" & Err.Description End If End Function '****************************************************************************************** '过程<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： SetProfileValueString '过程说明： 设置<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>关键词的值（字符串） '参数说明： SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '****************************************************************************************** Sub SetProfileValueString(ByVal SectionName As String,ByVal ValStr As String) On Error GoTo errhandle Dim res% res% = WritePrivateProfileString(SectionName,ValStr,ProfileName) errhandle: If Err.Number Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "写入<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>出错：" & Err.Description End If End Sub '****************************************************************************************** '过程<a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： SetProfileValueInt '过程说明： 设置<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>关键词的值（整型） '参数说明： SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '****************************************************************************************** Sub SetProfileValueInt(ByVal SectionName As String,ByVal ValInt As Integer) On Error GoTo errhandle Dim res%,s$ s$ = Str$(ValInt) res% = WritePrivateProfileString(SectionName,s$,ProfileName) errhandle: If Err.Number Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "写入<a href="https://www.jb51.cc/tag/peizhiwenjian/" target="_blank" class="keywords">配置文件</a>出错：" & Err.Description End If End Sub