程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 用VB開發應用程序如何使用INI文件

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

編輯:VB綜合教程
為了方便用戶使用和使系統具有靈活性,大多數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文件,代碼如下:
  
  
  
  SubForm1_Load()
  ……
  Forml.Height=GetIniN(“窗體1”,“高度”,6000)
  Form1.Width=GetIniN(“窗體1”,“高度”,4500)
  EndSub
  ……
  SubForm1_Unload()
  ……
  SetIniN“窗體1”,“高度”,Me.Height
  SetIniN“窗體1,”寬度“,Me.Width
  ……
  EndSub->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved