时间：2020-07-10 15:53作者：admin来源：未知人气：1007我要评论(0)
我们写一些小代码时，有时需要将部分配置信息保存在用户的电脑上，一般可以采取保存在注册表，XML 文件和 INI 文件等方法。这几种方法各有优缺点，我觉得当配置信息简单时，保存在 INI 文件还是很高效的。这里提供一段小代码，用于读取和写入 INI 文件
具体代码：
Option Explicit
#If Win64 Then
Public Declare PtrSafe 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
Public Declare PtrSafe Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
ByVal lpString As Any, ByVal lpFileName As String) As Long
#Else
Public 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
Public 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
#End If
Public Const MAXCOUNT As Long = 256
'********************************************************************
'用途： 读取指定的键值
'返回值： 指定的键值
'参数名 说明
'FileName Ini 文件全名(含路径)
'Section 节点的名称
'Key 键名
'********************************************************************
Public Function ReadStringFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String
Dim x As Long
Dim xBuff As String * MAXCOUNT
GetPrivateProfileString Section, Key, "", xBuff, MAXCOUNT, FileName
x = InStr(xBuff, Chr(0))
ReadStringFromIni = Trim(Left(xBuff, x - 1))
End Function
'********************************************************************
'用途： 写入指定的键值
'参数名 说明
'FileName Ini 文件全名(含路径)
'Section 节点的名称
'Key 键名
'Value 需要写入的键值
'********************************************************************
Public Sub WriteStringToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
Dim xBuff As String * MAXCOUNT
xBuff = Value + Chr(0)
WritePrivateProfileString Section, Key, xBuff, FileName
End Sub
注意：代码可用于 32 位和 64 位 Office； 请将下载后的文件解压到同一文件夹
| 1文件名称 | 1下载链接 |
|---|---|
| INIFileReadWrite.zip | http://pan.baidu.com/s/1hqCCVdi |
相关阅读 Excel有哪些常用的数学函数？Excel取消表格中虚线的两种方法Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式，发给心仪的她/他Excel表格如何自动求和
热门文章
excel 两表数据快速对比，高手都是这样做，四种方法随你选
.xlsm是什么文件格式，以及xlsm文件怎么打开的方法
excel if函数如何多个条件并列
excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均
最新文章
Excel有哪些常用的数学函数？
Excel取消表格中虚线的两种方法
Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦
人气排行 excel 两表数据快速对比，高手都是这样做，四种方法随你选.xlsm是什么文件格式，以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解，条件统计重复值，告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>