培训

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

Access免费公开课视频

test

Public Function gf_GetKeyVal(ByVal strFileName As String, ByVal strSection As String, ByVal strKey As String)
   On Error GoTo Err_Handler
   Dim strRetVal        As String
   Dim strWorked        As Integer
   '判断当前路径INI文件是否存在
   If Dir(strFileName) = "" Then
      'MsgBox "未发现INI文件,请确认文件名或路径是否正确 ！", vbCritical, "系统提示：": Exit Function
      gf_GetKeyVal = ""
      Exit Function
   End If
   '.....代码太长，省略部分代码，详细代码请:  联系作者>>
   strWorked = GetPrivateProfileString(strSection, strKey, "", strRetVal, Len(strRetVal), strFileName)
   
   '判断键值字符数,0则键值为空键值,否则赋值函数输出获得键值
   If strWorked = 0 Then
      gf_GetKeyVal = ""
   Else
      'InStr函数用于获得指定字符的起始位置,Chr(0)代表空字符
      ' .....代码太长，省略部分代码，详细代码请:  联系作者>>
   End If
Exit_Handler:
   Exit Function
Err_Handler:
   gf_MsgBox Err.Description
   Resume Exit_Handler
End Function
 
'=============================================================================================
'函数名称： gf_AddToINI  (可以实现创建抱括 INI文件本身,以及节区、子键、键值)  版本：1.01
'调用示例： gf_AddToINI(strFileName,strSection,strKey,strKeyValue)
'
'输入参数： (必需)strFileName   String      INI文件完整路径
'           (必需)strSection    String      节区名
'           (必需)strKey    String      子键名
'           (必需)strKeyValue   String      键值
'返    回： Integer
'适应版本： 97,2000,XP,2003,2007,2010,compatible
'作    者： 网络   整理：TM_彬 王宇虹
'关 键 字： INI
'推荐指数： 2
'难度等级： 2
'适应场合： INI
'说    明： 可以实现创建抱括 INI文件本身,以及节区、子键、键值
'=============================================================================================
'GUID： B64717EA-D7E0-43B5-BDE3-8A74D80B32DD 编码：1223233325 创建：2013/02/26 更新：2013/02/26
'=============================================================================================
Public Function gf_AddToINI(ByVal strFileName As String, ByVal strSection As String, ByVal strKey As String, ByVal strKeyValue As String) As Integer
   On Error GoTo Err_Handler
   '调用API函数不仅能实现(创建INI文件,添加新的节,添加新的子键,添加对应键值)
   WritePrivateProfileString strSection, strKey, strKeyValue, strFileName
   '函数返回1则表示操作成功,返回0为不成功
   gf_AddToINI = 1
Exit_Handler:
   Exit Function
Err_Handler:
   gf_MsgBox Err.Description
   Resume Exit_Handler
End Function
 
 
'=============================================================================================
'函数名称： gf_DeleteSection  (删除指定节区及其所属所有子键(含键值))  版本：1.01
'调用示例： gf_DeleteSection(strFileName,strSection)
'
'输入参数： (必需)strFileName   String      INI文件完整路径
'           (必需)strSection    String      节区名
'返    回： Integer
'适应版本： 97,2000,XP,2003,2007,2010,compatible
'作    者： 网络   整理：TM_彬 王宇虹
'关 键 字： 删除
'推荐指数： 1
'难度等级： 1
'适应场合： ini
'说    明： 删除指定节区及其所属所有子键(含键值)
'=============================================================================================
'GUID： C546004B-FE39-413C-AFD6-545F91A1B252 编码：1223233325 创建：2013/02/26 更新：2013/02/26
'=============================================================================================
Public Function gf_DeleteSection(ByVal strFileName As String, ByVal strSection As String) As Integer
   On Error GoTo Err_Handler
   '判断INI文件是否存在,不存在提示并退出函数
   If Dir(strFileName) = "" Then MsgBox "未发现INI文件,请确认文件名或路径是否正确 ！", vbCritical, "系统提示：": Exit Function
   '.....代码太长，省略部分代码，详细代码请:  联系作者>>
   WritePrivateProfileString strSection, vbNullString, vbNullString, strFileName
   '赋值函数输出为1,表示操作成功.
   gf_DeleteSection = 1
Exit_Handler:
   Exit Function
Err_Handler:
   gf_MsgBox Err.Description
   Resume Exit_Handler
End Function
 


Office Excel及Access公开课免费培训报名  加群及YY使用方法，请查看下贴：
http://www.office-cn.net/thread-117308-1-1.html
发布人:zstmtony  
分享到：
点击次数：  更新时间：2015-01-10 09:54:35  【打印此页】  【关闭】
上一条：office的程序如何发布打包-免费Access培训公开课[14]  下一条：Access使用treeview树控件之二-免费Access培训公开课[19]


相关文章

热门文章

热门产品