INI文件編程

???????在我們寫的程序當中,總有一些配置信息需要保存下來,以便完成程序的功能,最簡單的辦法就是將這些信息寫入INI文件中,程序初始化時再讀入.具體應用如下: 　　一.將信息寫入.INI文件中. 　　1.所用的WINAPI函數原型為:? BOOL?WritePrivateProfileString( LPCTSTR?lpAppName, LPCTSTR?lpKeyName, LPCTSTR?lpString, LPCTSTR?lpFileName );? 　　其中各參數的意義: 　　　LPCTSTR?lpAppName?是INI文件中的一個字段名. 　　　LPCTSTR?lpKeyName?是lpAppName下的一個鍵名,通俗講就是變量名. 　　　LPCTSTR?lpString?是鍵值,也就是變量的值,不過必須為LPCTSTR型或CString型的. LPCTSTR?lpFileName?是完整的INI文件名. 2.具體使用方法:設現有一名學生,需把他的姓名和年齡寫入?c:/stud/student.ini?文件中.? CString?strName,strTemp; int?nAge; strName="張三"; nAge=12; ::WritePrivateProfileString("StudentInfo","Name",strName,"c://stud//student.ini");? 此時c:/stud/student.ini文件中的內容如下: [StudentInfo] 　　　Name=張三 　　3.要將學生的年齡保存下來,只需將整型的值變為字符型即可: strTemp.Format("%d",nAge); ::WritePrivateProfileString("StudentInfo","Age",strTemp,"c://stud//student.ini");? 　　二.將信息從INI文件中讀入程序中的變量. 　　1.所用的WINAPI函數原型為: DWORD?GetPrivateProfileString( LPCTSTR?lpAppName,? LPCTSTR?lpKeyName,? LPCTSTR?lpDefault,? LPTSTR?lpReturnedString,? DWORD?nSize,? LPCTSTR?lpFileName? );? 　　其中各參數的意義:? 　　　前二個參數與?WritePrivateProfileString中的意義一樣. 　　　lpDefault?:?如果INI文件中沒有前兩個參數指定的字段名或鍵名,則將此值賦給變量.? 　　　lpReturnedString?:?接收INI文件中的值的CString對象,即目的緩存器. 　　　nSize?:?目的緩存器的大小. 　　　lpFileName?:?是完整的INI文件名. 　　2.具體使用方法:現要將上一步中寫入的學生的信息讀入程序中. CString?strStudName; int?nStudAge;? GetPrivateProfileString("StudentInfo","Name","默認姓名",strStudName.GetBuffer(MAX_PATH),MAX_PATH,"c://stud//student.ini");? 　　執行后?strStudName?的值為:"張三",若前兩個參數有誤,其值為:"默認姓名". 　　3.讀入整型值要用另一個WINAPI函數:? UINT?GetPrivateProfileInt( LPCTSTR?lpAppName,? LPCTSTR?lpKeyName,? INT?nDefault,? LPCTSTR?lpFileName? );? 　　這里的參數意義與上相同.使用方法如下: nStudAge=GetPrivateProfileInt("StudentInfo","Age",10,"c://stud//student.ini");? 　　三.循環寫入多個值,設現有一程序,要將最近使用的幾個文件名保存下來,具體程序如下: 　　1.寫入: CString?strTemp,strTempA; int?i; int?nCount=6; file://共有6個文件名需要保存 for(i=0;i?{strTemp.Format("%d",i); strTempA=文件名; file://文件名可以從數組,列表框等處取得. ::WritePrivateProfileString("UseFileName","FileName"+strTemp,strTempA,"c://usefile//usefile.ini"); } strTemp.Format("%d",nCount); ::WritePrivateProfileString("FileCount","Count",strTemp,"c://usefile//usefile.ini"); file://將文件總數寫入,以便讀出.? 　　2.讀出: nCount=::GetPrivateProfileInt("FileCount","Count",0,"c://usefile//usefile.ini"); for(i=0;i?{strTemp.Format("%d",i); strTemp="FileName"+strTemp; ::GetPrivateProfileString("CurrentIni",strTemp,"default.fil",?strTempA.GetBuffer(MAX_PATH),MAX_PATH,"c://usefile//usefile.ini"); file://使用strTempA中的內容. }? 　　補充四點: 　　　1.INI文件的路徑必須完整,文件名前面的各級目錄必須存在,否則寫入不成功,該函數返回?FALSE?值. 　　　2.文件名的路徑中必須為?//?,因為在VC++中,?//?才表示一個?/?. 　　　3.也可將INI文件放在程序所在目錄,此時?lpFileName?參數為:?".//student.ini". 　　　4.從網頁中粘貼源代碼時,最好先粘貼至記事本中,再往VC中粘貼,否則易造成編譯錯誤,開始時我也十分不解,好好的代碼怎么就不對呢?后來才找到這個方法.還有一些代碼中使用了全角字符如:＜，＼等,也會 造成編譯錯誤. INI文件編程 ????INI文件在系統配置及應用程序參數保存與設置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法，其中Delphi中操作INI文件，最為簡潔，這是因為Delphi3提供了一個TInifile類，使我們可以非常靈活的處理INI文件。? 一、有必要了解INI文件的結構： ;注釋 [小節名] 關鍵字=值 ... 　?INI文件允許有多個小節，每個小節又允許有多個關鍵字，?"="后面是該關鍵字的值。? 　?值的類型有三種：字符串、整型數值和布爾值。其中字符串存貯在INI文件中時沒有引號， 布爾真值用1表示，布爾假值用0表示。? 　?注釋以分號";"開頭。? 二、定義 　?1、在Interface的Uses節增加IniFiles；? 　?2、在Var變量定義部分增加一行：? myinifile:Tinifile; 　?然后，就可以對變量myinifile進行創建、打開、讀取、寫入等操作了。? 三、打開INI文件 myinifile:=Tinifile.create('program.ini'); 　?上面這一行語句將會為變量myinifile與具體的文件?program.ini建立聯系，然后，就可以通過變量myinifile，來讀寫program.ini文件中的關鍵字的值了。值得注意的是，如果括號中的文件名沒有指明路徑的話，那么這個Program.ini文件會存儲在Windows目錄中,把Program.ini文件存儲在應用程序當前目錄中的方法是：為其指定完整的路徑及文件名。下面的兩條語句可以完成這個功能：? Filename:=ExtractFilePath(Paramstr(0))+'program.ini'; myinifile:=Tinifile.Create(filename); 四、讀取關鍵字的值 　?針對INI文件支持的字符串、整型數值、布爾值三種數據類型，TINIfiles類提供了三種不同的對象方法來讀取INI文件中關鍵字的值。? 　?假設已定義變量vs、vi、vb分別為string、?integer、boolean類型。?? vs:=myinifile.Readstring('小節名','關鍵字',缺省值); vi:=myinifile.Readinteger('小節名','關鍵字',缺省值); vb:=myinifile.Readbool('小節名','關鍵字',缺省值); 　?其中缺省值為該INI文件不存在該關鍵字時返回的缺省值。? 五、寫入INI文件 　?同樣的，TInifile類也提供了三種不同的對象方法，向INI文件寫入字符串、整型數及布爾類型的關鍵字。?? myinifile.writestring('小節名','關鍵字',變量或字符串值); myinifile.writeinteger('小節名','關鍵字',變量或整型數值); myinifile.writebool('小節名','關鍵字',變量或True或False); 　?當這個INI文件不存在時，上面的語句還會自動創建該INI文件。? 六、刪除關鍵字 　?除了可用寫入方法增加一個關鍵字，Tinifile類還提供了一個刪除關鍵字的對象方法：? myinifile.DeleteKey('小節名','關鍵字'); 七、小節操作 　?增加一個小節可用寫入的方法來完成，刪除一個小節可用下面的對象方法：? ???myinifile.EraseSection('小節名'); 　?另外Tinifile類還提供了三種對象方法來對小節進行操作：? 　?myinifile.readsection('小節名',TStrings變量);可將指定小節中的所有關鍵字名讀取至一個字符串列表變量中；? 　?myinifile.readsections(TStrings變量);可將INI文件中所有小節名讀取至一個字符串列表變量中去。? 　?myinifile.readsectionvalues('小節名',TStrings變量);可將INI文件中指定小節的所有行（包括關鍵字、=、值）讀取至一個字符串列表變量中去。? 八、釋放 在適當的位置用下面的語句釋放myinifile： myinifile.distory; 九、一個實例 　?下面用一個簡單的例子(如圖)，演示了建立、讀取、存貯INI文件的方法。myini.ini文件中包含有"程序參數"小節，和用戶名稱（字符串）、是否正式用戶（布爾值）和已運行時間（整型值）三個關鍵字。程序在窗體建立讀取這些數據，并在窗體釋放時寫myini.ini文件。? 　?附源程序清單? unit?Unit1; interface uses ??Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,inifiles,StdCtrls,ExtCtrls; type ??TForm1?=?class(TForm) ????Edit1:?TEdit; ????CheckBox1:?TCheckBox; ????Edit2:?TEdit; ????Label1:?TLabel; ????Label2:?TLabel; ????Timer1:?TTimer; ????Label3:?TLabel; ????procedure?FormCreate(Sender:?TObject); ????procedure?FormDestroy(Sender:?TObject); ????procedure?Timer1Timer(Sender:?TObject); ??private ????{?Private?declarations?} ??public ????{?Public?declarations?} ??end; var ??Form1:?TForm1; implementation var ??myinifile:TInifile; {$R?*.DFM} procedure?TForm1.FormCreate(Sender:?TObject); var?filename:string; begin ??filename:=ExtractFilePath(paramstr(0))+'myini.ini'; ??myinifile:=TInifile.Create(filename); ??edit1.Text:=?myinifile.readstring('程序參數','用戶名稱','缺省的用戶名稱'); ??edit2.text:=?inttostr(myinifile.readinteger('程序參數','已運行時間',0)); ??checkbox1.Checked:=?myinifile.readbool('程序參數','是否正式用戶',False); end; procedure?TForm1.FormDestroy(Sender:?TObject); begin ??myinifile.writestring('程序參數','用戶名稱',edit1.Text); ??myinifile.writeinteger('程序參數','已運行時間',strtoint(edit2.text)); ??myinifile.writebool('程序參數','是否正式用戶',checkbox1.Checked); ??myinifile.Destroy; end; procedure?TForm1.Timer1Timer(Sender:?TObject); begin ??edit2.Text:=inttostr(strtoint(edit2.text)+1); end; end. 　?程序在Pwin95、Delphi3下調試通過。

總結

以上是生活随笔為你收集整理的INI文件编程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。