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

2019-11-18 17:32:16

字體：大中小

供稿：網(wǎng)友

為了方便用戶使用和使系統(tǒng)具有靈活性，大多數(shù)Win-dows應(yīng)用程序?qū)⒂脩羲龅倪x擇以及各種變化的系統(tǒng)信息記錄在初始化(INI)文件中。因此，當(dāng)系統(tǒng)的環(huán)境發(fā)生變化時，可以直接修改INI文件，而無需修改程序。由此可見，INI文件對系統(tǒng)功能是至關(guān)重要的。本文將介紹采用VisualBasicforWindows(下稱VB)開發(fā)Windows應(yīng)用程序時如何讀寫INI文件。

INI文件是文本文件，由若干部分(section)組成，在每個帶括號的標(biāo)題下面，是若干個以單個單詞開頭的關(guān)鍵詞(keyWord)和一個等號，每個關(guān)鍵詞會控制應(yīng)用程序某個功能的工作方式，等號右邊的值(value)指定關(guān)鍵詞的操作方式。其一般形式如下:

[section1]
keyword1=valuel
keyword2=value2
……
[section2]
keyword1=value1
keyword2=value2
……

其中，如果等號右邊無任何內(nèi)容(即value為空)，那就表示W(wǎng)indows應(yīng)用程序已為該關(guān)鍵詞指定了缺省值，如果在整個文件中找不到某個關(guān)鍵詞(或整個一部分)，那同樣表示為它們指定了缺省值。各個部分所出現(xiàn)的順序是無關(guān)緊要的，在每一個部分里，各個關(guān)鍵詞的順序同樣也無關(guān)緊要。

讀寫INI文件通常有兩種方式:一是在Windows中用"記事本"(Notepad)對其進行編輯，比較簡單，無需贅述;二是由Windows應(yīng)用程序讀寫INI文件，通常是應(yīng)用程序運行時讀取INI文件中的信息，退出應(yīng)用程序時保存用戶對運行環(huán)境的某些修改。

關(guān)鍵詞的值的類型多為字符串或整數(shù)型，應(yīng)分兩種情況讀寫。為了使程序具有可維護性和可移植性，最好把對INI文件的讀寫封裝在一個模塊(RWINI.BAS)中，在RWI-NI.BAS中構(gòu)造GetIniS和GetIniN函數(shù)以及SetIniS和Se-tIniN過程，在這些函數(shù)和過程中需要使用WindowsAPI的"GetapplicationNameAsString，ByVallpKeyNameAsString，ByVallpStringAsString，ByVallplFileNameAsString)AsInteger
FunctionGetIniS(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefStringAsString)AsString
DimResultStringAsString*144，TempAsInteger
DimsAsString，iAsInteger
Temp=GetPrivateProfileString(SectionName，KeyWord，""，ResultString，144，AppProfileName())
‘檢索關(guān)鍵詞的值
IfTemp＞0Then‘關(guān)鍵詞的值不為空
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為每一部分的標(biāo)題，KeyWord為關(guān)鍵詞，GetIniS和GetIniN中的DefValue為關(guān)鍵詞的缺省值，SetIniS和SetIniN的ValStr和ValInt為要寫入INI文件的關(guān)鍵詞的值。為了能更好地說明如何使用以上函數(shù)和過程，下面舉兩個實例。

實例1:

開發(fā)應(yīng)用程序通常要使用數(shù)據(jù)庫和其它一些文件，這些文件的目錄(包括路徑和文件名)不應(yīng)在程序中固定，而是保存在INI文件中，程序運行時由INI文件中讀入。讀入數(shù)據(jù)庫文件的代碼如下:
DimDatabasenameAsString
Databasename=GetIniS("數(shù)據(jù)庫"，"職工"，"")
IfDatabaseName=""ThenDatabaseName=InputBox("請輸入數(shù)據(jù)庫《職工》的目錄")，
App.Title)'也可通過"文件對話框"進行選擇
OnErrorResumeNext
Setdb=OpenDatabas(DatabaseName)
IfErr＜＞0Then
MsgBox"打開數(shù)據(jù)庫失敗!"，MB-
ICONSTOP，App.Title:GotoErrorProcessing
Else
SetIniS"數(shù)據(jù)庫"，"職工"，DatabaseName
EndIf
OnErrorGoTo0
……
實例2:

為了方便用戶操作，有時需要保存用戶界面的某些信息，例如窗口的高度和寬度等。裝載窗體時，從INI文件中讀入窗體高度和寬度，卸載窗體時將窗體當(dāng)前高度和寬度存入INI文件，代碼如下:
SubForm1_Load()
……
Forml.Height=GetIniN("窗體1"，"高度"，6000)
Form1.Width=GetIniN("窗體1"，"高度"，4500)
EndSub
……
SubForm1_Unload()
……
SetIniN"窗體1"，"高度"，Me.Height
SetIniN"窗體1，"寬度"，Me.Width
……
EndSub->

上一篇：通過VisualBasic獲取網(wǎng)卡地址

下一篇：VisualBasic程序中如何啟動默認的撥號連接