第十三章 檔案

章節預覽 13.1 檔案類型 13.2 存取檔案 13.3 循序檔 13.4 記錄(Record) 13.5 隨機檔 13.1 檔案類型 13.2 存取檔案 13.3 循序檔 13.4 記錄(Record) 13.5 隨機檔 13.6 『磁碟機清單方塊』、『目錄清單方塊』、 『檔案清單方塊』控制項 13.7 通用型對話方塊 (Common Dialog) 13.8 例外處理 13.9 本章整合應用實例（簡易文書編輯器製作）

13.1：檔案類型 檔案有許多類型，但針對Visual Basic的檔案而言，則可以依照功能區分為「程式檔」(Program file)與「資料檔」(Data file)兩大類。 「程式檔」是一群Visual Basic敘述與命令的集合，通常可以用來來解決某個特定問題（該程式的設計目標）。 「資料檔」存放的並不是Visual Basic的敘述與命令，而是「資料」（Data），這些資料若尚未經由程式處理，則可能雜亂無章，但是若必須經由程式的處理，將會變成有特定用途的資訊。 例如：我們可以將要排序的資料存放在資料檔內，經由排序程式的處理，形成有用的已排序資訊在回存到檔案中，以便於下次搜尋資料時，可以使用比較快速的搜尋演算法來搜尋資料。

13.1：檔案類型 程式檔 我們Visual Basic IDE下編寫的Visual Basic程式，在尚未編譯前所儲存的檔案稱之為「原始程式檔」（Source Program File）。一個Visual Basic的原始程式檔至少包含一個專案檔 (*.vbp)、一個專案工作區檔 (*.vbw)、一個表單檔 (*.frm)或是一般模組檔 (*.bas)。如果程式中有特殊需求（例如使用了映像或圖片控制項載入一張圖片），則可能還會產生其他種類的檔案。 「原始程式檔」可以編譯成「可執行檔」（附檔名為.exe），然後就不必進入IDE，而可以直接在Windows環境中執行程式了。 資料檔 資料通常是由數字、文字與特殊符號構成的，在未經程式處理前，可能是不太有用的資料，但經過程式的處理後，將變成較為有用的資訊，為了避免這些資訊的流失，通常我們會將程式處理後的結果，以特定格式存入磁碟中。而不論存入磁碟的資料是程式處理前的資料或是程式處理後的有用資訊，我們都將這些存入磁碟的資料稱為「資料檔」。 對於程式而言，未經處理的資料檔將會是程式的輸入、而程式處理後存放的資料檔則為輸出。

13.2：存取檔案 檔案格式 循序存取檔 (Sequential Access File) Visual Basic將檔案依照存取方式，分為「循序存取檔」、「隨機存取檔」與「二進位檔」等3種。 循序存取檔 (Sequential Access File) 循序存取檔簡稱為「循序檔」，顧名思義，此類檔案的資料是循序存放的。 循序檔在寫入磁碟時，後面輸入的資料必須放在剛剛才輸入的資料後面，並且按照資料的先後次序一個一個地循序存放。而在讀取資料時，則必須由第一筆資料開始，慢慢往後讀取資料。 由於新增的資料將會存放在舊資料的後面。因此，循序檔的每一筆資料長度都可以不一樣，如此一來將比較節省空間，但在搜尋資料時卻必須花費較多的時間。因為每次查詢資料時，都必須從頭開始尋找，若資料放在很後面，就會花費很長的時間。

13.2：存取檔案 隨機存取檔 (Random Access File) 二進位檔 (Binary File) 隨機存取檔簡稱為「隨機檔」，隨機檔的每一筆資料長度所佔用的磁碟空間都是相同的，並且資料存入磁碟的方式並沒有先後次序限制。 由於隨機檔的每筆資料長度都是固定且相同的，因此在搜尋資料時，只要知道要尋找的資料是第幾筆資料，就可以利用簡單的公式計算出資料的實際位置，因此可以較快速地取得資料。並且不論資料存放在檔案的哪一段位置，搜尋的時間也相差不遠。 為了使得每筆資料都可以放入檔案中，因此隨機檔會以最長的一筆資料長度做為資料長度的基準。因此，如果每一筆資料的實際長度相差很大時，對於實際長度較小的資料而言，就浪費了很多的磁碟空間。 二進位檔 (Binary File) 進位檔的資料是由一連串的位元組（Byte）所組合，通常使用在某些特殊用途（例如圖檔），暫時不深入討論此類型檔案結構。

13.2：存取檔案 資料檔的操作 對於資料檔的操作，可以分為下列7種作業，透過這7種作業，程式就可以善用資料檔當做程式的輸入或輸出資料。 建檔作業：產生新的資料檔，並指定該檔案的存取模式。 新增作業：加入新的資料到指定的資料檔中。 修改作業：在指定的資料檔中，修改指定的資料內容。 刪除作業：在指定的資料檔中，刪除指定的資料。 查詢作業：在指定的檔案中，尋找滿足條件的資料。 列印作業：在指定的檔案中，尋找滿足條件的資料，並將之由印表機列出。 分析作業：挑選滿足特定條件的資料，然後加以進行統計、分析等工作，其結果將可做為決策的參考。

13.2：存取檔案 開啟與關閉檔案 要存取資料檔的資料，首先必須透過Open敘述將資料檔打開，資料檔才能被存取。當檔案使用完畢，則使用Close敘述來關閉檔案。 最好養成關閉檔案的動作，尤其是資料存取狀態處於「寫入」狀態時，若忘了關檔，則暫存在緩衝區的資料可能未遺失。 開啟檔案 【語法說明】： 1. 檔名(FileName)： 字串或字串運算式，代表要開啟的檔案名稱。若檔案與程式處於不同資料夾，則必須加上路徑。 2. 模式(Mode)： 指定要開啟那一種資料檔以及存取模式： 語法：Open檔名 [For模式] As [#]檔案代碼 [Len =記錄長度] 功能：以指定的模式將檔案開啟

13.2：存取檔案 檔案結構 模 式 說 明 循序存取檔 Output 說 明 循序存取檔 Output 將資料（主記憶體的資料）寫入磁碟檔案中。若已經存在該檔案，則該檔案的原始內容將被全部刪除後再寫入新的資料。若不存在該檔案，則會建立一個新的檔案並寫入資料。 Append 將資料（主記憶體的資料）寫入磁碟檔案中。若已經存在該檔案，則新的資料會加在檔案原始資料的後面（已存在的資料不會遺失）。若不存在該檔案，則會建立一個新的檔案並寫入資料。 Input 由檔案中讀取資料並存入主記憶體中，由於是循序檔，因此會從檔案開頭開始讀取。若指定的檔案不存在，則發出錯誤訊息。 隨機存取檔 Random 在指定的磁碟檔案讀取或寫入資料。若省略模式參數，則預設值內定為Random隨機檔。 二進位檔 Binary 以Byte為單位，讀寫檔案的任一位置。

13.2：存取檔案 3. 檔案代碼： 每一個資料檔被開啟，就會被賦予一個檔案代碼，其值為整數1~511。檔案一但被開啟後，往後有關該檔案的操作都是透過這個代碼來代表該檔案。通常為了避免麻煩，我們會用FreeFile函數，自動由系統分配可用的檔案代碼。 4. 記錄長度： 在隨機檔模式下，此參數是用來設定隨機檔中每一筆記錄的長度，單位為Byte，其值為整數1~32767。若輸入的某一筆資料長度超過了設定的記錄長度時，資料將無法存入檔案中，此時會產生錯誤訊息，在隨機檔中Len值通常設為最長一筆記錄的大小。省略此參數時，循序檔與隨機檔的Len預設值為128，二進位檔的Len預設值則為1。

13.2：存取檔案 關閉檔案 語法：Close [[#] 檔案代碼1, [#] 檔案代碼 2, ...] 【語法說明】： 1. 若省略檔案代碼，則會將目前已經開啟的所有資料檔通通關閉。 2. 若檔案不再被使用，最好將之關閉，避免佔用的過多的緩衝區。 3. 若使用Output或Append開啟檔案，當執行Close敘述時，會先將存放在緩衝區的資料寫入檔案後，才將資料檔關閉。 語法：Close [[#] 檔案代碼1, [#] 檔案代碼 2, ...] 功能：將檔案代碼所對應的資料檔關閉

13.2：存取檔案 與檔案有關的常用函數 FreeFile函數 【語法說明】： 執行FreeFile函數後，系統會在所有未使用的檔案代碼中挑選一個最小的檔案代碼，回傳此檔案代碼。例如：#1、#2、#3、#6已經被其它檔案使用，則執行FreeFile函數後會傳回檔案代碼#4。 語法：FreeFile 功能：自動由系統分配一個可用的檔案代碼

13.2：存取檔案 LOF函數（Length Of File） 【語法說明】： 1. 回傳的檔案長度單位為「Byte」。 2. 本函數所指定的檔案，必須先透過Open敘述開啟。 【範例】：FileSize=LOF(3) '回傳檔案代碼為3的檔案長度。 語法：LOF（檔案代碼） 功能：回傳檔案代碼對應檔案的檔案長度

13.2：存取檔案 FileLen函數（File Length） 【語法說明】： 1. 回傳的檔案長度單位為「Byte」。傳回值的資料型態為長整數。 2. 檔名可包含路徑。若無路徑，則預設路徑為執行程式的相同資料夾。 3. 本函數所指定的檔案，必須尚未透過Open敘述開啟。 【範例】：FileSize=FileLen("TEST.txt") '回傳TEST.txt檔案的長度 語法：FileLen(檔名) 功能：回傳指定檔名的檔案長度

13.2：存取檔案 EOF函數（End Of File） 【語法說明】： 1. 讀取檔案的資料時，可以使用EOF函數來判斷檔案指標是否已經指到檔案結尾。若已指到檔案結尾，EOF函數將回傳True。否則回傳False 2. EOF函數若使用在循序檔時，可以用來判斷該循序檔是否已經讀取完畢 語法：EOF(檔案代碼) 功能：測試檔案指標是否指到檔案結尾。回傳值為布林資料型態

13.3：循序檔 循序檔 在「循序檔」中存取資料，一定要按照資料存入的先後順序依序處理。所以在循序檔中寫入資料時，必須按照第一筆、第二筆、、的順序一一寫入。而在循序檔中讀取資料時，也必須依序先讀過前面資料，然後才能讀到後面的資料。以下是循序檔的特性與使用時機 循序檔的特性 每一筆記錄長度可以不同。 若每一筆資料長度有很大的差異時，使用循序檔來存資料，將可以節省磁碟空間。 新增一筆資料時，會加入到原有資料最後一筆後面。 每次找尋資料時，必須從頭開始找起，因此較為費時。

13.3：循序檔 循序檔的使用時機 無法確定每筆記錄的長度時。 預估每筆記錄的長度差異很大時。 資料不會經常做新增、修改和刪除等作業時。 處理資料時可以按照順序連續處理，不必跳來跳去時。 備份檔案時。（因為備份檔案使用循序檔，可以有效利用儲存體空間，並且由於備份之檔案不需要常常做新增、修改和刪除等作業）

13.3：循序檔 循序檔－寫入資料 『Write #』敘述（寫入資料） 在Visual Basic中，寫入資料到循序檔可以透過『Write #』與『Print #』完成，兩者的功能相同但存檔格式略有不同。 『Write #』敘述（寫入資料） 【語法說明】： 檔案代碼與Open敘述開檔的檔案代碼相同。 在寫入檔案前，必須先使用Open … Output或Open …Append開啟檔案。 運算式串列可以是數值或字串運算式，參數間以逗號『,』加以區隔。 省略運算式串列時，『Write #』敘述會寫入一列空白列到檔案中 語法：Write #檔案代碼,運算式串列 [,] 功能：將運算式串列的運算結果寫入到檔案代碼對應的循序檔中

13.3：循序檔 Print # 敘述（寫入資料） 【語法說明】： 1. 檔案代碼與Open敘述開檔的檔案代碼相同。 2. 在寫入檔案前，必須先使用Open … Output或Open …Append開啟檔案。 3. 運算式串列可以是數值或字串運算式。多個資料可以使用逗號『,』或分號『;』加以區隔，兩者之差別如同一般的Print敘述（詳見第4章）。 語法：Print #檔案代碼,[運算式串列][{,或;}] 功能：將運算式串列的運算結果寫入到檔案代碼對應的循序檔中

13.3：循序檔 『Write #』與『Print #』的差別 使用『Print #』敘述，將字串資料寫入循序檔時，若使用分號『;』來區隔資料，則每筆資料會緊密相接。若要用逗號『.』來區隔資料，則每一筆資料會佔用一定的區域長度，資料長度未達該區域長度時，則會補上空白（與Print敘述相同）。 使用『Write #』敘述，寫入數值資料時，資料前後不會加空白。 使用『Print #』敘述，寫入數值資料時，和寫入字串沒有太大的差別，唯一不同的是正數前面會保留一個空白（與Print敘述相同）。

【實作範例13-1】 【實作範例13-1】： 上機實作 透過『Write #』敘述輸入資料並存入檔案中。 Step1：專案名稱為『p13_01』。 Step2：在表單上產生下列控制項並設定屬性。 Step3：編輯下頁程式碼。

【實作範例13-1】 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Dim file_no Private Sub cmdAddNext_Click() '存入一筆資料,並清除文字方塊 Write #file_no, txtId, Val(txtComputer), Val(txtMath), Val(txtEng) txtId = "": txtComputer = "" txtMath = "": txtEng = "" End Sub Private Sub Form_Load() file_no = FreeFile '取得檔案代碼 Open "c:\vb6\ch13\13_01\Score.txt" For Output As #file_no '開檔 Private Sub Form_Unload(Cancel As Integer) '當最後一筆資料輸入完整則也要存入檔案中 If (txtId <> "") And (txtComputer <> "") And _ (txtMath <> "") And (txtEng <> "") Then End If Close #file_no '關檔 End '結束程式

【實作範例13-1】 Step4：執行程式。輸入資料後。檔案內容如下。 "S9103501",89,84,75

13.3：循序檔 循序檔－讀取資料 『lnput #』敘述（讀取資料） 在Visual Basic中，讀取循序檔的資料則可以透過『Input #』敘述、『Line Input #』敘述及『Input』函數來完成。 『lnput #』敘述（讀取資料） 【語法說明】： 變數1、變數2、、可以為數值、字串或陣列變數。 變數的資料型態最好與檔案的資料型態相符，並且檔案的數值資料可以讀入字串變數，但檔案的字串資料不可以讀入數值變數中。 循序檔中若同時包含有文字與數值資料，在存檔時，最好不要使用『Print #』敘述存檔，否則使用『Input #』敘述來讀取資料時，可能會發生錯誤。 語法：Input #檔案代碼,變數1[,變數2]… 功能：從檔案代碼對應的循序資料檔中依序讀出資料並存放到指定的變數中

13.3：循序檔 『Line Input #』敘述（讀取整列資料） 語法：Line Input #檔案代碼,字串變數 【語法說明】： 1. 字串變數：存放檔案整列的資料。由於一次讀一列資料，因此不論資料是數值還是字元，都會被當成是字串的一部份，因此不可使用數值變數來存放讀取到的整列資料。 2. 『Line Input #』敘述將讀取整列的資料，直到碰上換列字元為止。不論該列資料中出現任何的字元都被當成一個普通的字元而已，即使是逗號字元與空白字元也是不具任何特殊意義的。 『lnput #』與『Line Input #』讀取資料時有些不同，例如檔案內容為"Good morning"，使用Line Input # 讀取資料時，將讀到一筆資料，內容為『Good morning』。若使用Input #讀取資料，將讀到兩筆資料（因此必須使用兩個字串變數來讀取），資料內容依序為『Good』、『morning』。 語法：Line Input #檔案代碼,字串變數 功能：從檔案代碼對應的循序資料檔中一次讀取一列資料並存放到指定的變數中

13.3：循序檔 Input函數（讀取資料） 【語法說明】： 參數n：從檔案中讀取n個Byte數量的資料。 循序檔一次最多可讀取32,767 Bytes，隨機檔一次最多只能讀取一筆記錄長度。 語法：Input（n,[#]檔案代碼） 功能：由檔案中讀取n個Bytes資料

【實作範例13-2】 【實作範例13-2】： 上機實作 "S9103501",89,84,75 "S9103502",77,69,87 從Score.txt檔案中，讀取資料並且計算平均分數，每次讀取一列資料（4個項目），檔案內容如下。 上機實作 Step1：專案名稱為『p13_02』。 Step2：在表單上產生控制項並設定屬性。 Step3：編輯下頁程式碼。 Step4：執行程式。 "S9103501",89,84,75 "S9103502",77,69,87 "S9103503",65,68,77

【實作範例13-2】 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Dim file_no Private Sub cmdFirst_Click() Close #file_no Call OpenFile cmdNext_Click End Sub Private Sub cmdNext_Click() If Not EOF(file_no) Then Input #file_no, stu_id, ScoreComputer, ScoreMath, ScoreEng txtId = stu_id txtComputer = Str(ScoreComputer) txtMath = Str(ScoreMath) txtEng = Str(ScoreEng) txtAvg = CInt((ScoreComputer + ScoreMath + ScoreEng) / 3) Else MsgBox "很抱歉,資料已經全部讀取完畢,將回到第一筆資料" cmdFirst_Click End If

【實作範例13-2】 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Private Sub Form_Load() Call OpenFile cmdNext_Click End Sub Private Sub Form_Unload(Cancel As Integer) Close #file_no End Private Sub OpenFile() file_no = FreeFile Open "c:\vb6\ch13\13_02\Score.txt" For Input As #file_no

13.4：記錄(Record) 為何需要記錄(Record)? 在上一個範例中，我們可以從檔案中讀取3筆資料，由於每次的資料都存放在stu_id, ScoreComputer, ScoreMath, ScoreEng等變數中，因此無法一次儲存所有的資料（如圖示意）。

13.4：記錄(Record) 為了解決無法一起存放的問題，我們可以使用二維陣列來存放每一次讀取的資料，只需要使用簡單的迴圈即可完成，但是請注意當資料型態不一致時（例如：stu_id為字串，ScoreComputer為數值），我們必須要將陣列的資料型態宣告為Variant（如圖示意）。 雖然使用陣列可以存放所有的資料，但是如果我們想用之前 學習的排序程式針對『計概』分數做排序，則陣列經由排序 後會變成下頁左圖之狀況。

13.4：記錄(Record) 在右邊左圖中，很明顯地如果 僅僅將資料Score（i,1）排序的 話，由於其他的資料不會跟著 移動，因此『65』分並不是 "S9103501"同學的計概成績， 真正希望的排序後之結果應該是 如右邊右圖的狀況。 當然我們可以在排序對調資料時，一併對調所有屬於同列的資料。但是這將導致程式更加複雜。如果橫向的列可以一併移動移動該有多好，為了解決這個問題，Visual Basic和其他的高階語言一樣，也提供了記錄（Record）資料型態，此處所指的『記錄』是一種由使用者自訂的資料型態，它可以組合多種資料型態的資料構成一筆記錄，例如：我們可以將『學號』、『計概』、『數學』、『英文』等成績合併為一個記錄，並且使用陣列來宣告記錄陣列（陣列元素為記錄），則可以解決上述問題。

13.4：記錄(Record) 記錄(Record) 「記錄」是由一些邏輯相關的「欄位」（Field）所構成。例如：一位學生的學號、計概成績、數學成績、英文成績就是一筆記錄，該記錄則擁有「學號」欄、「計概」欄、「數學」欄、「英文」欄，而一群學生的記錄集合將構成記錄陣列。（如下圖示意）

13.4：記錄(Record) 定義記錄型態的語法如下： 一個記錄資料型態包含許多「欄位」，每一個欄位都必須賦予一個欄位名稱。由於記錄是使用者自訂的資料型態，因此記錄在使用之前必須要先經過定義，然後在經過宣告後才可使用。 定義記錄型態的語法如下： 宣告記錄變數的語法如下： 語法： [Private|Public] Type記錄型態名稱 　 　欄位名稱[(索引)] As資料型態 　　 [欄位名稱[(索引)] As資料型態] End Type 功能：定義一個記錄型態包含哪些欄位以及各欄位的資料型態 。 語法：Dim記錄變數名稱As記錄型態名稱 功能：宣告記錄變數為已定義的記錄資料型態

13.4：記錄(Record) 【語法說明】： 1. 記錄型態必須在模組檔中定義。 2. 記錄型態名稱： 由於記錄資料型態中的欄位包含許多基本資料型態（如整數、長整數、單精確度等），因此記錄型態的命名規則與變數名稱相同，記錄內欄位名稱的命名規則也與和變數名稱相同。 3. 欄位可以是陣列，若未使用上、下界設定索引值範圍，也未使用Option Base敘述宣告陣列起始，則內定下界為0。 4. 欄位中資料型態，可以是各種資料型態或其他自行定義的記錄型態（例如另一個記錄形態）。 5. 程式撰寫時，若要設定或讀取記錄的某個欄位值，只要在記錄名稱與欄位名稱中間加上『.』即可，例如：Print Score_Record.stu_id。 6. 宣告記錄變數時，可使用Public、Private、Dim、ReDim或Static來宣告。 7. 記錄變數可以宣告為陣列（形成記錄陣列），記錄陣列的每個陣列元件都是記錄型態的資料，例如：Dim Score(10) As Score_Recoed就是宣告Score含有11個元素，每個元素的資料型態都是Score_Record。

13.4：記錄(Record) 【範例】： 利用記錄型態來宣告一個成績的記錄。一個記錄包括四個欄位如下： 學生學號：固定字串（8個字元） 計概成績：整數 數學成績：整數 英文成績：整數 其記錄型態定義格式如右： 上述定義代表有一個名稱為Score_Record記錄型態，當中包含有四個欄位，分別為固定字串變數stu_id、整數變數S_Computer、整數變數S_Math及、整數變數S_Eng。若要宣告含有五個記錄變數的記錄陣列Score，則可如下宣告： Type Score_Record stu_id As String * 8 S_Computer As Integer S_Math As Integer S_Eng As Integer End Type Dim Score(1 To 5) As Score_Record

13.4：記錄(Record) 經過上述宣告後，將會在主記憶體配置五個記錄變數，每個記錄變數都含有四個欄位，分別為Score(i).stu_id、Score(i).S_Computer、Score(i).S_Math、Score(i).S_Eng，且1≦i≦5。 該記錄陣列在主記憶體中的配置如下圖示意：

13.4：記錄(Record) With敘述 With敘述是用來設定某一物件或記錄的屬性值或執行某些方法之用，在With區塊內的所有敘述接可以省略物件或記錄的名稱。With敘述其語法如下： 【範例】： 語法： With 物件或記錄 　 　[With敘述區塊] End With 功能：在With敘述區塊內指定屬性或方法時，可省略物件名稱或記錄名稱，而這些省略名稱的敘述將會以With後面的物件或記錄做為物件名稱或記錄名稱。 With Label1 .FontSize=14 .Caption="您好嗎" End With Label1.FontSize=14 Label1.Caption="您好嗎 With Score(2) .stu_id="S9103502" .S_Math=69 End With Score(2).stu_id="S9103502" Score(2).S_Math=69

13.4：記錄(Record) 【範例14-3】： 使用記錄陣列存放檔案資料，檔案內容如右 b13_03.bas 2 3 4 5 6 7 8 9 Public Type Score_Record stu_id As String * 8 S_Computer As Integer S_Math As Integer S_Eng As Integer S_Avg As Integer End Type Public NotSortScore(1 To 6) As Score_Record Public SortScore(1 To 6) As Score_Record

13.4：記錄(Record) 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Public Sub BubbleSort(NotSortX() As Score_Record, SortX() As Score_Record) Dim Temp As Score_Record For i = LBound(NotSortX) To UBound(NotSortX) SortX(i) = NotSortX(i) Next i n = UBound(SortX) K = n Do While (K <> 0) Times = 0 For i = LBound(SortX) To K - 1 If SortX(i).S_Avg > SortX(i + 1).S_Avg Then '若要使用其他欄位做為排序準則,則修改If條件的欄位名稱即可 Temp = SortX(i) 'SortX(i)與SortX(i+1)互換 SortX(i) = SortX(i + 1) 'SortX(i)與SortX(i+1)互換 SortX(i + 1) = Temp 'SortX(i)與SortX(i+1)互換 Times = i End If K = Times Loop End Sub

13.4：記錄(Record) f13_03.frm 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Dim file_no Private Sub Form_Activate() Call OpenFile i = 1 Do While Not EOF(file_no) With NotSortScore(i) Input #file_no, .stu_id, .S_Computer, .S_Math, .S_Eng .S_Avg = CInt((.S_Computer + .S_Math + .S_Eng) / 3) i = i + 1 End With Loop Close #file_no FontSize = 12 Print " 學號", "計概", "數學", "英文", "平均" Print String(100, "-") Call BubbleSort(NotSortScore(), SortScore()) For j = 1 To i - 1 Print SortScore(j).stu_id, SortScore(j).S_Computer, _ SortScore(j).S_Math, SortScore(j).S_Eng, SortScore(j).S_Avg Next j End Sub

13.4：記錄(Record) 27 28 29 30 Private Sub OpenFile() file_no = FreeFile Open "c:\vb6\ch13\13_03\Score.txt" For Input As #file_no End Sub

13.5：隨機檔 隨機檔 隨機檔的適用時機 【循序檔或隨機檔的原則】： 隨機檔中的資料能夠隨意存取，也就是存取時不必資料的先後順序。一個隨機檔中的每一筆資料（亦可稱為記錄）在磁碟中使用的固定長度來存放，並且隨機檔中的每一筆記錄都被賦予一個編號，存取時則是先依照編號計算出實際的資料存放位置，再取出資料。 由於隨機檔的每一筆資料長度固定，因此當每筆資料的實際長度差異很大時，會比較浪費磁碟空間。此外，由於「數值資料」在隨機檔中將以二進位來存放（循序檔以ASCII碼存放），因此當數值資料位數很長時，使用隨機檔會比較節省磁碟空間。 隨機檔的適用時機 常常需要做線上即時查詢的資料檔。（要求速度） 常常發生資料異動的資料檔。（要求速度） 當開檔後需要可讀可寫時應該使用隨機檔，因為循序資料檔在開啟檔案時，只能設定為讀取或寫入單一模式。 【循序檔或隨機檔的原則】： 1. 磁碟存放空間：若每筆資料的記錄長度差異不大時，應使用隨機檔。若每筆資料的記錄長度差異很大時，則可使用循序檔，以節省磁碟空間。 2. 資料存取速度：若要求即時存取資料，則應該使用隨機檔。

13.5：隨機檔 隨機檔的常用敘述與函數： 敘述或函數 說明 Open敘述 開啟一個檔案。（參數為Random） Close敘述 關閉檔案。 EOF敘述 測試一個檔案是否結束。（檔案指標是否位於最後） LOF敘述 回傳檔案長度（使用檔案代碼）。 FileLen敘述 回傳檔案長度（使用檔名）。 Seek函數 回傳目前檔案位置。 Seek敘述 設定要存取的資料在檔案中位置。 Put敘述 寫入一筆記錄到隨機檔中。 Get敘述 從隨機檔中讀取一筆記錄。

13.5：隨機檔 開啟與關閉隨機檔 開檔 語法：Open "檔名" For Random As #檔案代碼[Len = 記錄長度] 【語法說明】： 1. 使用Open敘述開啟隨機檔，可以透過Len參數指定記錄長度（單位為Byte），若省略Len參數，則預設值為128 bytes。 2. 當開啟檔案後，若不知道記錄長度時，可以使用Len函數取得記錄大小。例如：Length = Len (Score_Record) 3. 隨機檔開啟後，可讀取也可寫入。不必像循序檔分為『Open…For Input』敘述和『Open…For Output』。 語法：Open "檔名" For Random As #檔案代碼[Len = 記錄長度] 功能：以隨機模式開啟檔案。

13.5：隨機檔 關 檔 【語法說明】： 1. 關檔語法與關閉循序檔相同。 2. 執行Reset敘述，會先將緩衝區的資料寫入檔案，然後再關閉所有檔案。 語法：Close[#file_num] 功能：關閉檔案 語法：Reset 功能：關閉檔案

13.5：隨機檔 存取隨機檔 為了能夠快速取出隨機檔的記錄，因此隨機檔的每一筆記錄都有一個不同的記錄編號。要搜尋某一筆記錄時，必須在程式中輸入該筆記錄的編號，由於隨機檔每筆資料長度都是相同的，因此系統就可以很快地依照公式計算出該記錄編號在隨機檔中的實際位置，然後將該筆記錄取出。因此隨機檔的資料是可以隨意存取（不必按照順序），所以平均的存取速度比循序檔快許多，適合用於時常更動檔案內容的應用。 Put敘述 語法：Put[#]檔案代碼,[記錄編號],變數 功能：寫入一筆資料到隨機檔中

13.5：隨機檔 Get敘述 語法：Get[#]檔案代碼,[記錄編號],變數 功能：從隨機檔中讀取一筆資料 【語法說明】： 1. 記錄編號： 整數，範圍是1~2,147,483,647。若省略記錄編號，則會由上一次記錄編號的下一筆開始存取。 2. 變數的長度不能大於隨機檔的記錄長度。 3. 變數的資料型態必須與記錄中各對應欄位的資料型態一致，否則將產生錯誤。 隨機檔與記錄資料型態 由於記錄資料型態可以將許多不同資料型態的變數聚集在一起，並以記錄變數來代表。而在隨機檔的存取語法中，若將變數指定為記錄型態變數。則可以很容易地取出檔案中的記錄（詳見範例13-4）。 語法：Get[#]檔案代碼,[記錄編號],變數 功能：從隨機檔中讀取一筆資料

【實作範例13-4】 【實作範例13-4】： 上機實作 配合記錄資料型態，存取隨機檔的資料 Step1：專案名稱為『p13_04』。

【實作範例13-4】 b13_04.bas 1 2 3 4 5 6 7 8 9 10 Public file_no As Integer Public Record_Amount As Integer Public Type Score_Record stu_id As String * 8 S_Computer As Integer S_Math As Integer S_Eng As Integer S_Avg As Integer End Type Public Student As Score_Record

【實作範例13-4】 f13_04_main.frm 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub cmdInput_Click() file_no = FreeFile Open "c:\vb6\ch13\13_04\Score.dat" For Random As #file_no Len = Len(Student) Record_Amount = LOF(file_no) / Len(Student) f13_04_Input.Show 1 End Sub Private Sub cmdQuery_Click() f13_04_Query.Show 1 Private Sub Form_Unload(Cancel As Integer) Close #file_no End

【實作範例13-4】 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 25 26 27 28 29 30 31 32 33 34 35 Private Sub cmdAddNext_Click() Call AddRecord Form_Load End Sub Private Sub Form_Load() txtId = "" txtComputer = "" txtMath = "" txtEng = "" Private Sub Form_Unload(Cancel As Integer) If (txtId <> "") And (txtComputer <> "") And _ (txtMath <> "") And (txtEng <> "") Then End If Close #file_no Private Sub AddRecord() Record_Amount = Record_Amount + 1 With Student .stu_id = txtId .S_Computer = Val(txtComputer) .S_Math = Val(txtMath) .S_Eng = Val(txtEng) .S_Avg = CInt((.S_Computer + .S_Math + .S_Eng) / 3) End With Put #file_no, Record_Amount, Student f13_04_Input.frm

5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub cmdQuery_Click() If (Val(cboRecordNo.Text) <= 0) Or _ (Val(cboRecordNo.Text) > Record_Amount) Then MsgBox "請選擇正確的記錄編號" Exit Sub End If Get #file_no, Val(cboRecordNo.Text), Student With Student txtId = .stu_id txtComputer = .S_Computer txtMath = .S_Math txtEng = .S_Eng txtAvg = .S_Avg End With End Sub Private Sub Form_Load() cboRecordNo.Clear For i = 1 To Record_Amount cboRecordNo.AddItem (i) Next i Private Sub Form_Unload(Cancel As Integer) Close #file_no f13_04_Query.frm

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 當我們在操作許多軟體執行存檔與開檔的動作時，常常會出現對話方塊讓我們選擇檔案的路徑與檔名，在Visual Basic中，我們可以透過「磁碟機清單方塊」、「目錄清單方塊」和「檔案清單方塊」等三個控制項來完成下圖的檔案讀取操作。 磁碟機清單方塊 目錄清單方塊 檔案清單方塊

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 磁碟機清單方塊（Drive List Box） 「磁碟機清單方塊」是一種下拉式清單方塊。在預設狀況下，它會顯示目前正使用的磁碟機。若按下 下拉鈕，則未列出所有可用的磁碟機，使用者可以從中挑選一個磁碟機做為目前的磁碟機。 建立『磁碟機清單方塊』控制項 2:在表單上拉出磁碟機 清單方塊控制項大小 1:選取磁碟機 清單方塊工具

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 磁碟機清單方塊的屬性 屬性 說明 Name 磁碟機清單方塊的名稱。 Drive Drive是磁碟機清單方塊非常重要的屬性，是用來設定目前的工作磁碟。（只能在執行時被設定） Height 磁碟機清單方塊的高度。 Width 磁碟機清單方塊的寬度。

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 目錄清單方塊（Directory List Box） 「目錄清單方塊」代表目前作用磁碟目錄，使用者可以選取清單中的任一個目錄做為路徑（選取時，按滑鼠兩下即可）。 建立『目錄清單方塊』控制項 2:在表單上拉出目錄 清單方塊控制項大小 1:選取目錄 清單方塊工具

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 目錄清單方塊的屬性 屬性 說明 Name 目錄清單方塊的名稱。 Path Path是目錄機清單方塊非常重要的屬性，是用來設定目前的工作目錄。（只能在執行時被設定） Height 目錄清單方塊的高度。 Width 目錄清單方塊的寬度。

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 檔案清單方塊（File List Box） 「檔案清單方塊」將會把目前工作目錄下的所有檔案列出，使用者在其中挑選檔案。 建立『檔案清單方塊』控制項 2:在表單上拉出檔案 清單方塊控制項大小 1:選取檔案 清單方塊工具

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 檔案清單方塊的屬性 在Visual Basic IDE中拉出磁碟機、目錄、檔案清單方塊時，其預設的磁碟、目錄、檔案為「Visual Basic的安裝位置」，當您將程式存檔或編譯之後再執行，則磁碟、目錄、檔案會變成執行檔的所在位置。 屬性 說明 FileName 設定或回傳被選取的檔案名稱，預設值為空字串。（只能在程式執行中使用） Path 程式執行時，列出指定目錄下所包含的檔案。 Pattern 設定列出一組以上具有指定檔名或副檔名的檔案，預設值為『"*.*"』。例如:『"*.vbp;*.frm"』。 Archive 列出所有「可備份」的檔案，預設值為True。 Hidden 列出所有「隱藏」的檔案，預設值為False。 Normal 列出所有非「系統」和非「隱藏」的檔案，預設值為True。 ReadOnly 列出所有「唯讀」的檔案，預設值為True。 System 列出所有「系統」檔案，預設值為False。

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 『磁碟機、目錄、檔案清單方塊』程式設計 「磁碟機」、「目錄」與「檔案」三種清單方塊控制項，通常會被一起搭配使用，並且可以利用Change事件修改屬性值使得改變其中一個控制項時，其它控制項也隨著改變。 舉例來說，當使用者在「磁碟機清單方塊」中選取某一個磁碟機時，「磁碟機清單方塊」的Drive屬性值會馬上變為選取的磁碟機，並且觸發Change事件，此時，我們可以在Change事件中，將新的Drive屬性值傳送給「目錄清單方塊」。同理，我們也可以將「目錄清單方塊」的新Path屬性值，在Change事件中傳給「檔案清單方塊」，然後列出該資料夾的檔案。下圖是事件與屬性的示意圖：

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 除了上述介紹的屬性之外，Visual Basic還提供了一些有關資料夾與檔案維護的敘述如下： 【範例】： 【註】：當使用者在磁碟機清單方塊中選取了某一個新的磁碟機，目前工作磁碟並自動隨著改變，我們必須透過ChDrive敘述來設定新的磁碟機代碼。例如：ChDrive Drive1.Drive。 敘述 語法 功能 ChDrive ChDrive 磁碟機 設定目前工作的磁碟機代碼 ChDir ChDir 資料夾 設定目前工作的資料夾名稱 RmDir RmDir 資料夾 刪除指定的資料夾 Kill Kill 檔名 刪除指定的檔案 MkDir MkDir 資料夾 建立新的資料夾 Name Name 舊檔名 As 新檔名 修改檔案名稱或搬移檔案 ChDrive "C:" ChDrive Drive1.Drive ChDir "\vb6\ch13" ChDir Dir1.Path

13.6：『磁碟機清單方塊』、 『目錄清單方塊』、『檔案清單方塊』控制項 【範例】： 【搬移檔案注意事項】：不同磁碟機的檔案則無法搬移（舊檔名與新檔名必須在同一磁碟機），舊檔名之檔案必須存在，新檔名之檔案不可以存在，否則會發生錯誤。 MkDir "C:\TEST" '在C磁碟機中建立TEST資料夾 RmDir "C:\TEST" '刪除C磁碟機的TEST資料夾 Kill "Score.dat" '刪除目前目錄下的Score.dat檔 Kill "C:\TEST1\*.bas" '刪除C磁碟機TEST1資料夾中所有副檔名為『.bas』的檔案 Name "TEST1.dat" As "TEST2.txt" '將目前目錄下的TEST1.dat檔名改為TEST2.txt Name "C:\TEST1" As "C:\TEST2" '更改目錄名稱 Name "C:\TEST1\TEST1.dat" As "C:\TEST2\TEST1.dat" '將檔案搬移到另一目錄下 Name "C:\TEST1\TEST1.dat" As "C:\TEST2\TEST2.txt" '將檔案搬移並修改檔名

【實作範例13-5】 【實作範例13-5】： 上機實作 使用磁碟機、目錄和檔案清單方塊設計一個預覽圖片的程式。 Step1：專案名稱為『p13_05』。 Step2：在表單上產生下列控制項並設定屬性。 Step3：編輯程式碼。 Step4：執行程式。

4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub dirView_Change() '設定目錄 ChDir dirView.Path filView.Path = dirView.Path End Sub Private Sub drvView_Change() '設定磁碟機 ChDrive drvView.Drive dirView.Path = drvView.Drive Private Sub filView_Click() '在檔案列選取檔名 lblFilename = "檔名:" & filView.FileName imgView.Picture = LoadPicture(filView.FileName) Private Sub Form_Load() drvView.Drive = App.Path dirView.Path = App.Path + "\Picture\" txtFilePattern = "*.Bmp;*.Jpg;*.Gif" filView.Pattern = txtFilePattern.Text lblFilename = "" Private Sub txtFilePattern_Change() filView.Pattern = txtFilePattern

13.7：通用型對話方塊 (Common Dialog) 『磁碟機』、『目錄』、『檔案清單』方塊雖可以製作指定存取檔名的功能，但似乎和某些軟體的開檔、存檔對話方塊有些不同，而且這三個物件的屬性值並不會自動互相更新而必須透過程式來自行設定，如此顯得不是很方便。 其實Visual Basic含提供了另一種更好用的「通用型對話方塊」控制項，該控制項的功能十分強大，可以用來製作開檔、存檔、設定顏色、改變字型、列印、執行說明檔等六種對話方塊。 由於「標準執行檔」的工具箱並未提供「通用型對話方塊」工具。因此要使用「通用型對話方塊」工具，必須在建立新專案時選取「Visual Basic普及版控制項」圖示，工具箱才會出現「通用型對話方塊」工具以及其他標準執行檔所不提供的工具。

13.7：通用型對話方塊 (Common Dialog) 建立『通用型對話方塊』 1:選取「Visual Basic 普及版控制項」圖示 2:按下 【開啟】鈕 3:按兩下 通用型對話方塊工具 4:在表單上出現了通用型對話方塊控制項

13.7：通用型對話方塊 (Common Dialog) 『通用型對話方塊』的屬性 『屬性頁』對話方塊： 通用型對話方塊的屬性眾多，首先我們在屬性視窗中選取(自訂)後將出現「屬性頁」對話方塊，預設標籤頁為『開啟/另存為』標籤頁，當中可以設定許多關於開檔與存檔的屬性設定。 Name屬性 CancelError屬性 1:按下 2:開啟『屬性頁』 對話方塊

13.7：通用型對話方塊 (Common Dialog) 各類對話方塊共同屬性： 「開啟/另存為」標籤頁 屬性 說明 CancelError (取消) 當使用者按【取消】鈕時，是否產生錯誤值。True ：產生錯誤值。False(預設值)：不產生錯誤值。 Name(名稱) 通用型對話方塊的名稱。 DialogTitle Flags FileName DefaultExt InitDir MaxFileSize Filter FilterIndex CancelError

13.7：通用型對話方塊 (Common Dialog) 屬性 說明 DialogTitle (對話方塊標題) 設定對話方塊標題 DefaultExt (預設副檔名) 預設的副檔名。(例如：dlg1.DefaultExt=".txt") Filter (檔案類型) 設定在檔案清單方塊顯示的檔案類型。語法如下：通用型對話方塊名稱.Filter=提示字串1|檔案類型1|提示字串2|檔案類型2|… (例如：dlg1.Filter="Word檔(*.doc)|*.doc|純文字檔(*.txt)|*.txt" FilterIndex(類型索引) 設定採用Filter屬性設定的第幾個檔案類型。 FileName(檔案名稱) 取得使用者選擇的檔案名稱(含路徑)（只能在程式執行時使用）。 FileTitle(檔案標題) 取得使用者選擇的檔案名稱(不含路徑) （只能在程式執行時使用）。 initDir(初始目錄) 設定起始目錄

13.7：通用型對話方塊 (Common Dialog) 屬性 說明 MaxFileSize (檔案長度限制) 設定檔案的最大長度，其值為1~32K Bytes。 Flags (選項) 設定對話方塊要顯示的項目。 Flags = &H1&：「唯讀」核取方塊處於已設定狀態 Flags = &H2&：當選取的檔案已經存在資料夾中，則會出現詢問是否覆蓋檔案的訊息方塊。 Flags = &H4&：隱藏「唯讀」核取方塊。 Flags = &H8&：當對話方塊開啟時，目前資料夾將是實際所在資料夾。 Flags=&H2000&：開啟一個不存在的檔案時，發出提示。

13.7：通用型對話方塊 (Common Dialog) 【執行範例】：（使用ShowOpen方法） ShowOpen 標題

13.7：通用型對話方塊 (Common Dialog) 【執行範例】：（使用ShowSave方法） ShowSave

13.7：通用型對話方塊 (Common Dialog) 「色彩」標籤頁 Color Flags 屬性 說明 Color(顏色) 設定顏色值。(內定為0，也就是&H00000000&) Flags(選項) 設定色彩對話方塊要顯示的項目。 Flags = &H1&：顯示預設的色彩對話方塊。 Flags = &H2&：顯示完整的色彩對話方塊。 Flags = &H4&：設定【自選色彩】鈕為失效。 Flags = &H8&：顯示【輔助說明功能】鈕。 Flags值和MsgBox的參數類似，也是可以相加的，例如：Flages=&H6&代表同時具有『&H2&』和『&H4&』兩種功能

13.7：通用型對話方塊 (Common Dialog) 【執行範例】：（使用ShowColor方法）

13.7：通用型對話方塊 (Common Dialog) 「字型」標籤頁 Min Max FontName FontBold FontSize FontItalic Flags FontUnderLine FontStrikethru

13.7：通用型對話方塊 (Common Dialog) 屬性 說明 FontName (字型名稱) 設定字型檔名稱欄。 FontSize(字型大小) 設定字型大小欄。 FontBold (粗體) 設定粗體字。 FontItalic (斜體) 設定斜體字。 FontStrikethru(刪除線) 設定加刪除線。 FontUnderLine(底線) 設定加底線。 Flags (選項) 設定要顯示字型的項目。常用的Flags值： Flags = &H1&：只顯示螢幕支援的字型。 Flags = &H2&：只顯示列表機支援的字型。 Flags = &H3&：顯示支援螢幕或列表機支援的字型。 Flags = &H4&：顯示【說明】按鈕。 Max (最大) 允許使用者可選擇最大字型的大小。 Min (最小) 允許使用者可選擇最小字型的大小。

13.7：通用型對話方塊 (Common Dialog) 【執行範例】：（使用ShowFont方法）

13.7：通用型對話方塊 (Common Dialog) 「列印」標籤頁 ToPage Flags Copies FromPage Min Max PrintDefault

13.7：通用型對話方塊 (Common Dialog) 屬性 說明 Copies(列印份數) 設定列印的份數。 FromPage(從第幾頁開始) 設定從第幾頁開始列印。 ToPage（到第幾頁） 設定列印到第幾頁。 Max(最大) 設定列印範圍的最大頁數。 Min(最小) 設定列印範圍的最小頁數。 Flags (選項) 設定列印對話方塊要顯示的項目。常用的Flags值：Flags = &H0&：列印範圍預設為全部。 Flags = &H1&：列印範圍預設為選取範圍。 Flags = &H2&：列印範圍預設為頁數。 PrinterDefault (印表機預設值) 設定是否允許使用者更改系統列表機的設定。(預設為True)

13.7：通用型對話方塊 (Common Dialog) 【執行範例】：（使用ShowPrinter方法）

13.7：通用型對話方塊 (Common Dialog) 通用型對話方塊的方法 「通用型對話方塊」控制項和「計時器」控制項一樣，當程式執行時，並不會顯現出來，而要顯示不同種類的對話方塊，則必須透過程式指定執行不同的方法來完成，一共有6種不同的方法如下。 舉例來說，假設 我們要希望程式 會跑出字型設定的對話方塊，則可以先在字型標籤頁中設定相關屬性，然後在程式中執行ShowFont方法，如此一來，就會出現字型對話方塊了。（在字型標籤頁中設定不同的屬性值將導致字型方塊的內容也會有所不同） 方法 結果 ShowOpen 開啟開檔對話方塊 ShowSave 開啟存檔對話方塊 ShowColor 開啟色彩對話方塊 ShowFont 開啟字型對話方塊 ShowPrinter 開啟列印對話方塊 ShowHelp 開啟設定的說明檔

13.8：例外處理 例外處理 On Error GoTo敘述 所謂例外處理，就是當程式執行發生錯誤時，就去自動執行另外一段程式碼，這段程式碼將會處理這些錯誤。而程式正常運作時，則不會執行這些程式碼。Visual Basic有關例外處理的敘述有『On Error GoTo』與『Resume』敘述。 On Error GoTo敘述 【語法說明】： 1. 若行號為 0，則取消錯誤處理。 2. 錯誤處理次常式以行號或標記為起點，當作例外處理用的次常式。 語法：On Error Goto {行號∣標記} 功能：當程式執行發生錯誤時，跳到指定的行號或標記去執行另外一段程式（錯誤處理次常式）。

13.8：例外處理 Resume敘述 【語法說明】： 依照Resume後面敘述的不同，改變程式的流程。一共有下列幾種敘述： 語法：Resume {0∣Next∣行號∣標記} 功能：執行錯誤處理次常式後，回到指定位置繼續執行程式。 敘　　　述 繼續執行的位置 Resume [0]或Resume 跳到程式發生錯誤的位置繼續執行。 Resume Next 跳到程式發生錯誤的下一行繼續執行。 Resume行號 跳到指定的行號繼續執行。 Resume標記 跳到指定的標記繼續執行。

13.9：本章整合應用實例 （簡易文書編輯器製作） 13.9：本章整合應用實例 （簡易文書編輯器製作） 【實作範例13-6】： 利用本章所學習的各項檔案函數與通用型對話方塊，製作一個簡易型的文書編輯器。 上機實作 Step1：專案名稱為『p13_06』。 Step2：在表單上產生下列控制項並設定屬性。 Step3：編輯程式碼。 Step4：執行程式。

【實作範例13-6】 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Dim Default_Directory, file_name As String Dim file_no As Integer Private Sub Form_Load() txtEditor.Width = f13_06.Width - 100 txtEditor.Height = f13_06.Height - 700 Default_Directory = "c:\VB6\ch13\13_06\" dlgEditor.CancelError = True dlgEditor.FontSize = 12 txtEditor = "" End Sub Private Sub Form_Resize() Private Sub Form_Unload(Cancel As Integer) Close #file_no End

【實作範例13-6】 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Private Sub mnuExit_Click() Close #file_no End End Sub Private Sub mnuFontColor_Click() '色彩 On Error GoTo COLOR_ERROR dlgEditor.Flags = &H4& dlgEditor.ShowColor txtEditor.ForeColor = dlgEditor.Color Printer.ForeColor = dlgEditor.Color On Error GoTo 0 Exit Sub COLOR_ERROR:

【實作範例13-6】 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 Private Sub mnuFontStyle_Click() '字型 On Error GoTo FONT_ERROR dlgEditor.FontName = "細明體" dlgEditor.Flags = &H3& dlgEditor.ShowFont txtEditor.FontName = dlgEditor.FontName txtEditor.FontSize = dlgEditor.FontSize txtEditor.FontBold = dlgEditor.FontBold txtEditor.FontItalic = dlgEditor.FontItalic Printer.FontName = dlgEditor.FontName Printer.FontSize = dlgEditor.FontSize Printer.FontBold = dlgEditor.FontBold Printer.FontItalic = dlgEditor.FontItalic On Error GoTo 0 Exit Sub FONT_ERROR: End Sub Private Sub mnuNewFile_Click() '開新檔案 file_name = "" txtEditor = "" f13_06.Caption = "(簡易編輯器)" & "-未命名"

【實作範例13-6】 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 Private Sub mnuOpenFile_Click() '開啟舊檔 On Error GoTo OPENFILE_ERROR dlgEditor.InitDir = Default_Directory dlgEditor.Filter = "Word*.doc|*.doc|文書檔*.txt|*.txt" dlgEditor.FilterIndex = 2 dlgEditor.ShowOpen file_name = dlgEditor.FileName lblFileName = "檔名:" f14_06.Caption = "(簡易編輯器)" & "-" & dlgEditor.FileTitle file_no = FreeFile: txtEditor = "" Open file_name For Input As #file_no Do While Not EOF(file_no) Line Input #file_no, Linestr txtEditor = txtEditor + Linestr + vbCrLf Loop Close #file_no On Error GoTo 0 Exit Sub OPENFILE_ERROR: End Sub

【實作範例13-6】 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 Private Sub mnuPrintFile_Click() '列印 On Error GoTo PRINTFILE_ERROR dlgEditor.Copies = 1 dlgEditor.Flags = &H0& dlgEditor.ShowPrinter For i = 1 To dlgEditor.Copies Printer.Print txtEditor Printer.NewPage Next i Printer.EndDoc On Error GoTo 0 Exit Sub PRINTFILE_ERROR: MsgBox "列印發生錯誤,請檢查印表機" End Sub

112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 Private Sub mnuSaveAsFile_Click() '另存新檔 On Error GoTo SAVEASFILE_ERROR dlgEditor.FilterIndex = 2 dlgEditor.InitDir = Default_Directory dlgEditor.Filter = "Word*.doc|*.doc|文書檔*.txt|*.txt" dlgEditor.ShowSave file_name = dlgEditor.FileName file_no = FreeFile Open file_name For Output As file_no Print #file_no, txtEditor Close #file_no f13_06.Caption = "(簡易編輯器)" & "-" & dlgEditor.FileTitle On Error GoTo 0 Exit Sub SAVEASFILE_ERROR: End Sub Private Sub mnuSaveFile_Click() '存檔 If file_name = "" Then mnuSaveAsFile_Click End If

13.10：本章回顧 檔案類型 存取檔案 循序檔 記錄(Record) 隨機檔 『磁碟機清單方塊』、『目錄清單方塊』、『檔案清單方塊』控制項 通用型對話方塊 (Common Dialog) 例外處理 簡易文書編輯器製作

本章習題