有關文件管理

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

2、功能。中專門提供了一個公用對話框控件，用于實現(xiàn)以上功能。 公用對話框是一個外部控件，不在標準工具箱中，使用時需公用對話框是一個外部控件，不在標準工具箱中，使用時需要設計者自己從部件中添加。具體方法為：要設計者自己從部件中添加。具體方法為：右擊右擊“工具箱工具箱”，選擇，選擇“部件部件”“工程工程”主菜單選項中選擇主菜單選項中選擇“部件部件”“公用對話框公用對話框”控件在程序運行時是一個不可見的控件。控件在程序運行時是一個不可見的控件。在程序代碼中要用該控件的有關在程序代碼中要用該控件的有關方法方法讓其顯示出指定格式的對讓其顯示出指定格式的對話框。其話框。其方法方法有有6種：種： 方法方法所顯示

3、的對話框所顯示的對話框ShowOpenShowOpen顯示顯示“打開打開”對話框對話框ShowSaveShowSave顯示顯示“另存為另存為”對話框對話框ShowColorShowColor顯示顯示“顏色顏色”對話框對話框ShowFontShowFont顯示顯示“字體字體”對話框對話框ShowPrinterShowPrinter顯示顯示“打印打印”對話框對話框ShowHelpShowHelp激活激活WindowsWindows幫助引擎幫助引擎主要屬性：主要屬性：FileNameFileName屬性：設置默認文件名或返回所選文件的路徑及名稱。屬性：設置默認文件名或返回所選文件的路徑及名稱。Nam

4、e=CommonDialog1.FileNameName=CommonDialog1.FileNameDialogTitleDialogTitle屬性：設置或返回對話框的標題。屬性：設置或返回對話框的標題。CommonDialog1. CommonDialog1. DialogTitleDialogTitle”請選擇文件請選擇文件”InitDirInitDir屬性：設置或返回對話框訪問的初始文件目錄。屬性：設置或返回對話框訪問的初始文件目錄。CommonDialog1. CommonDialog1. InitDirInitDir”D:ABCD:ABC”FilterFilter屬性：設置文件的過

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

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

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

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

9、輸入一些文字，在標簽中顯示，用顏色對話框設置文字的前景色和背景色，用字體顏色對話框設置文字的前景色和背景色，用字體對話框設置文字的字號及字體。對話框設置文字的字號及字體。 要求：不能有要求：不能有BugBug！一、添加一、添加“公共對話框公共對話框”控件控件 “MicroSoft Common Dialog Control 6.0” 二、使用二、使用“公共對話框公共對話框”方法方法所顯示的對話框所顯示的對話框ShowOpenShowOpen顯示顯示“打開打開”對話框對話框ShowSaveShowSave顯示顯示“另存為另存為”對話框對話框ShowColorShowColor顯示顯示“顏色顏色”

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

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

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

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

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

15、限制軟件使用的時間）案例程序案例程序3 3：電子打鈴器電子打鈴器隨機文件是可以按任意次序讀寫的文件，它是以記隨機文件是可以按任意次序讀寫的文件，它是以記錄為單位進行存儲的，每個記錄的長度相同，但具有不錄為單位進行存儲的，每個記錄的長度相同，但具有不同的記錄號。當寫數(shù)據(jù)時，只要告訴記錄號就可以將數(shù)同的記錄號。當寫數(shù)據(jù)時，只要告訴記錄號就可以將數(shù)據(jù)寫入文件中的指定位置；而當讀取數(shù)據(jù)時，只要知道據(jù)寫入文件中的指定位置；而當讀取數(shù)據(jù)時，只要知道記錄號就可以立即找到所要的數(shù)據(jù)，因此這種方法訪問記錄號就可以立即找到所要的數(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打開隨機文件打開隨機文件 Open Open 文件名文件名 For random As For random As 文件號文件號 Len=Len=記錄長度記錄

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

18、量中。5. 5. 例例9 93 ,3 ,Page 191Page 191 VBVB提供了三個與文件有關的控件，這些控件是制作文件對話提供了三個與文件有關的控件，這些控件是制作文件對話框時必不可少的工具。框時必不可少的工具。 二、目錄列表框：二、目錄列表框：DirectoryListBoxDirectoryListBox三、文件列表框：三、文件列表框：FileListBoxFileListBox 一、驅動器列表框：一、驅動器列表框：DriveListBox DriveListBox 1 1 重要屬性重要屬性 屬性：設定或讀取當前目錄的完整路徑。屬性：設定或讀取當前目錄的完整路徑。 代碼中設定方法

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

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