VB開(kāi)發(fā)應(yīng)用程序如何使用INI文件

1、用VB開(kāi)發(fā)應(yīng)用程序如何使用INI文件為了方便用戶使用和使系統(tǒng)具有靈活性,大多數(shù)Win-dows應(yīng)用程序?qū)⒂脩羲龅倪x擇以及各種變化的系統(tǒng)信息記錄在初始化(INI文件中。因此,當(dāng)系統(tǒng)的環(huán)境發(fā)生變化時(shí),可以直接修改INI文件,而無(wú)需修改程序。由此可見(jiàn),INI文件對(duì)系統(tǒng)功能是至關(guān)重要的。本文將介紹采用VisualBasicforWindows(下稱VB開(kāi)發(fā)Windows應(yīng)用程序時(shí)如何讀寫(xiě)INI文件。INI文件是文本文件,由若干部分(section組成,在每個(gè)帶括號(hào)的標(biāo)題下面,是若干個(gè)以單個(gè)單詞開(kāi)頭的關(guān)鍵詞(keyword和一個(gè)等號(hào),每個(gè)關(guān)鍵詞會(huì)控制應(yīng)用程序某個(gè)功能的工作方式,等號(hào)右邊的值(value

2、指定關(guān)鍵詞的操作方式。其一般形式如下:Section1KeyWord1=ValuelKeyWord2=Value2Section2KeyWord1=Value1KeyWord2=Value2其中,如果等號(hào)右邊無(wú)任何內(nèi)容(即Value為空,那就表示W(wǎng)indows應(yīng)用程序已為該關(guān)鍵詞指定了缺省值,如果在整個(gè)文件中找不到某個(gè)關(guān)鍵詞(或整個(gè)一部分,那同樣表示為它們指定了缺省值。各個(gè)部分所出現(xiàn)的順序是無(wú)關(guān)緊要的,在每一個(gè)部分里,各個(gè)關(guān)鍵詞的順序同樣也無(wú)關(guān)緊要。讀寫(xiě)INI文件通常有兩種方式:一是在Windows中用“記事本”(Notepad對(duì)其進(jìn)行編輯,比較簡(jiǎn)單,無(wú)需贅述;二是由Windows應(yīng)用程序讀寫(xiě)

3、INI文件,通常是應(yīng)用程序運(yùn)行時(shí)讀取INI文件中的信息,退出應(yīng)用程序時(shí)保存用戶對(duì)運(yùn)行環(huán)境的某些修改。關(guān)鍵詞的值的類(lèi)型多為字符串或整數(shù)型,應(yīng)分兩種情況讀寫(xiě)。為了使程序具有可維護(hù)性和可移植性,最好把對(duì)INI文件的讀寫(xiě)封裝在一個(gè)模塊(RWINI.BAS中,在RWI-NI.BAS中構(gòu)造GetIniS和GetIniN函數(shù)以及SetIniS和Se-tIniN過(guò)程,在這些函數(shù)和過(guò)程中需要使用WindowsAPI的“GetPrivateprofileString”、“GetPrivateProfileInt”和“WritePrivateProfileString”函數(shù)。RWINI.BAS模塊的程序代碼如下:在

4、General-Declearation部分中聲明使用到的WindowsAPI函數(shù):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(檢索關(guān)鍵詞的值If Temp%>0 Then 關(guān)鍵詞的值不為空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(將缺省值寫(xiě)入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 為每一部分的標(biāo)題,KeyWord 為關(guān)鍵詞,GetIniS 和 GetIniN 中的 DefValue 為關(guān)鍵詞的缺省值,SetIniS 和 SetIniN 的 ValStr 和 ValInt 為要寫(xiě)入 INI 文件的關(guān)鍵詞的值。 為了能更好地說(shuō)明如何使用以上函數(shù)和過(guò)程,下面舉兩個(gè)實(shí)例。 實(shí)例 1: 開(kāi)發(fā)應(yīng)用程序通常要使用數(shù)據(jù)庫(kù)和其它一些文件,這

11、些文件的目錄(包括路徑和文件名 不應(yīng)在程序中固定,而是保存在 INI 文件中,程序運(yùn)行時(shí)由 INI 文件中讀入。讀入數(shù)據(jù)庫(kù)文件 的代碼如下: Dim Databasename As String Databasename=GetIniS(“數(shù)據(jù)庫(kù)”,“職工”,"" If DatabaseName="" Then DatabaseName=InputBox(“請(qǐng)輸入數(shù)據(jù)庫(kù)職工的目 錄”,App.Title 也可通過(guò)“文件對(duì)話框”進(jìn)行選擇 On Error Resume Next Set db=OpenDatabas(DatabaseName If Err0 Then MsgBox“打開(kāi)數(shù)據(jù)庫(kù)失敗!”,MB-ICONSTOP,App.Title:GotoErrorProcessing Else Set IniS“數(shù)據(jù)庫(kù)”,“職工”,DatabaseName End If On Error GoTo 0 實(shí)例 2: 為了方便用戶操作,有時(shí)需要保存用戶界面的某些信息,例如窗口的高度和寬度等。裝載 窗體時(shí),從 INI 文件中讀入窗體高度和寬度,卸載窗體時(shí)將窗體當(dāng)前高度和寬度存入 INI 文件, 代碼如下: Private S