读写INI文件的四个函数(转)

最新推荐文章于 2025-08-11 14:46:44 发布
转载 最新推荐文章于 2025-08-11 14:46:44 发布 · 312 阅读 · 1
本文介绍了一种使用VBA在Visual Basic应用程序中读取和写入INI文件的方法。通过定义API函数GetPrivateProfileString和WritePrivateProfileString，可以轻松实现对INI文件的设置节点进行布尔值和字符串值的操作。
　'文件名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

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925259/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925259/

csdn864883
关注
读写INI文件的四个函数 (转)
csd3176的博客
12-15 86
读写INI文件的四个函数 (转)[@more@]'文件名sourcedb.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "G...
VB读写INI文件的四个函数以及相关API详细说明
wjb9921的专栏
12-30 4164
WritePrivateProfileString函数说明 在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应用如下:　　一.将信息写入.INI文件中.　　1.所用的WINAPI函数原型为: BOOL WritePrivateProfileString(LPCTSTR lpAppName,LPCTSTR lp
如何在C＃中读写INI文件
biyusr的专栏
02-13 1704
但自从Windows 95的退出，在Windows系统中引入了注册表的概念，INI文件在Windows系统的地位就开始不断下滑，这是因为注册表的独特优点，使应用程序和系统都把许多参数和初始化信息放进了注册表中。这里有一点应该注意，当在调用WritePrivateProfileString（）对INI文件进行写操作的时候，如果此时在INI文件中存在和要写入的信息相同的段落名称和关键字，则将覆盖此INI信息。通过上面的这些介绍，可以看成C＃操作INI文件的过程，其实就是C＃调用Win32的API函数的过程。
VB6.0读写INI文件的四个函数
郑长风
11-18 2195
     读写INI文件的四个函数发表日期：2006-08-23作者：[转贴] 出处：  文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVa
读写INI文件的四个函数
shawls的专栏
01-15 1151
文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String
VB读写ini文件
唸 尐 憂 的 天 空
08-20 7637
VB读写ini文件（1）自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。　　Dim Ret As Long　　Dim Start
Qt之如何读写INI文件
QtCompany的博客
08-04 1000
相当于在INI文件中添加了一个索引，根据索引的不同，可以读取相对应的值将组重置为相应的eginGroup()调用之前的状态。向INI文件中写入信息，信息以键值对的方式写入到INI文件中，如果key值已经存在了，那么key对应的value值便会被新值覆盖掉。从INI文件中读取信息，返回设置键的值，如果设置的键不存在，则返回defaultValue，如果未指定默认的值，则返回默认QVariant()。返回当前的组名。
C++读写INI文件
yuanboshuai的博客
08-19 1398
C++读写INI文件目录引用INI文件简介INI文件写入INI文件读取 目录 引用 https://www.cnblogs.com/htj10/p/11741895.html https://www.cnblogs.com/oddcat/p/11194082.html https://www.cnblogs.com/my-blog/archive/2008/11/14/1333470.html INI文件简介 INI是英文单词 INItialization 的缩写，常作为Windows系统下的配置文件。IN
vb如何读写ini文件
寒风雨(lanman)的专栏
11-28 3872
VB中有没有读取INI文件的函数，同样功能的API函数是什么？ 回答:     VB没有直接读写INI文件的语句，必须借助Windows API来操作INI文件。相应的Windows API函数有两类：一类是GetProfileInt、GetProfileString、WriteProfileInt和WriteProfileString，它们是读写Win.ini中的设置；另一类是GetPr
C#读写ini文件详解
weixin_30328063的博客
07-23 1810
C#读写ini文件是如何进行的呢？C#读写ini文件需要的方法有哪些呢？本文就向你一一介绍。 C#读写ini文件之前要了解的概念：INI就是扩展名为"INI"的文件,其实他本身是个文本文件,可以用记事本打开,主要存放的是用户所做的选择或系统的各种参数. C#读写ini文件其实并不是普通的文本文件.它有自己的结构.由若干段落(SECTION)组成,在每个带括号的标题下面,...
Qt读写ini文件
热门推荐
代码人生
07-18 6万+
一 背景   1 ini文件介绍 .ini 文件是Initialization File的缩写，即初始化文件。 除了windows现在很多其他操作系统下面的应用软件也有.ini文件，用来配置应用软件以实现不同用户的要求。一般不用直接编辑这些.ini文件，应用程序的图形界面即可操作以实现相同的功能。它可以用来存放软件信息,注册表信息等。   2 ini文件格式 INI文件由节、键、值组
VC INI文件读写
zhoubl668的专栏：远帆，梦之帆！
01-09 3万+
 VC中用函数读写ini文件的方法         ini文件(即Initialization file)，这种类型的文件中通常存放的是一个程序的初始化信息。ini文件由若干个节(Section)组成，每个Section由若干键(Key)组成，每个Key可以赋相应的值。读写ini文件实际上就是读写某个的Section中相应的Key的值，而这只要借助几个函数即可完成。一、向ini文件中写入信息的
MFC实现读写INI文件的全面指南
weixin_34718952的博客
08-11 1308
INI文件，全称为初始化文件（initialization file），是Windows操作系统下用于存储程序配置信息的一种文本文件格式。通常包含简单的键值对结构，用于应用程序读取和保存配置选项。CIniFile。
C#中处理读写Ini文件
Mihoke的博客
04-29 3830
1、C#读写ini文件其实并不是普通的文本文件，有自己的结构。由若干段落(SECTION)组成,在每个带括号的标题下面,是若干个以单个单词开头的关键字(KEYWORD)和一个等号,等号右边就是关键字的值(VALUE).例如: [Section1]      KeyWord1 = Value1      KeyWord2 = Value2      ...  [Section2]      Key
winform 读写.ini 文件
沉虚苑的博客
05-17 964
1、ini文件读写helper类 public class IniInfo { //调用API函数 [DllImport("kernel32")] private static extern bool WritePrivateProfileString(string section, string key, string val, str
VC中用 函数 读写ini文件的方法
kenny9931的专栏
06-18 2199
VC中用函数读写ini文件的方法2007-05-31 15:23         ini文件(即Initialization file)，这种类型的文件中通常存放的是一个程序的初始化信息。ini文件由若干个节(Section)组成，每个Section由若干键(Key)组成，每个
C#读写Ini文件类
chrean的专栏
06-11 1185
using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Collections.Specialized;using System.IO;using System.Runtime.InteropServices;using System.Windows.Forms;namespace Comm{    ///     /// IniFiles的类    ///     publ
Qt读写INI文件
晓琴儿
12-14 1222
读写INI配置文件可以增强软件配置的灵活性，INI文件的基本结构如下： Qt读写ini文件的类是QSettings，使用该类时先包含它的头文件名 #include <QSettings> 。 QSettings类的简单使用方法如下，请记住以下几个函数即可： 构造函数 ，用来指定INI文件名。 QSettings(const QString &fileName, Fo...
微信客服聊天界面仿制（聊天记录保存在本地数据库）
最新发布
07-25
源码直接下载地址： https://pan.quark.cn/s/a4b39357ea24 在信息技术领域中，开发一个模仿微信客服交流平台的界面是一项普遍的需求，尤其是在构建企业级沟通工具时。这个名为"仿微信客服交流界面（具备聊天信息本地数据库存储功能）"的项目，致力于为用户创造一个类似于微信的互动体验，并且已经完成了聊天信息在本地数据库中的保存功能，以此保障信息的安全性和可恢复性。另外，项目还包含了网络传输的代码，旨在帮助开发者更好地理解和将此功能整合进自己的应用程序中。 现在让我们深入探究聊天界面的构建过程。微信客服交流界面通常由以下几个核心组件构成：用户个人照片、昵称展示、消息展示气泡、时间标记、输入区域以及发送控制键。这些组件需要经过细致的排布，以确保界面既清晰又便于使用。在用户界面设计方面，一般会采用 Material Design 或者 iOS 的 Human Interface Guidelines 来设计符合平台标准的界面。源代码文件 ChatUIDemo 可能包含了这一界面实现的代码，开发者可以通过查看和调整这个文件来个性化自己的聊天界面。 聊天信息在本地数据库中的存储是一项核心功能。在该项目中，或许选用了SQLite作为轻量级数据库，因为它易于集成，支持事务处理，适合存储结构化的数据，例如用户标识符、接收者标识符、消息内容、发送时刻等。通过运用SQL指令，能够执行数据的增加、删除、修改和查询操作，从而确保聊天记录的完整性和一致性。开发者可能需要关注如何将新接收到的消息添加到数据库中，以及如何从数据库中获取历史记录并在界面上进行展示。 在网络传输方面，可能通过HTTP或HTTPS协议来实现，并且使用了诸如AFNetworking（iOS）或O...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值