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

1、用VB开发应用程序如何使用INI文件为了方便用户使用和使系统具有灵活性,大多数Win-dows应用程序将用户所做的选择以及各种变化的系统信息记录在初始化(INI文件中。因此,当系统的环境发生变化时,可以直接修改INI文件,而无需修改程序。由此可见,INI文件对系统功能是至关重要的。本文将介绍采用VisualBasicforWindows(下称VB开发Windows应用程序时如何读写INI文件。INI文件是文本文件,由若干部分(section组成,在每个带括号的标题下面,是若干个以单个单词开头的关键词(keyword和一个等号,每个关键词会控制应用程序某个功能的工作方式,等号右边的值(value

2、指定关键词的操作方式。其一般形式如下:Section1KeyWord1=ValuelKeyWord2=Value2Section2KeyWord1=Value1KeyWord2=Value2其中,如果等号右边无任何内容(即Value为空,那就表示Windows应用程序已为该关键词指定了缺省值,如果在整个文件中找不到某个关键词(或整个一部分,那同样表示为它们指定了缺省值。各个部分所出现的顺序是无关紧要的,在每一个部分里,各个关键词的顺序同样也无关紧要。读写INI文件通常有两种方式:一是在Windows中用“记事本”(Notepad对其进行编辑,比较简单,无需赘述;二是由Windows应用程序读写

3、INI文件,通常是应用程序运行时读取INI文件中的信息,退出应用程序时保存用户对运行环境的某些修改。关键词的值的类型多为字符串或整数型,应分两种情况读写。为了使程序具有可维护性和可移植性,最好把对INI文件的读写封装在一个模块(RWINI.BAS中,在RWI-NI.BAS中构造GetIniS和GetIniN函数以及SetIniS和Se-tIniN过程,在这些函数和过程中需要使用WindowsAPI的“GetPrivateprofileString”、“GetPrivateProfileInt”和“WritePrivateProfileString”函数。RWINI.BAS模块的程序代码如下:在

4、General-Declearation部分中声明使用到的WindowsAPI函数:Public Declare Function GetprivateprofileString Lib“Kernel”(ByVal lpAppName As String,ByVal lpKeyName As _String,ByVal lpDefault As String,ByVal lpRetrm-String As String,ByVal cbReturnString As Integer, _ByVal Filename As StringAs IntegerPublic Declare Funct

5、ion GetPrivatePfileInt Lib“Kernel”(ByVal lpApp e As String,ByVal lpKeyName As String, _ByVal lpDefault As Integer,ByVal Filename As StringAs IntegerPublic Declare Funciton WritePrivateprofileString Lib“Kernel”(ByVal lpApplicationName As String, _ByVal lpKeyName As String,ByVal lpString As String,ByV

6、al lplFileName As StringAs IntegerPublic Function GetIniS(ByVal SectionName As String,ByValKeyWord As String,ByVal DefString As StringAs StringDim ResultString As String*144,Temp As IntegerDim s As String,i As IntegerTemp%=GetPrivateProfileString(SectionName,KeyWord,"",ResultString,144,App

7、Pro fileName(检索关键词的值If Temp%>0 Then 关键词的值不为空s=""For i=1 To 144If Asc(Mid$(ResultString,I,1=0 ThenExitForElses=s & Mid$(ResultString,I,1End IfNextElseTemp%=WritePrivateProfilesString(sectionname,KeyWord,DefString,ppProfileNam e(将缺省值写入INI文件s=DefStringEnd IfGetIniS=sEnd FunctionPublic

8、Function GetIniN(ByVal SectionName As String,ByVal KeyWord As String,ByVal DefValue As InegerAs IntegerDim d As Long,s As Stringd=DefValueGetIniN=GetPrivateProfileInt(SectionName,KeyWord,DefValue,ppProfileName(If d<>DefValue Thens=""d=WritePrivateProfileString(SectionName,KeyWord,s,A

9、ppProfileName(End IfEnd FunctionPublic Sub SetIniS(ByVal SectionName As String,BtVal KeyWord As String,ByVal ValStr As StringDim res%res%=WritePrivateprofileString(SectionName,KeyWord,ValStr,AppProfileName(End Sub Public Sub SetIniN(ByVal SectionName As String,ByVal KeyWord As String,ByVal ValInt As

10、 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: 开发应用程序通常要使用数据库和其它一些文件,这

11、些文件的目录(包括路径和文件名 不应在程序中固定,而是保存在 INI 文件中,程序运行时由 INI 文件中读入。读入数据库文件 的代码如下: Dim Databasename As String Databasename=GetIniS(“数据库”,“职工”,"" If DatabaseName="" Then DatabaseName=InputBox(“请输入数据库职工的目 录”,App.Title 也可通过“文件对话框”进行选择 On Error Resume Next Set db=OpenDatabas(DatabaseName If Err0 Then MsgBox“打开数据库失败!”,MB-ICONSTOP,App.Title:GotoErrorProcessing Else Set IniS“数据库”,“职工”,DatabaseName End If On Error GoTo 0 实例 2: 为了方便用户操作,有时需要保存用户界面的某些信息,例如窗口的高度和宽度等。装载 窗体时,从 INI 文件中读入窗体高度和宽度,卸载窗体时将窗体当前高度和宽度存入 INI 文件, 代码如下: Private S