用VB開發應用程序如何使用INI文件

6、用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函數:

Declare Function GetprivateprofileString Lib"Ker-nel"(ByVallpAppName As String，ByVallpKeyName As String，ByVallpDefault As String，ByVal lpRetrm-String As String，ByVal cbReturnString As Integer，ByVal Filename As String)As Integer

Declare FunctionGetPrivatePfileInt Lib "Kernel"(ByVal lpAppName As String，ByVal lpKeyName As String，ByVal lpDefault As Integer，ByVal Filename As String)As Integer

Declare FuncitonWritePrivateprofileString Lib "Kernel"(ByVal lpApplicationName As String，ByVal lpKeyName As String，ByVal lpString As String，ByVal lplFileName As String)As Integer

寫入INI文件

Function GetIniS(ByVal SectionName As String，ByVal KeyWord As String，ByVal DefString As String)As String
Dim ResultString As String * 144，Temp As Integer
Dims As String，i As Integer
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

讀INI文件

FunctionGetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefValue As Ineger)AsInteger
DimdAsLong，sAsString
d=DefValue
GetIniN=GetPrivateProfileInt(SectionName，KeyWord，DefValue，ppProfileName())
If d＜＞DefValueThen
    s=""&d
    d=WritePrivateProfileString(SectionName，KeyWord，s，AppProfileName())
EndIf
EndFunction

SubSetIniS(ByVal SectionName As String，BtVal KeyWord As String，ByVal ValStr As String)
Dim res%
res%=WritePrivateprofileString(SectionName，KeyWord，ValStr，AppProfileName())
EndSub

SubSetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValValIntAsInteger)
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("數據庫"，"職工"，"")
If DatabaseName=""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