VB API 快速读写INI的模块

Visual Basci 读写 INI 文件模块的实际应用

多年前编写了一个模块。使用API快速存储/读取 INI文件内数据。

这是一个实例：

以下代码直接在VB中粘贴即可。

1. 窗体代码如下

‘---------------------------------------------------------------------------------------------------------

'窗体中添加 一个 Text 控件 ，默认名称 Text1

'添加两个按钮 默认名称 Command1 和 Command2

Private Sub Command1_Click()

'写入INI文件

SaveINI \"主键\子键\

If Err.Number = 0 Then MsgBox \"存储完毕，文件保存在: \" & vbCrLf & App.Path & \"\\TestINIFiles.ini\" Else MsgBox \"出现了一个未知问题，错误代码为：\" & Err.Number & vbCrLf & \"错误描述：\" & Err.Description

End Sub

Private Sub Command2_Click()

'读取INI文件内容

Text1.Text = GetINI(\"主键\子键\

End Sub

2. 模块内代码如下

‘---------------------------------------------------------------------------------------------------------

'VB 操作INI文件的.模块中使用,可实现对INI文件的读写.以前用VB的时候写的.供学习的朋友参考.

'如果是初学者不知道如何调用的话,可以联系我: QQ: 10006776 (注明)

'VB模块代码 读写INI文件

Option Explicit

Public Declare Function WritePrivateProfileString Lib \"kernel32\" Alias \"WritePrivateProfileStringA\"

(ByVal

lpApplicationName

As

String,

ByVal

lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long

Public Declare Function GetPrivateProfileString Lib \"kernel32\" Alias \"GetPrivateProfileStringA\" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Function GetINI(ItemName As String, SubName As String, FilePath As String) As String

'读取内容

Dim RetStr As String

RetStr = String(65535, Chr(0))

GetINI = Replace(Left(RetStr, GetPrivateProfileString(ItemName, ByVal SubName, \"\

End Function

Public Function SaveINI(ItemName As String, SubName As String, Data As String, FilePath As String)

'写入内容

On Error Resume Next

SetAttr FilePath, vbNormal

Dim R As String '存储类型

R = WritePrivateProfileString(ItemName, SubName, Data, FilePath) '(组,项,数值,文件路径)

If R <> 1 Then MsgBox \"数据写入错误,请确定文件可写！\写入失败！\"

End Function

例图