用VB开发应用程序如何使用INI文件

为了方便用户使用和使系统具有灵活性，大多数 Win-dows 应用程序将用户所做的选择以及各种变化的系统信息记录在初始化 (INI) 文件中。因此，当系统的环境发生变化时，可以直接修改 INI 文件，而无需修改程序。由此可见， INI 文件对系统功能是至关重要的。本文将介绍采用 Visual Basic for Windows(下称 VB) 开发 Windows 应用程序时如何读写 INI 文件。

INI 文件是文本文件，由若干部分 (section) 组成，在每个带括号的标题下面，是若干个以单个单词开头的关键词 (keyword) 和一个等号，每个关键词会控制应用程序某个功能的工作方式，等号右边的值 (value) 指定关键词的操作方式。其一般形式如下 :

[section1]

keyword1=valuel

keyword2=value2

… …

[section2]

keyword1=value1

keyword2=value2

… …

其中，如果等号右边无任何内容 (即 value 为空)，那就表示 Windows 应用程序已为该关键词指定了缺省值，如果在整个文件中找不到某个关键词 (或整个一部分)，那同样表示为它们指定了缺省值。各个部分所出现的顺序是无关紧要的，在每一个部分里，各个关键词的顺序同样也无关紧要。

读写 INI 文件通常有两种方式 : 一是在 Windows 中用 “记事本” (Notepad) 对其进行编辑，比较简单，无需赘述; 二是由 Windows 应用程序读写 INI 文件，通常是应用程序运行时读取 INI 文件中的信息，退出应用程序时保存用户对运行环境的某些修改。

关键词的值的类型多为字符串或整数型，应分两种情况读写。为了使程序具有可维护性和可移植性，最好把对 INI 文件的读写封装在一个模块 (RWINI.BAS) 中，在 RWI-NI.BAS 中构造 GetIniS 和 GetIniN 函数以及 SetIniS 和 Se-tIniN 过程，在这些函数和过程中需要使用 WindowsAPI 的 “GetPrivateprofileString”、 “GetPrivateProfileInt” 和 “WritePrivateProfileString” 函数。

RWINI.BAS 模块的程序代码如下 :

在 General-Declearation 部分中声明使用到的 Windows API 函数 :

Declare Function GetprivateprofileString Lib “Ker-nel” (ByVal lpAppName As String，

ByVal lpKeyName As String， ByVal lpDefault As String， ByVal lpRetrm-StringAs

String， ByVal cbReturnString As Integer， ByVal Filename As String) As Integer

Declare Function GetPrivatePfileInt Lib “Kernel” (ByVal lpAppName As String，

ByVal lpKeyName As String， ByVal lpDefault As Integer， ByVal Filename As String) As

Integer

Declare Funciton WritePrivateprofileString Lib “Kernel” (ByVal lpApplicationName

As String， ByVal lpKeyName As String， ByVal lpString As String， ByVal lplFileName

As String) As Integer

Function GetIniS(ByVal SectionName As String， ByVal KeyWord As String， ByValDefString

As String) As String

Dim ResultString As String *144， Temp As Integer

Dim s As String， i As Integer

Temp%=GetPrivateProfileString(SectionName， KeyWord， “”， ResultString， 144， AppProfileName())

‘检索关键词的值

If Temp%＞ 0 Then ‘关键词的值不为空

s=“”

For i=1 To 144

If Asc(Mid$(ResultString， i， 1)) =0 Then

Exit For

Else

s=s & Mid$(ResultString， i， 1)

End If

Else

Temp%=WritePrivateProfilesString(sectionname， KeyWord， DefString， ppProfileName())

‘将缺省值写入 INI 文件

s=DefString

End If

GetIniS=s

End Function

Function GetIniN(ByVal SectionName As String， ByVal KeyWord As String， ByValDefValue

As Ineger) As Integer

Dim d As Long， s As String

d=DefValue

GetIniN=GetPrivate ProfileInt(SectionName，

KeyWord， DefValue， ppProfileName())

If d ＜＞ DefValue Then

s=“” &d

d=WritePrivateProfileString(SectionName，

KeyWord， s， AppProfileName())

End If

End Function

Sub SetIniS(ByVal SectionName As String， BtVa KeyWord As String， ByVal ValStr

As String)

Dim res%

res%=WritePrivateprofileString(SectionName， KeyWord， ValStr， AppProfileName())

End Sub

Sub SetIniN(ByVal SectionName As String， ByVal KeyWord As String， ByVal ValInt

As Integer)

Dim res%， s$

s$=Str$(ValInt)

res%=WriteprivateProfileString(SectionName， KeyWord， s$， AppProfileName())

End Sub

SectionName 为每一部分的标题， KeyWord 为关键词， GetIniS 和 GetIniN 中的 DefValue 为关键词的缺省值， SetIniS 和 SetIniN 的 ValStr 和 ValInt 为要写入 INI 文件的关键词的值。为了能更好地说明如何使用以上函数和过程，下面举两个实例。

实例 1:

开发应用程序通常要使用数据库和其它一些文件，这些文件的目录 (包括路径和文件名) 不应在程序中固定，而是保存在 INI 文件中，程序运行时由 INI 文件中读入。读入数据库文件的代码如下 :

Dim Databasename As String

Databasename=GetIniS(“数据库”， “职工”， “”)

If DatabaseName=“” Then DatabaseName=InputBox(“请输入数据库《职工》的目录”)，

App.Title)’ 也可通过 “文件对话框” 进行选择

On Error Resume Next

Set db=OpenDatabas(DatabaseName)

If Err ＜＞ 0 Then

MsgBox“打开数据库失败 !”， MB-

ICONSTOP， App.Title:Goto ErrorProcessing

Else

SetIniS“数据库”， “职工”， DatabaseName

End If

On Error GoTo 0

… …

实例 2:

为了方便用户操作，有时需要保存用户界面的某些信息，例如窗口的高度和宽度等。装载窗体时，从 INI 文件中读入窗体高度和宽度，卸载窗体时将窗体当前高度和宽度存入 INI 文件，代码如下 :

Sub Form1_Load()

… …

Forml.Height=GetIniN(“窗体 1”， “高度”， 6000)

Form1.Width=GetIniN(“窗体 1”， “高度”， 4500)

End Sub

… …

Sub Form1_Unload()

… …

SetIniN“窗体 1”， “高度”， Me.Height

SetIniN“窗体 1，” 宽度 “， Me.Width

… …

End Sub