第6章

文件系統(tǒng)控件

本章學(xué)習(xí)要點1.掌握驅(qū)動器列表框、目錄列表框和文件列表框的使用。2.了解設(shè)計文件的復(fù)制、刪除和改名的方法。3.了解設(shè)計文件的屬性的方法。4.掌握順序文件和隨機文件的特點。5.掌握文件的打開、關(guān)閉和對文件的讀寫操作。6.了解排序的算法。7.了解程序的錯誤類型和處理方法。

第6章

文件系統(tǒng)控件6.1如何運用文件系統(tǒng)控件6.2文件格式與文件操作6.1如何運用文件系統(tǒng)控件

任何一個具有實際意義的程序，都會產(chǎn)生一定數(shù)量的輸出。在前面的各章中，我們只是將程序的輸出結(jié)果以某種形式顯示在屏幕上。這樣操作的結(jié)果是，一旦程序結(jié)束，輸出的數(shù)據(jù)也隨即消失。然而，在實際應(yīng)用中，我們經(jīng)常需要將程序運行過程中產(chǎn)生的各種有效數(shù)據(jù)長期地保存下來，以便日后使用。為此，我們通常的做法是將這些有用的信息以文件的形式保存在磁盤上。本章我將學(xué)習(xí)實現(xiàn)文件操作的控件和對文件的一些基本操作。6.1.1預(yù)備知識

VB6.0中提供了驅(qū)動器列表框、目錄列表框和文件列表框3種標(biāo)準(zhǔn)控件，它們用于顯示一臺計算機中所包含的磁盤驅(qū)動器、目錄以及文件等相關(guān)信息。下圖顯示了三種文件系統(tǒng)控件在工具箱中對應(yīng)的圖標(biāo)。驅(qū)動器列表框文件列表框目錄列表框6.1.1.1驅(qū)動器列表框（DriveListBox）1、驅(qū)動器列表框控件是下拉式列表框。在缺省時在用戶系統(tǒng)上顯示當(dāng)前驅(qū)動器。當(dāng)該控件獲得焦點時，用戶可輸入任何有效的驅(qū)動器標(biāo)識符，或者單擊驅(qū)動器列表框右側(cè)的箭頭。用戶單擊箭頭時將列表框下拉以列舉當(dāng)前系統(tǒng)中所有能用的驅(qū)動器的名稱。若用戶從中選定某一驅(qū)動器的名字，則這個驅(qū)動器名將出現(xiàn)在列表框的頂端。2、驅(qū)動器列表框的Drive屬性用于返回設(shè)置當(dāng)前所選驅(qū)動器，其默認(rèn)值為系統(tǒng)的當(dāng)前工作驅(qū)動器。該屬性在設(shè)計時不能使用。

6.1.1.2目錄列表框（DirListBox）1、目錄列表框控件的功能是以目錄樹形式顯示指定目錄的所有上下級目錄。該控件顯示了目錄的層次化列表，它從最高層目錄開始顯示用戶系統(tǒng)上的當(dāng)前驅(qū)動器目錄結(jié)構(gòu)。起初，當(dāng)前目錄名被突出顯示，而且當(dāng)前目錄和在目錄層次結(jié)構(gòu)中比它更高層的目錄一起向根目錄方向縮進。在目錄列表框中當(dāng)前目錄下的子目錄也縮進顯示。在列表中上下移動時將依次突出顯示每個目錄項。用戶可以通過文件列表打開任意目錄下的一個文件。2、目錄列表框的Path屬性用于返回或設(shè)置當(dāng)前所選目錄，其默認(rèn)值為系統(tǒng)的當(dāng)前工作目錄，該屬性在設(shè)計時不能使用。3、驅(qū)動器列表框和目錄列表框是兩個相互獨立的控件，二者之間沒有任何的關(guān)聯(lián)。為了實現(xiàn)兩個列表框顯示內(nèi)容的一致性，在驅(qū)動器列表框的Change事件中完成設(shè)計。

6.1.1.3文件列表框（FileListBox）1、文件列表框控件的功能是以列表形式顯示指定目錄中的文件名。該控件顯示了一組通過文件類型選定的文件。用戶可以在其中選擇一個或一組文件。2、文件列表框的Path屬性用于返回或設(shè)置文件所在目錄，其默認(rèn)值為系統(tǒng)當(dāng)前工作目錄，該屬性在設(shè)計階段不能使用。

6.1.2實訓(xùn)一——文件系統(tǒng)控件的使用【任務(wù)一：】設(shè)計一個含有文件系統(tǒng)控件的窗體。運行程序時，將選中的文件名顯示在標(biāo)簽框中。

1．任務(wù)分析：本任務(wù)要求在窗體中添加一個驅(qū)動器列表框，一個目錄列表框，一個文件列表框、四個標(biāo)簽和一個命令按鈕。6.1.2實訓(xùn)一——文件系統(tǒng)控件的使用2．操作步驟：步驟一：用戶界面設(shè)計。步驟二：屬性設(shè)置，見表所示。對象屬性屬性值Form1Name（名稱）Frmex5_1Caption驅(qū)動器列表框的使用

Label1Caption請選擇驅(qū)動器：Label2Caption請選擇目錄：Label3Caption請選擇文件：Label4Alignment2-centerAppearance1-3D

AutosizeTrue

Bankcolor白色

Caption置空

Font大小：小四

Command1Name（名稱）cmdexitCaption退出

步驟三：事件與事件過程設(shè)計PrivateSubForm_Load()Label4.Visible=False’窗體加載時顯示信息的標(biāo)簽設(shè)置為不顯示狀態(tài)EndSubPrivateSubDir1_Change()File1.Path=Dir1.Path’使文件列表框和目錄列表框保持同步EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.Drive’使目錄列表框和驅(qū)動器列表框保持同步EndSubPrivateSubFile1_Click()Label4.Visible=TrueLabel4.Caption="當(dāng)前選中的文件是"&File1.FileNameEndSubPrivateSubcmdexit_Click()EndEndSub【理論概括】思考點你在實驗后的理解實際涵義此窗體的功能描述完成將目錄列表框，驅(qū)動器列表框和文件列表框同步的程序設(shè)計驅(qū)動器列表框的作用顯示當(dāng)前的驅(qū)動器目錄列表框的作用顯示當(dāng)前的目錄狀態(tài)文件列表框的作用顯示當(dāng)前目錄中的文件File1_Click()事件的含義將當(dāng)前選中的文件名顯示到標(biāo)簽框中如何保持目錄列表與驅(qū)動器同步Dir1.Path=Drive1.Drive如何保持文件列表與目錄同步File1.Path=Dir1.Path【仿制任務(wù)】

制作一個圖片瀏覽器。當(dāng)用戶雙擊某個圖片文件時，立即在圖像框中顯示該圖像。6.1.2實訓(xùn)一——文件系統(tǒng)控件的使用1．任務(wù)分析：本任務(wù)窗體中主要由驅(qū)動器列表框、目錄列表框、文件列表框、圖像框、組合框和標(biāo)簽框組成的。2．操作步驟：步驟一：用戶界面設(shè)計。步驟二：屬性設(shè)置。步驟三：事件與事件過程。6.1.3拓展知識6.1.3.1文件的屬性1、保存在磁盤上的文件有四種不同的類型：只讀、隱藏、系統(tǒng)、存檔。一般情況下，文件列表框中不顯示隱藏類型的文件和系統(tǒng)文件。在VB6.0中，我們可以利用GetAttr函數(shù)顯示出文件的屬性，利用SetAttr語句來設(shè)置文件的屬性。6.1.3.1文件的屬性（1）GetAttr函數(shù)GetAttr函數(shù)返回一個Integer，即一個文件、目錄或文件夾的屬性。語法：GetAttr（pathname）必要的pathname參數(shù)是用來指定一個文件名的字符串表達式，pathname可以包含目錄或文件夾以及驅(qū)動器。（2）SetAttr語句SetAttr語句為一個文件設(shè)置屬性信息。語法：SetAttrpathname,attributes其中pathname是必要參數(shù)，用來指定一個文件名的字符串表達式，可能包含目錄或文件夾以及驅(qū)動器。Attributes是必要參數(shù)，常數(shù)或數(shù)值表達式，其總和用來表示文件的屬性。6.1.3.1文件的屬性案例1：編寫一個程序，選擇文件夾中的任意一個文件，單擊“讀取”按鈕，則程序需顯示出該文件的屬性（隱藏、只讀、系統(tǒng)和存檔），修改該文件的屬性，單擊“修改”按鈕，則該文件的屬性作相應(yīng)的改變。6.1.3.1文件的屬性操作步驟：步驟一：用戶界面的設(shè)計步驟二：屬性設(shè)置步驟三：事件與事件過程設(shè)計6.1.3.2文件系統(tǒng)對象

VB6.0新增了文件系統(tǒng)對象(FSO)模型，它提供了一種基于對象的工具來處理文件和文件夾。用戶在編寫程序時可以通過這種對象提供的豐富的屬性和方法來處理計算機的文件系統(tǒng)。1.FSO對象的引入

FSO對象模型包含在一個稱為Scripting的類型庫中，此類型庫位于Scrrun.dll文件中，因此，在使用FSO對象之前，應(yīng)先把Scripting類型庫引入系統(tǒng)。通過選擇“工程”菜單的“引用”選項，打開“引用”對話框，選擇“MicrosoftScriptingRuntime”，單擊“確定”，即可。6.1.3.2文件系統(tǒng)對象2.FSO對象

FSO對象模型中提供了一組對文件系統(tǒng)的驅(qū)動器，文件夾和文件進行管理的對象，主要有表所示的5個對象。6.1.3.2文件系統(tǒng)對象對象描述FileSystemObjectFSO模型的核心對象。它提供了用于收集相關(guān)信息，以及操縱驅(qū)動QS、文件夾和文件的方法Drive用來收集系統(tǒng)中驅(qū)動器的信息Folder提供對一個文件夾屬性的訪問，也可以創(chuàng)建、刪除或移動文件夾等File提供對一個文件屬性的訪問，也可以創(chuàng)建、刪除或移動文件等TextStream允許用戶讀寫文本文件3．使用FSO對象模型編程的主要步驟：（1）創(chuàng)建一個FileSystemObject對象。（2）根據(jù)應(yīng)用程序的需要，有兩種選擇：直接使用FileSystemObject對象的方法，進行文件或文件夾的創(chuàng)建、復(fù)制、移動、刪除等。再生成用于管理驅(qū)動器、文件夾和文件的對象來實現(xiàn)其他功能。使用FileSystemObject對象的方法創(chuàng)建用于管理驅(qū)動器（Drive對象）、文件夾（Folder對象）和文件（File對象）的對象，用新創(chuàng)建的對象進行文件和文件夾的復(fù)制、移動和刪除等。（3）利用第2.步生成的新對象的屬性獲取文件系統(tǒng)的信息，或利用對象的方法進行所需的操作。6.1.3.2文件系統(tǒng)對象4．文件系統(tǒng)對象實例：案例2：在應(yīng)用程序中，常常需要對文件夾進行操作（如對文件夾的新建、復(fù)制、重命名、刪除等），下題利用文件系統(tǒng)對象編寫一個簡單的文件夾操作的窗口程序，單擊“新建”、“重命名”、“刪除”命令按鈕時，分別執(zhí)行文件夾的新建、重新命名及刪除操作。用戶做刪除操作時，系統(tǒng)應(yīng)該能對用戶給出提醒。6.1.3.2文件系統(tǒng)對象返回6.2文件格式與文件操作6.2.1預(yù)備知識1、文件是一種在物理介質(zhì)上存儲數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)。利用文件可以將內(nèi)存中的數(shù)據(jù)永久保存到外部設(shè)備（如磁盤）中。我們知道，內(nèi)存是一種易失性存儲元件，掉電后其中的內(nèi)容便會消失，因此，為保存一些有用的數(shù)據(jù)，就需要通過文件系統(tǒng)將內(nèi)存中的內(nèi)容轉(zhuǎn)存到磁盤或其他的存儲介質(zhì)中。2、所謂“文件”是指存放在外部介質(zhì)上的數(shù)據(jù)的集合。每個文件有一個文件名作為表示。6.2.1預(yù)備知識3、我們可以從不同的角度對文件進行分類。按文件的內(nèi)容區(qū)分，文件分成程序文件和數(shù)據(jù)文件。按文件存儲信息的形式區(qū)分，可以分成文本文件和二進制文件。從文件的組織形式可分成順序文件和隨機文件。6.2.1.1順序文件順序文件就是采用順序存儲方式存儲的文件。也就是說，文件中各記錄的寫入順序、在文件中存放的順序和從文件中讀出記錄的順序三者一致。即先寫入的記錄放在最前面，也最早被讀出。從順序文件中讀記錄必須從第一個記錄開始讀起，哪怕你要讀取的是最后一個記錄，也要先在它前面的記錄一一讀過。1、順序文件的打開和關(guān)閉在對順序文件進行操作之前必須用Open語句打開要操作的文件。在對一個文件的操作完成之后要用Close語句將它關(guān)閉。（1）Open語句的一般格式：

Open<文件名>[For打開方式]As[#]<文件號>其中，文件名是要打開操作的文件的名字。For是一個關(guān)鍵字，其后的文件打開方式有三種：Input——從打開的文件中讀取數(shù)據(jù)。Output——從計算機向打開的文件寫數(shù)據(jù)。如果該文件原來有數(shù)據(jù)，則原來的數(shù)據(jù)被刪去，新寫上的數(shù)據(jù)將已有的數(shù)據(jù)覆蓋。Append——向文件尾部追加數(shù)據(jù)。As是一個關(guān)鍵字，它用來打開一個文件指定的文件號。＃是可選項。文件號的一個從1到511之間的整數(shù)，文件號用來代表所打開的文件。（2）Close語句的一般格式：

Close[文件號列表]其中，文件號和Open語句中的文件號相對應(yīng)。如果Close有沒有加文件號，就是將所有的文件都關(guān)閉。例如：打開d盤上的student.dat文件，打開方式為Input，用戶指定文件號為1。將該文件關(guān)閉。語句實現(xiàn)如下：Open“d:\student.dat”ForInputAs#1Close#12、順序文件的寫操作為了建立一個順序文件，先要向新的文件寫入若干條記錄。在用Print#或Write#對文件進行寫操作時，文件必須用Output或Append模式打開。VB提供了2個向文件寫入數(shù)據(jù)的語句，即Print#和Write#語句。（1）Print#語句Print#語句的一般格式：

Print#<文件號>,[輸出列表[,|;]]其中，<文件號>是Open語句中指出的。輸出列表參數(shù)表示要寫入到文件號中的數(shù)據(jù)，可以是變量名或常量表達式。“，”和“；”決定下一個字符輸出的位置，“；”表示下一個字符緊隨其前面一個字符輸出，“，”表示下一個字符在下一個輸出區(qū)開始輸出。若不加“，”或“；”參數(shù)，Print語句會在字符結(jié)束處添加一個回車/換行符。例如：Open“d:\temp.dat”ForOutputAs#2Print#2,”study”;”Visual”;”Basic”Close#2（2）Write#語句Write#語句的一般格式：

Write#<文件號>[,輸出列表]其中，<文件號>是Open語句中指出的。輸出列表為要寫入文件中的數(shù)據(jù)。例如：Open“d:\exce.txt”forOutputAs#1Write#1,”HelloWorld!”Close#1執(zhí)行此程序后，寫入到文件“exce.txt”的內(nèi)容為：“HelloWorld!”3、順序文件的讀操作順序文件的讀操作就是將已經(jīng)建立好的順序文件中讀數(shù)據(jù)到計算機中去。在讀一個文件時，先要將準(zhǔn)備讀的文件用Input方式打開。VB提供了以下語句和函數(shù)對文件進行讀操作：（1）Input語句

Input語句的一般格式：

Input#<文件號>,<變量列表>其中，變量用來存放從順序文件中讀出的數(shù)據(jù)，變量的個數(shù)和類型要和文件的數(shù)據(jù)情況一致。（2）Input函數(shù)Input函數(shù)的一般格式：

Input（整數(shù)，[#]<文件號>）其中，整數(shù)為要讀取的字符的個數(shù)。（3）LineInput語句LineInput語句的一般格式：

LineInput＃<文件號>,<字符串變量>其中，變量用來接收從順序文件中讀出的一行數(shù)據(jù)。6.2.1.2隨機文件隨機文件對文件的讀寫屬性沒有限制，可以隨意讀寫某一條記錄。這就要隨機文件的記錄長度固定，以便由記錄號定位記錄位置。隨機文件的讀寫速度快，而且一旦文件打開后可同時做讀、寫操作。隨機文件的存取無論從空間還是時間的角度都比順序文件有較高的效率。1、隨機文件的打開和關(guān)閉（1）Open語句隨機文件的打開同樣用Open語句，打開模式必須用Random，同時要指明記錄長度，它的格式如下：Open<文件名>ForRandomAs[#]<文件號>Len=<記錄長度>其中，文件名指要打開的文件的名字。ForRandom表示打開一個隨機文件。Len用來指定記錄的長度（2）Close語句

Close語句和用于順序文件的Close語句相同，用來關(guān)閉隨機文件。2、隨機文件的寫操作VB提供Put語句用于進行隨機文件的寫操作，它的格式如下：

Put#<文件號>,<記錄號>,<變量>3、隨機文件的讀操作VB提供Get語句用于隨機文件的讀操作，它的格式如下：

Get#<文件號>,<記錄號>,<變量>6.2.2實訓(xùn)

【任務(wù)一：】將第五章5.2仿制多文檔的Note中的“打開”和“保存”的程序代碼修改成實現(xiàn)順序文件操作的代碼。6.2.2實訓(xùn)【任務(wù)二：】用隨機文件建立一個通訊錄的數(shù)據(jù)庫程序。

1．任務(wù)分析：本任務(wù)要求完成設(shè)計后，允許用戶對文件中的記錄進行添加、瀏覽和刪除操作。2．操作步驟：步驟一：用戶界面設(shè)計步驟二：屬性設(shè)置，見表所示對象屬性屬性值Form1Name（名稱）Frmex5_5Caption通訊錄Frame1Caption輸入信息：Label1Caption姓名：Label2Caption家庭住址：Label3Caption聯(lián)系電話：Text1Name（名稱）txtnameText置空Text2Name（名稱）txtaddText置空Text3Name（名稱）txtphonetext置空Command1Name（名稱）cmdaddCaption添加到數(shù)據(jù)庫Command2Name（名稱）cmdbrowseCaption瀏覽Command3Name（名稱）cmddelCaption刪除List1Name（名稱）List1步驟三：定義一個記錄，需要添加一個模塊文件用以定義用戶數(shù)據(jù)結(jié)構(gòu)。定義一個記錄類型，以后將用這個數(shù)據(jù)結(jié)構(gòu)存儲用戶信息。在“工程”菜單中選擇“添加模塊”，在模塊的代碼窗體的全程聲明段中加入下面的聲明：Typestudent

stunameAsString*10

stuaddAsString*20

stuphoneAsString*15EndType步驟四：為窗體編寫代碼【仿制任務(wù)】

設(shè)計一個學(xué)生成績管理應(yīng)用程序6.2.2實訓(xùn)1．任務(wù)分析：本任務(wù)完成設(shè)計運行后，當(dāng)用戶單擊“輸入”按鈕，可將輸入的學(xué)生的相關(guān)信息存放在文件中。單擊“查詢”按鈕，可根據(jù)用戶輸入的姓名，可在文件中查詢出他的各項成績，并顯示在相應(yīng)的文本框中，如果沒有找到那就顯示提示消息。單擊“清除”按鈕則將文本框中信息清空。2．操作步驟：步驟一：用戶界面設(shè)計步驟二：屬性設(shè)置步驟三：事件與事件過程6.2.3拓展知識6.2.3.1排序方法介紹例：設(shè)計一窗體。單擊“輸入”按鈕，出現(xiàn)要求輸入一個整數(shù)的輸入框，并將用戶輸入的數(shù)據(jù)顯示在文本框中，連續(xù)輸入10個數(shù)據(jù)。單擊“排序”按鈕，則對之前輸入的10個數(shù)字進行從小到大排序，并將結(jié)果顯示出來。操作步驟：步驟一：用戶界面設(shè)計步驟二：屬性設(shè)置，如表所示步驟三：事件與事件過程對象屬性屬性值Form1Name（名稱）Frmex5_7Caption排序Label1Caption輸入數(shù)據(jù)：Label2Caption排序后的數(shù)據(jù)：Text1Name（名稱）txtinputText置空EnabledFalseText2Name（名稱）txtsortText置空EnabledFalseCommand1Name（名稱）cmdinputCaption輸入Command2Name（名稱）cmdsortCaption排序Command3Name（名稱）cmdclsCaption清除Command4Name（名稱）cmdexitCaption退出6.2.3.2程序的錯誤類型、處理一、程序的錯誤類型：不論我們在編寫程序時有多么的仔細(xì)認(rèn)真，也不能完全避免錯誤。沒有調(diào)試通過的程序中一般會有一些錯誤，這些錯誤大致分為三種類型1.語法錯每種程序設(shè)計語言都有嚴(yán)格的語法規(guī)則。如果編寫的程序中語句不符合相關(guān)的語法規(guī)則，就會出現(xiàn)語法錯誤。例如：關(guān)鍵字拼寫錯誤、標(biāo)點符號的缺失或變量名拼寫錯誤等等。對于這類錯誤，VB設(shè)置了“自動語法檢查”，在編程過程中，系統(tǒng)會自動發(fā)現(xiàn)這類語法錯誤。例如，當(dāng)輸入If語句時，沒有輸入Then，按回車鍵，系統(tǒng)根據(jù)錯誤類型，自動給出相應(yīng)的提示。2.運行錯在程序運行過程中，語法上沒有錯誤的程序也可能出現(xiàn)錯誤。下面是一些可能產(chǎn)生運行錯的情況：向一個不存在的文件寫入除數(shù)為零把一個數(shù)字類型的變量賦值給一個字符串類型的變量向一個已經(jīng)關(guān)閉的表進行查詢通過激活錯誤處理程序可以對運行錯進行處理。VB提供一個帶有錯誤編號和錯誤原因的消息框并終止應(yīng)用程序，直到錯誤得到處理。3.邏輯錯如果一個程序沒有語法錯，程序運行過程中也沒有發(fā)生運行錯，但是，卻得不到預(yù)期的運行結(jié)果，這就是邏輯錯。下面是創(chuàng)建一個錯誤處理程