于振海网——于振海的个人博客搜索

vb读写ini文件模块

发布时间:2011年11月21日  更新时间:2024年6月17日
作者:未知  文章ID:513  浏览:

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 WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal Path As String) As String
On Error GoTo GetIniStrErr
If VBA.Trim(In_Key) = "" Then
   GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = VBA.String(128, 0)
 GetPrivateProfileString AppName, In_Key, "", GetStr, 256, Path
  GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "" Then
   GoTo GetIniStrErr
Else
   GetIniStr = GetStr
   GetStr = ""
End If
Exit Function
GetIniStrErr:
   Err.Clear
   GetIniStr = ""
   GetStr = ""
End Function

Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String, ByVal Path As String) As Boolean
On Error GoTo WriteIniStrErr
WriteIniStr = True
If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
   GoTo WriteIniStrErr
Else
 WritePrivateProfileString AppName, In_Key, In_Data, Path
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function

发表评论  挑错  文章投稿  联系我
  • 上一篇:vb搜索文件模块,利用api搜索的高效率代码
  • 下一篇:PHP去除字符串开头或末尾逗号
  • 【推荐文章】

  • 辛弃疾《清平乐·题上卢桥》创作背景、赏析

    【原文】 清平乐① 题上卢桥② 辛弃疾 清泉犇快,不管青山碍③。千里盘盘平世界,更...

  • 苏轼《澄迈驿通潮阁二首》赏析

    【原文】 澄迈驿通潮阁二首① 苏轼 (一) 倦客愁闻归路遥, 眼明飞阁俯长桥。 贪看...

  • 如何写好议论文——论题:奋斗

    【论题阐述】 奋斗 一词的本义就是指为了目标去努力行动。在现代社会中,面临着很大...

  • 如何写好日记之每日生活新鲜事

    【原文】 如何写好日记之每日生活新鲜事 每一天,我们身边都会发生大大小小的事,它...

  • 海王星上为什么风暴不断

    在我们的心目中,风暴多起源于太阳的热力:阳光使大气和海水受热,造成空气对流而刮...

  • 站成一棵树

    父亲是在李阳出事的第二天赶回村庄的。 事情也不算大,李阳打了同学。李阳以前也打同...

  • 【最新文章】

  • 白居易《江楼夕望招客》赏析
  • 姜夔《点绛唇·丁未冬过吴松作》赏析
  • 辛弃疾《清平乐·题上卢桥》创作背景、赏析
  • 陶渊明《答庞参军》赏析
  • 苏轼《澄迈驿通潮阁二首》赏析
  • 垃圾分类的作文素材
  • 如何写作文——一次奇特的比赛(想象作文)
  • 如何培养孩子独自人格,让他学会承担自己的人
  • 如何写好议论文——论题:奋斗
  • 如何写好作文之写人篇
  • 如何写好作文之叙事篇
  • 如何写好作文之写景篇
  • 如何写好日记之今天我来画美景
  • 如何写好日记之每日生活新鲜事
  • 如何写好日记之斑斓校园每一天