有關(guān)文件管理

1、9.1 公共對(duì)話框公共對(duì)話框 9.2數(shù)據(jù)文件數(shù)據(jù)文件 9.3 文件系統(tǒng)控件文件系統(tǒng)控件 9.4 文件系統(tǒng)對(duì)象文件系統(tǒng)對(duì)象 * 對(duì)話框技術(shù)在軟件中應(yīng)用的非常廣泛，第對(duì)話框技術(shù)在軟件中應(yīng)用的非常廣泛，第3 3章中介紹的章中介紹的消息框消息框MsgBoxMsgBox和和輸入框輸入框InputBoxInputBox是兩種最為簡單的對(duì)話框。是兩種最為簡單的對(duì)話框。像像“打開打開” ” 、“另存為另存為” ” 、“顏色顏色” ” 、“字體字體” ” 、“打打印印” ” 、“幫助幫助”等對(duì)話框在各類軟件中使用頻繁。為此，等對(duì)話框在各類軟件中使用頻繁。為此，VBVB中專門提供了一個(gè)公用對(duì)話框控件，用于實(shí)現(xiàn)以上

2、功能。中專門提供了一個(gè)公用對(duì)話框控件，用于實(shí)現(xiàn)以上功能。 公用對(duì)話框是一個(gè)外部控件，不在標(biāo)準(zhǔn)工具箱中，使用時(shí)需公用對(duì)話框是一個(gè)外部控件，不在標(biāo)準(zhǔn)工具箱中，使用時(shí)需要設(shè)計(jì)者自己從部件中添加。具體方法為：要設(shè)計(jì)者自己從部件中添加。具體方法為：右擊右擊“工具箱工具箱”，選擇，選擇“部件部件”“工程工程”主菜單選項(xiàng)中選擇主菜單選項(xiàng)中選擇“部件部件”“公用對(duì)話框公用對(duì)話框”控件在程序運(yùn)行時(shí)是一個(gè)不可見的控件?？丶诔绦蜻\(yùn)行時(shí)是一個(gè)不可見的控件。在程序代碼中要用該控件的有關(guān)在程序代碼中要用該控件的有關(guān)方法方法讓其顯示出指定格式的對(duì)讓其顯示出指定格式的對(duì)話框。其話框。其方法方法有有6種：種： 方法方法所顯示

3、的對(duì)話框所顯示的對(duì)話框ShowOpenShowOpen顯示顯示“打開打開”對(duì)話框?qū)υ捒騍howSaveShowSave顯示顯示“另存為另存為”對(duì)話框?qū)υ捒騍howColorShowColor顯示顯示“顏色顏色”對(duì)話框?qū)υ捒騍howFontShowFont顯示顯示“字體字體”對(duì)話框?qū)υ捒騍howPrinterShowPrinter顯示顯示“打印打印”對(duì)話框?qū)υ捒騍howHelpShowHelp激活激活WindowsWindows幫助引擎幫助引擎主要屬性：主要屬性：FileNameFileName屬性：設(shè)置默認(rèn)文件名或返回所選文件的路徑及名稱。屬性：設(shè)置默認(rèn)文件名或返回所選文件的路徑及名稱。Nam

4、e=CommonDialog1.FileNameName=CommonDialog1.FileNameDialogTitleDialogTitle屬性：設(shè)置或返回對(duì)話框的標(biāo)題。屬性：設(shè)置或返回對(duì)話框的標(biāo)題。CommonDialog1. CommonDialog1. DialogTitleDialogTitle”請(qǐng)選擇文件請(qǐng)選擇文件”InitDirInitDir屬性：設(shè)置或返回對(duì)話框訪問的初始文件目錄。屬性：設(shè)置或返回對(duì)話框訪問的初始文件目錄。CommonDialog1. CommonDialog1. InitDirInitDir”D:ABCD:ABC”FilterFilter屬性：設(shè)置文件的過

5、濾條件。屬性：設(shè)置文件的過濾條件。CommonDialog1.Filter = CommonDialog1.Filter = ( (* *. .* *)|)|* *. .* *| | ( (* *.txt)|.txt)|* *.txt.txtCommonDialog1.ShowOpenCommonDialog1.ShowOpen該控件除了具有文該控件除了具有文本框控件的所有功能以本框控件的所有功能以外，還具有一些高級(jí)功外，還具有一些高級(jí)功能，如：同一文本框中能，如：同一文本框中的內(nèi)容可以具有不同的的內(nèi)容可以具有不同的顏色、字體、字號(hào)等屬顏色、字體、字號(hào)等屬性，并且可以將文本中性，并且可以將文本

6、中的內(nèi)容直接與文件的讀的內(nèi)容直接與文件的讀寫相聯(lián)系。寫相聯(lián)系。 Microsoft Microsoft RichTextBoxRichTextBox Control 6.0 Control 6.0控件控件CommonDialog1.ShowColorCommonDialog1.ShowColor ColorColor屬性：設(shè)置初始顏色或返回用戶所選定的顏色。屬性：設(shè)置初始顏色或返回用戶所選定的顏色。 Form1.BackColor=CommonDialog1.ColorForm1.BackColor=CommonDialog1.ColorFlagsFlags屬性：設(shè)置對(duì)話框的外觀等。屬性：設(shè)置

7、對(duì)話框的外觀等。 CommonDialog1.ShowFontCommonDialog1.ShowFontColorColor屬性：記錄使用者所選擇的字體顏色。屬性：記錄使用者所選擇的字體顏色。FontBoldFontBold屬性：記錄使用者是否選擇了粗體字。屬性：記錄使用者是否選擇了粗體字。FontItalicFontItalic屬性：記錄使用者是否選擇了斜體字。屬性：記錄使用者是否選擇了斜體字。FontStrikethruFontStrikethru屬性：記錄使用者是否選擇了加刪除線。屬性：記錄使用者是否選擇了加刪除線。FontUnderlineFontUnderline屬性：記錄使用者是

8、否選擇了加下畫線。屬性：記錄使用者是否選擇了加下畫線。FontSizeFontSize屬性：記錄使用者所選擇的字體大小。屬性：記錄使用者所選擇的字體大小。FlagsFlags屬性：屬性： CommonDialog1.ShowPrinterCommonDialog1.ShowPrinterCopiesCopies屬性：使用者所設(shè)定的打印份數(shù)。屬性：使用者所設(shè)定的打印份數(shù)。 FromPageFromPage屬性：使用者所設(shè)定的開始頁碼。屬性：使用者所設(shè)定的開始頁碼。 ToPageToPage屬性：使用者所設(shè)定的結(jié)束頁碼。屬性：使用者所設(shè)定的結(jié)束頁碼。 用輸入框輸入一些文字，在標(biāo)簽中顯示，用用輸入框

9、輸入一些文字，在標(biāo)簽中顯示，用顏色對(duì)話框設(shè)置文字的前景色和背景色，用字體顏色對(duì)話框設(shè)置文字的前景色和背景色，用字體對(duì)話框設(shè)置文字的字號(hào)及字體。對(duì)話框設(shè)置文字的字號(hào)及字體。 要求：不能有要求：不能有BugBug！一、添加一、添加“公共對(duì)話框公共對(duì)話框”控件控件 “MicroSoft Common Dialog Control 6.0” 二、使用二、使用“公共對(duì)話框公共對(duì)話框”方法方法所顯示的對(duì)話框所顯示的對(duì)話框ShowOpenShowOpen顯示顯示“打開打開”對(duì)話框?qū)υ捒騍howSaveShowSave顯示顯示“另存為另存為”對(duì)話框?qū)υ捒騍howColorShowColor顯示顯示“顏色顏色”

10、對(duì)話框?qū)υ捒騍howFontShowFont顯示顯示“字體字體”對(duì)話框?qū)υ捒騍howPrinterShowPrinter顯示顯示“打印打印”對(duì)話框?qū)υ捒騍howHelpShowHelp激活激活WindowsWindows幫助引擎幫助引擎順序文件也就是普通的文本文件，它是將字符的順序文件也就是普通的文本文件，它是將字符的編碼按先后順序一個(gè)接一個(gè)地存放在文件中，因此占編碼按先后順序一個(gè)接一個(gè)地存放在文件中，因此占用的磁盤空間很小。用的磁盤空間很小。但是，當(dāng)用戶查找一個(gè)數(shù)據(jù)時(shí)，必須從文件的開但是，當(dāng)用戶查找一個(gè)數(shù)據(jù)時(shí)，必須從文件的開頭一個(gè)一個(gè)地按順序找，直到找到為止。因此，這種頭一個(gè)一個(gè)地按順序找，

11、直到找到為止。因此，這種文件的缺點(diǎn)是數(shù)據(jù)訪問的靈活性差。文件的缺點(diǎn)是數(shù)據(jù)訪問的靈活性差。InputInput用來從文件中讀取數(shù)據(jù)，若文件不存在，則產(chǎn)生一個(gè)錯(cuò)誤。用來從文件中讀取數(shù)據(jù)，若文件不存在，則產(chǎn)生一個(gè)錯(cuò)誤。OutputOutput用來創(chuàng)建一個(gè)待寫的文件；若文件已存在，則將覆蓋。用來創(chuàng)建一個(gè)待寫的文件；若文件已存在，則將覆蓋。AppendAppend用追加的方式打開文件，若文件不存在，則創(chuàng)建該文件。用追加的方式打開文件，若文件不存在，則創(chuàng)建該文件。文件號(hào)：文件號(hào)：1 1至至511511?？捎??？捎肍reeFileFreeFile函數(shù)檢測可以使用的文件號(hào)。函數(shù)檢測可以使用的文件號(hào)。文件使用完

12、后必須用文件使用完后必須用CloseClose語句關(guān)閉，否則將可能丟失數(shù)據(jù)！語句關(guān)閉，否則將可能丟失數(shù)據(jù)！關(guān)閉文件時(shí)，若沒有指明文件號(hào)，則關(guān)閉所有已打開的文件。關(guān)閉文件時(shí)，若沒有指明文件號(hào)，則關(guān)閉所有已打開的文件。 文件必須是以文件必須是以InputInput方式打開的。方式打開的。 格式：格式：LineInput LineInput # #FileNumberFileNumber，VarNameVarName 功能：從指定的順序文件中讀出一行數(shù)據(jù)給一個(gè)字符串變量。功能：從指定的順序文件中讀出一行數(shù)據(jù)給一個(gè)字符串變量。 格式：格式：Input #Input #FileNumberFileNum

13、ber，VarListVarList 功能：從指定的順序文件中讀取數(shù)據(jù)給變量序列。功能：從指定的順序文件中讀取數(shù)據(jù)給變量序列。 格式：格式：InputInput（LengthLength，F(xiàn)ileNumberFileNumber） 功能：從指定文件中讀取指定長度的字符串作為函數(shù)值返回。功能：從指定文件中讀取指定長度的字符串作為函數(shù)值返回。：讀文件的內(nèi)容讀至文本框。讀文件的內(nèi)容讀至文本框。 3 3順序文件的寫入操作順序文件的寫入操作 文件必須是以文件必須是以O(shè)utputOutput或或AppendAppend方式打開的。方式打開的。 格式：格式：Print #Print # ， ,|;,|;功能

14、：將數(shù)據(jù)寫入指定的文件當(dāng)中。數(shù)值有前后空格。功能：將數(shù)據(jù)寫入指定的文件當(dāng)中。數(shù)值有前后空格。 格式：格式：Write #Write # ， 功能：將數(shù)據(jù)寫入指定的文件當(dāng)中。字符串有雙引號(hào)。功能：將數(shù)據(jù)寫入指定的文件當(dāng)中。字符串有雙引號(hào)。：將文本框中所寫的內(nèi)容以文件的形式保存。將文本框中所寫的內(nèi)容以文件的形式保存。 例例9-29-2：簡易文本編輯器：簡易文本編輯器 缺陷：退出時(shí)或打開別的文件時(shí)，對(duì)已修改的文件沒有任何保護(hù)措施！缺陷：退出時(shí)或打開別的文件時(shí)，對(duì)已修改的文件沒有任何保護(hù)措施！案例程序案例程序1 1：通用電話號(hào)碼本通用電話號(hào)碼本 案例程序案例程序2 2：限時(shí)（限制軟件使用的時(shí)間）限時(shí)（

15、限制軟件使用的時(shí)間）案例程序案例程序3 3：電子打鈴器電子打鈴器隨機(jī)文件是可以按任意次序讀寫的文件，它是以記隨機(jī)文件是可以按任意次序讀寫的文件，它是以記錄為單位進(jìn)行存儲(chǔ)的，每個(gè)記錄的長度相同，但具有不錄為單位進(jìn)行存儲(chǔ)的，每個(gè)記錄的長度相同，但具有不同的記錄號(hào)。當(dāng)寫數(shù)據(jù)時(shí)，只要告訴記錄號(hào)就可以將數(shù)同的記錄號(hào)。當(dāng)寫數(shù)據(jù)時(shí)，只要告訴記錄號(hào)就可以將數(shù)據(jù)寫入文件中的指定位置；而當(dāng)讀取數(shù)據(jù)時(shí)，只要知道據(jù)寫入文件中的指定位置；而當(dāng)讀取數(shù)據(jù)時(shí)，只要知道記錄號(hào)就可以立即找到所要的數(shù)據(jù)，因此這種方法訪問記錄號(hào)就可以立即找到所要的數(shù)據(jù)，因此這種方法訪問數(shù)據(jù)速度快，但它占用的磁盤空間大。數(shù)據(jù)速度快，但它占用的磁盤空間

16、大。1. 1. 定義記錄類型定義記錄類型Type Type 姓名、電話、備注等信息的記錄類型姓名、電話、備注等信息的記錄類型 Name as StringName as String* *4040 Phone as String Phone as String* *4040 Comments as String Comments as String* *100100End TypeEnd TypeDim X As Dim X As 2 2打開隨機(jī)文件打開隨機(jī)文件 Open Open 文件名文件名 For random As For random As 文件號(hào)文件號(hào) Len=Len=記錄長度記錄

17、長度 檢測記錄長度用檢測記錄長度用LenLen函數(shù)：函數(shù)：reclenreclen=Len(Who)=Len(Who)3 3讀取隨機(jī)文件讀取隨機(jī)文件 # # ， ， = 2147483647= 2147483647，即，即LongLong類型數(shù)據(jù)的最大值。類型數(shù)據(jù)的最大值。 必須為與文件中數(shù)據(jù)類型相同的記錄類型。必須為與文件中數(shù)據(jù)類型相同的記錄類型。 若省去若省去，則從當(dāng)前位置讀??；但要注意，則從當(dāng)前位置讀?。坏⒁狻?，”不能省不能省。4 4寫入隨機(jī)文件寫入隨機(jī)文件 # # ， ， 給文件寫數(shù)據(jù)之前，必須先將要寫入的內(nèi)容存入記錄類型變量中。給文件寫數(shù)據(jù)之前，必須先將要寫入的內(nèi)容存入記錄類型變

18、量中。5. 5. 例例9 93 ,3 ,Page 191Page 191 VBVB提供了三個(gè)與文件有關(guān)的控件，這些控件是制作文件對(duì)話提供了三個(gè)與文件有關(guān)的控件，這些控件是制作文件對(duì)話框時(shí)必不可少的工具?？驎r(shí)必不可少的工具。 二、目錄列表框：二、目錄列表框：DirectoryListBoxDirectoryListBox三、文件列表框：三、文件列表框：FileListBoxFileListBox 一、驅(qū)動(dòng)器列表框：一、驅(qū)動(dòng)器列表框：DriveListBox DriveListBox 1 1 重要屬性重要屬性 屬性：設(shè)定或讀取當(dāng)前目錄的完整路徑。屬性：設(shè)定或讀取當(dāng)前目錄的完整路徑。 代碼中設(shè)定方法

19、：代碼中設(shè)定方法：目錄列表框目錄列表框. .Path = Path = 路徑路徑 Dir1.Path = E:Dir1.Path = E:vbvb 2 2 重要事件重要事件 事件和事件和事件。事件。 1 1重要屬性重要屬性屬性：設(shè)定當(dāng)前目錄。屬性：設(shè)定當(dāng)前目錄。代碼中設(shè)定方法：文件列表框代碼中設(shè)定方法：文件列表框. .Path = Path = 路徑路徑屬性：傳回所選定的文件名稱。屬性：傳回所選定的文件名稱。屬性：設(shè)定文件名的過濾方式，即文件通配符。屬性：設(shè)定文件名的過濾方式，即文件通配符。 代碼中設(shè)定方法：文件列表框代碼中設(shè)定方法：文件列表框. .Pattern = Pattern = 通配

20、符通配符2 2案例程序案例程序案例程序案例程序5 5：簡易音樂播放器簡易音樂播放器 案例程序案例程序6 6：我的點(diǎn)歌臺(tái)我的點(diǎn)歌臺(tái) 案例程序案例程序7 7：圖片自動(dòng)連續(xù)顯示圖片自動(dòng)連續(xù)顯示 案例程序案例程序8 8：成批更改文件名成批更改文件名案例程序案例程序9 9：打印保存目錄名稱打印保存目錄名稱1.1.FreeFileFreeFile函數(shù)函數(shù)得到一個(gè)在程序中沒有使用的文件號(hào)。得到一個(gè)在程序中沒有使用的文件號(hào)。2.2.EofEof函數(shù)函數(shù)格式：格式：EofEof( (filenumberfilenumber) )功能：檢測文件是否結(jié)束，結(jié)束時(shí)返回功能：檢測文件是否結(jié)束，結(jié)束時(shí)返回TrueTrue。3.ChDir3.ChDir語句語句格式：格式：ChDir ChDir pathpath功能：改變當(dāng)前目錄。功能：改變當(dāng)前目錄。4.4.ChDriveChDrive語句語句格式：格式：ChDrive ChDrive DriveDrive功能：改變當(dāng)前盤。功能：改變當(dāng)前盤。5.5.MkDirMkDir語句語句格式：格式：MkDir MkDir pathpath功能：建立子目錄。功能：建立子目錄。6.6.RmDirRmDir語句語句格式：格式：RmDir R