【转】VB应用程序中使用INI文件

VB应用程序中使用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文件可使用户在数据库路径改变时免去修改原代码之苦。在实际开发中,若结合一定的维护界面,也可使应用程序容易维护,增强友好性。