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

为了方便用户使用和使系统具有灵活性，大多数win-dows应用程序将用户所做的选择以及各种变化的系统信息记录在初始化(ini)文件中。因此，当系统的环境发生变化时，可以直接修改ini文件，而无需修改程序。由此可见，ini文件对系统功能是至关重要的。本文将介绍采用visualbasicforwindows(下称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部分中声明使用到的windowsapi函数:

declarefunctiongetprivateprofilestringlib“ker-nel”(byvallpappnameasstring，
byvallpkeynameasstring，byvallpdefaultasstring，byvallpretrm-stringas
string，byvalcbreturnstringasinteger，byvalfilenameasstring)asinteger
declarefunctiongetprivatepfileintlib“kernel”(byvallpappnameasstring，
byvallpkeynameasstring，byvallpdefaultasinteger，byvalfilenameasstring)as
integer
declarefuncitonwriteprivateprofilestringlib“kernel”(byvallpapplicationname
asstring，byvallpkeynameasstring，byvallpstringasstring，byvallplfilename
asstring)asinteger
functiongetinis(byvalsectionnameasstring，byvalkeywordasstring，byvaldefstring
asstring)asstring
dimresultstringasstring*144，tempasinteger
dimsasstring，iasinteger
temp%=getprivateprofilestring(sectionname，keyword，“”，resultstring，144，appprofilename())
‘检索关键词的值
iftemp%＞0then‘关键词的值不为空
s=“”
fori=1to144
ifasc(mid$(resultstring，i，1))=0then
exitfor
else
s=s&mid$(resultstring，i，1)
endif
next
else
temp%=writeprivateprofilesstring(sectionname，keyword，defstring，ppprofilename())
‘将缺省值写入ini文件
s=defstring
endif
getinis=s
endfunction
functiongetinin(byvalsectionnameasstring，byvalkeywordasstring，byvaldefvalue
asineger)asinteger
dimdaslong，sasstring
d=defvalue
getinin=getprivateprofileint(sectionname，
keyword，defvalue，ppprofilename())
ifd＜＞defvaluethen
s=“”&d
d=writeprivateprofilestring(sectionname，
keyword，s，appprofilename())
endif
endfunction
subsetinis(byvalsectionnameasstring，btvakeywordasstring，byvalvalstr
asstring)
dimres%
res%=writeprivateprofilestring(sectionname，keyword，valstr，appprofilename())
endsub
subsetinin(byvalsectionnameasstring，byvalkeywordasstring，byvalvalint
asinteger)
dimres%，s$
s$=str$(valint)
res%=writeprivateprofilestring(sectionname，keyword，s$，appprofilename())
endsub

sectionname为每一部分的标题，keyword为关键词，getinis和getinin中的defvalue为关键词的缺省值，setinis和setinin的valstr和valint为要写入ini文件的关键词的值。为了能更好地说明如何使用以上函数和过程，下面举两个实例。

实例1:

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

dimdatabasenameasstring
databasename=getinis(“数据库”，“职工”，“”)
ifdatabasename=“”thendatabasename=inputbox(“请输入数据库《职工》的目录”)，
app.title)’也可通过“文件对话框”进行选择
onerrorresumenext
setdb=opendatabas(databasename)
iferr＜＞0then
msgbox“打开数据库失败!”，mb-
iconstop，app.title:gotoerrorprocessing
else
setinis“数据库”，“职工”，databasename
endif
onerrorgoto0
……

实例2:

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

sub form1_load()
……
forml.height=getinin(“窗体1”，“高度”，6000)
form1.width=getinin(“窗体1”，“高度”，4500)
endsub
……
sub form1_unload()
……
setinin“窗体1”，“高度”，me.height
setinin“窗体1，”宽度“，me.width
……
end sub