VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 使用INI文件的一点体会
发表评论(0)作者:, 平台:, 阅读:11989, 日期:2000-03-12
在VB应用程序中使用INI文件的一点体会


天津财经学院经济信息管理系 金培权


摘要 结合实例介绍了在VB中调用Windows API函数操作初始化文件的方法和优点.

关键词  VB Windows API INI文件


一、INI文件概述


Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序

初始化信息和运行环境信息的文本文件。例如Windows 3.1中两个著名的INI文件

win.ini和system.ini就在Windows启动时定义了Windows环境中鼠标响应速度、使

用的外壳(shell)程序等设置。Windows系统附带的许多应用程序也都有自己的INI

文件,例如控制面板的INI 文件为control.ini,它也同样定义了控制面板的有关设

置。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件

具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干

关键字(key)及相应的值(value)。段的格式如下:


[SectionName]

KeyName=Value


其中SectionName和KeyName分别是段名和关键字名,Value为关键字对应的设定值。

需要加以注意的是:


(1)段名必须加以"["和"]",且"["必须在屏幕的第一列;

(2)关键字名也必须从屏幕的第一列开始书写,且后面必须紧跟"=";

(3)可以对文件加以注释,每行注释须以";"开头。


在Windows中,可以通过手工编辑INI 文件来改变应用程序设置。如要想将Windows

的外壳程序改为文件管理器,则可将system.ini中[boot]段下的"shell=progman.

exe"改为"shell=winfile.exe"。有些设置也可以直接在应用程序界面上更改,但实

际上也是通过修改INI文件来保存这些修改的。


二、在VB中操作INI文件的几个Windows API函数


在开发应用程序时,我们可以创建应用程序自己的INI文件,通过INI文件保存应用程

序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦

程序的运行环境需要变更,则可以通过直接修改INI文件或在程序中提供专门的界面

间接地修改INI文件来保证程序的可用性。


VB(Visual Basic)语言是近年来十分流行的一种面向对象的编程语言,但VB本身并

不提供操纵INI文件的函数。所幸的是, VB支持DLL(Dynamic Link Library)的调用。

(一个DLL事实上就是一个可供其它支持DLL调用的应用程序调用的外部函数集。)

DLL中的函数称为API(应用编程接口,Application Programming Interface)函数。

我们可以通过调用相应的API函数来实现操纵INI文件的功能。下面列出了相关的

API函数及其说明。在使用这些函数之前,必须首先在VB的模块文件(.bas)中用

Declare语句对它们进行声明。




三、实例分析


下面就笔者参加天津财经学院教学办公自动化(OA)系统开发的实践介绍一下具体的

实现方法。假定项目文件为man.mak,对应的INI文件为man.ini,其部分内容如下:


[数据库]

文件名=\\DEC_LX5120\DB\OA.mdb

[开户银行]

类型数=3

B1=中国人民银行

B2=中国农业银行

B3=中国工商银行


1. 在程序启动时(执行SUB MAIN()和SUB FORM_LOAD()),从man.ini文件中读取相应

的值并进行以后的操作。其中SUB MAIN()中的有关代码如下:


Dim DbName as String*255 '数据库名

Dim n as Integer

'得到INI文件名,INIfileName为一全局变量

INIfileName=App.Path&"\"&app.ExeName&".ini"

'从man.ini中读取数据库文件名

n=GetPrivateProfileString("数据库","文件名","",DbName,Len(DbName),

INIfileName)

DbName=Left(DbName,n)

'打开数据库,Db为一全局变量

Set Db=OpenDatabase(DbName)

在FORM_LOAD()过程中,读取了man.ini中有关的内容并加入相应的组合框(Combo

Box)列表中。这里只给出对"[开户银行]"段的相应操作,代码如下:

Dim BankCount as Integer '银行类型数

Dim BankName as String*255 '银行名

Dim i as Integer,n as Integer

'读取原有银行类型数

BankCount=GetPrivateProfileInt("开户银行","类型数",0,INIfileName)

'读取银行名并加入到组合框cmbBank中

For I=1 to BankCount

n=GetPrivateProfileString("开户银行","B"&i,BankName,Len(BankName),

INIfileName)

BankName=Left(BankName,n)

cmbBank.AddItem BankName

Next I


2. 在程序中提供了一个专用维护界面,该界面通过操作INI文件的相应内容来实现

相应的修改。


'下面代码实现数据库路径的修改

Dim n as Integer

'txtDbName.Text对应新的数据库文件名

If txtDbName.Text="" Then

MsgBox "数据库文件名不能为空!",MB_ICONSTOP,App.Title

txtDbName.SetFocus

Exit Sub

Else

'修改数据库文件名

n=WritePrivateProfileString("数据库","文件名",txtDbName.Text,

INIfileName)

End If


'下面代码往组合框"开户银行"中增加一个新银行

Dim NewBank as String '新银行名

Dim BankCount as Integer '银行类型数

Dim I as Integer,n as Integer

'输入新银行名

NewBank=InputBox("增加开户银行。",App.Title,"")

If NewBank="" Then

MsgBox "银行名不能为空!",MB_ICONSTOP,App.Title

Exit Sub

Else

'判断输入的银行名是否已存在于列表中

For I=0 to cmbBank.ListCount-1

If NewBank=cmbBank.List(i) Then

'存在则终止

MsgBox NewBank&"已存在于列表中!",MB_ICONSTOP,App.Title)

Exit Sub

End If

Next I

'读取原银行类型数

BankCount=GetPriVateProfileInt("开户银行","类型数",0,INIfileName)

'将银行类型数增1

BankCount=BankCount+1

n=WritePrivateProfileString("开户银行","类型数",Str(BankCount),

INIfileName)

'将新银行名写入INI文件中

n=WritePrivateProfileString("开户银行","B"&BankCount,NewBank,

INIfileName)

End If


四、结论


综上所述,在实际的VB应用程序开发中,适当地利用INI文件,可以很好地改善程序的

可维护性和可用性。尤其在数据库访问中使用INI文件可使用户在数据库路径改变

时免去修改原代码之苦。在实际开发中,若结合一定的维护界面,也可使应用程序容

易维护,增强友好性。