读写INI文件的四个函数

原创 2002年01月15日 09:21:00

'文件名SourceDB.ini文件
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

'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
'仅仅针对是非值
'Y:yes,N:no,E:error
Public Function GetIniTF(ByVal In_Key As String) As Boolean
On Error GoTo GetIniTFErr
GetIniTF = True
Dim GetStr As String
GetStr = VBA.String(128, 0)
GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
If GetStr = "1" Then
   GetIniTF = True
   GetStr = ""
Else
   GoTo GetIniTFErr
End If
Exit Function
GetIniTFErr:
   Err.Clear
   GetIniTF = False
   GetStr = ""
End Function

Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
On Error GoTo WriteIniTFErr
WriteIniTF = True
If In_Data = True Then
 WritePrivateProfileString "Setting", In_Key, "1", App.Path & "/SourceDB.ini"
Else
 WritePrivateProfileString "Setting", In_Key, "0", App.Path & "/SourceDB.ini"
End If
Exit Function
WriteIniTFErr:
   Err.Clear
   WriteIniTF = False
End Function


'以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
'针对字符串值
'空值表示出错
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key 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, App.Path & "/SourceDB.ini"
  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) 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, App.Path & "/SourceDB.ini"
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function

使用Delphi内置函数读写INI文件

下面介绍一些对.INI文件读写时相关的类及其属性方法。 1、TIniFile对象 以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法,专门用来对IN...
  • delphi308
  • delphi308
  • 2014年05月05日 21:02
  • 1220

C# winform中读写ini文件

C# winform中读写ini文件
  • source0573
  • source0573
  • 2015年11月05日 21:13
  • 3675

C#中读写INI文件的方法例子

[DllImport("kernel32")]         private static extern long WritePrivateProfileString(string secti...
  • Andrewniu
  • Andrewniu
  • 2017年06月20日 13:11
  • 377

在C#中读写INI配置文件

在作应用系统开发时,管理配置是必不可少的。例如数据库服务器的配置、安装和更新配置等等。由于Xml的兴起,现在的配置文件大都是以xml文档来存储。比如Visual Studio.Net自身的配置文件Ma...
  • u010655348
  • u010655348
  • 2016年01月12日 22:43
  • 1231

ini文件的简单读写

INI文件的结构: INI文件是一种按照特点方式排列的文本文件。每一个INI文件构成都非常类似,由若干段落(section)组成,在每个带括号的标题下面,是若干个以单个单词开头的关键词(keyword...
  • w630131
  • w630131
  • 2016年03月28日 11:20
  • 661

C语言实现<读取>和<写入> *.ini文件。

个人觉得没啥问题了。有的话
  • niha1993825jian
  • niha1993825jian
  • 2014年11月13日 20:10
  • 4883

QT5入门之20 -QT读写ini文件

使用QSettings读写即可,比较简单 #include void MainWindow::on_pushButton_6_clicked() { //Qt中使用QSettings类读写i...
  • a379039233
  • a379039233
  • 2015年10月27日 16:33
  • 3089

MFC文件读写之ini文件

什么是ini文件? initialization File,即为初始化文件,是windows的系统配置文件所采用的存储格式,统管windows的各项配置。或者作为项目中的配置文件,为整个项目所共...
  • bmjhappy
  • bmjhappy
  • 2014年03月20日 13:46
  • 3955

如何在C#中读写INI文件

INI文件的结构 INI文件是一种按照特点方式排列的文本文件。每一个INI文件构成都非常类似,由若干段落(section)组成,在每个带括号的标题下面,是若干个以单个单词开头的关键词(keyword...
  • ddjj_1980
  • ddjj_1980
  • 2016年12月02日 15:21
  • 3129

Unity_ini配置文件应用(用于读取或写入程序设置)

public static class IniSetting { private static string mINIFileName = Application.dataPath + "/....
  • Le_Sam
  • Le_Sam
  • 2017年11月01日 17:01
  • 175
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:读写INI文件的四个函数
举报原因:
原因补充:

(最多只允许输入30个字)