档案存取课件.ppt

1、Wbe.nctu Copyright 2001目目學習目標學習目標摘要摘要I.檔案的基本概念檔案的基本概念I.1 檔案的意義檔案的意義I.2 檔案使用的步驟檔案使用的步驟I.3 檔案模式檔案模式I.4 檔案的開啟與關閉檔案的開啟與關閉I.5 檔案的指標檔案的指標I.6 檔案資料的讀寫檔案資料的讀寫II.檔案類別與結構檔案類別與結構III.循序存取檔案循序存取檔案程式實例程式實例 1程式實例程式實例 2程式實例程式實例 3IV.隨機存取檔案隨機存取檔案程式實例程式實例 4V.二進位存取檔案二進位存取檔案程式實例程式實例 5在任何一張投影片左下角按下即可回到此目錄Wbe.nctu Copyrigh

2、t 2001學學習習學習本章之後，學習者能：1.瞭解什麼是檔案。2.瞭解循序存取檔案、隨機存取檔案與二進位存取檔案的使用方法。3.瞭解循序存取檔案、隨機存取檔案與二進位存取檔案之間的差異。4.瞭解檔案儲存資料的基本方式。5.利用共用對話盒讓使用者指定開啟檔案名稱。Wbe.nctu Copyright 2001摘摘檔案乃是資料儲存的一個集合名詞，檔案經由作業系統的管理，有秩序地在磁片內存放，只需運用適當的指令或程序，即得以進行檔案處理。在 Visual Basic 中對於檔案資料的處理亦提供了三種類別的檔案及相關敘述與函數，在工具箱中亦有三個檔案目錄控制元件。循序存取檔案就是順著由前而後的次序讀

3、取資料或寫入資料的檔案，隨機存取檔案可以讓使用者忽前忽後地進行資料的讀取或寫入，二進位存取檔案藉由位置、長度的指定執行資料的讀寫。Wbe.nctu Copyright 2001摘摘電腦不僅是可以作快速的資料運算，電腦也是儲存資料的理想工具。藉著磁片、硬式磁碟機或磁帶將大量的資料儲存在小空間的媒體上，我們即可有效率地運用電腦作快速的搜尋、更改、排序等資料處理工作。因此，檔案資料的存取是學習電腦程式語言上不可或缺的部分。Wbe.nctu Copyright 2001摘摘為了讓學習者對於檔案資料的處理具備完整的概念，本章先就檔案的基本概念先行介紹，解說檔案的意義、檔案使用的步驟、檔案模式、檔案的開啟

4、與關閉、檔案的指標，以及檔案資料的讀寫，隨後，就 Visual Basic 提供的檔案處理三種類別與結構逐一介紹其內涵，再藉由五個程式實例解說其用法，在程式實例 5 中連帶地介紹了利用共用對話盒讓使用者指定開啟檔案名稱的方法。Wbe.nctu Copyright 2001I.檔檔案案的的對於個人電腦使用者而言，檔案並不是陌生的名詞，因為 IBM PC 的基本作業環境是 MS-DOS 磁碟作業系統，檔案的使用是絕對必要的，每位使用者必然對於檔案已具備一些概念，然而，對程式設計者而言，這些概念仍嫌不夠，本節將介紹的，即是程式設計者所需具備的檔案基本概念。W b e.n c t u Copyrigh

5、t 2001Wbe.nctu Copyright 2001I.1 檔檔所謂檔案，乃是資料儲存的一個集合名詞。在一般的文件處理上，用檔案這個名詞代表有系統地歸類而儲存的資料，在電腦方面，其意義亦是如此。兩者之間的差異是在於前者形之於紙張、文件，後者則是必須透過電腦或具有電子資料處理功能的器具才能顯現。由於基本理念上的相同一致，在電腦的使用上，也運用同樣的名詞 檔案。Wbe.nctu Copyright 2001I.1 檔檔案案的的藉著電腦快速運算處理及大量儲存的能力，我們得以將文件資料變成電子資料儲存在電腦可以讀寫的媒體（如磁片、硬式磁碟機、磁帶、光碟等）上，由於資料的類別可有千奇百種，電子資料

6、又不像一般文件易於辨識，藉由電腦進行資料的處理更需要高度有系統、講究效率的作法。Wbe.nctu Copyright 2001I.1 檔檔案案的的以一張常用的三吋半高密度(2HD)磁片為例，單張滿載的容量為1,457,664個位元組，對使用者而言，資料存入其中即是以檔案為單位，最多可儲存2,847個檔案，這些檔案經由作業系統(operating system)的管理，有秩序地在磁片內存放，對使用者而言，只需運用適當的指令或程序，即得以進行檔案處理，如開啟、關閉、拷貝、刪除、修改等，毋需知曉檔案在磁片中實際的存放情形，每一個檔案在電腦處理上是由使用者賦于一個檔案名稱來代表它，這種便利提供使用者得

7、以靈活地進行各種資料處理工作。Wbe.nctu Copyright 2001I.1 檔檔案案的的Visual Basic在Microsoft Windows環境下操作，所使用的檔案與MS-DOS所稱者其實是同一回事。在Visual Basic中對於檔案資料的處理亦提供了三種類別的檔案及相關敘述與函數，在工具箱中亦有三個檔案目錄控制元件，在一般的應用程式開發上是相當足夠而且簡單易學。Wbe.nctu Copyright 2001I.2 檔檔案案電腦檔案的使用必須是完整地經過三個步驟，即：開啟、存取、關閉。使用檔案，一開始必須先指定檔案名稱、檔案模式及資料存取方式以開啟檔案，已開啟之檔案才得以進行

8、存取、搜尋、排序等各種處理，當資料處理程序完成後，尚須執行關閉檔案的動作，經過處理的資料才得以完整地存入指定的檔案之中。Wbe.nctu Copyright 2001I.2 檔檔案案使使用用注意：檔案開啟後，若未完成關閉的動作而終止處理（如關機），部分寫入或修改的資料將不能完整地存入，同時也會造成檔案結構不健全而導致該檔不能正常使用。Wbe.nctu Copyright 2001I.3 檔檔Visual Basic提供五種檔案模式(file mode)，這些模式與存取方式必須在開啟檔案時就明確地指定，它將關係著檔案的結構，也限定了隨後資料存取的方式與可使用的指令。Wbe.nctu Copyri

9、ght 2001表表1 檔檔檔案模式名稱簡意說明適用檔案類別Input輸入資料開啟已存在的檔案循序讀取其中資料循序存取檔案Output輸出資料開啟新的檔案或清除舊的檔案循序寫入資料循序存取檔案Append附加資料開啟已存在的檔案循序於其後寫入新資料循序存取檔案Random隨機存取資料開啟檔案依指定的記錄格式作隨意地存取資料隨機存取檔案Binary二進位處理開啟檔案隨意地對其中各個位元組進行資料處理二進位存取檔案Wbe.nctu Copyright 2001I.3 檔檔案案Input,Output 與Append 三種檔案模式是適用於循序存取檔案。以Input 模式開啟的檔案只能讀，意即只能循序

10、地由檔案中從頭開始讀取資料；以Output 或Append 模式開啟的檔案只能寫，Output只能循序地由檔案開端將資料寫入，Append只能循序地由檔案尾端將資料寫入；Wbe.nctu Copyright 2001I.3 檔檔案案Random 則適用於隨機存取檔案，以這種模式開啟的檔案能讀也能寫，而且資料處理的順序不需循著檔案內儲存的順序，使用者可以隨意地忽前忽後處理各筆記錄，但是檔案資料內容必須遵循指定的記錄格式排列；Binary 適用於二進位存取檔案，可針對檔案中任意位元組的資料依其存在檔案中的位址進行讀或寫的處理工作。Wbe.nctu Copyright 2001I.4 檔檔案案的的開

11、啟檔案開啟檔案(Open)敘述敘述作用：啟動一個檔案的輸入輸出功能語法：Open 檔案名稱 For 檔案模式 As#檔案編號 Len=記錄長度Wbe.nctu Copyright 2001開啟檔案(說明：任何檔案的使用必須先以此一敘述開啟檔案，方得存取資料。檔案名稱是字串變數或常數，其內容必須符合Windows檔案名稱之規定。檔案模式必須是Input,Output,Append,Random,Binary等五個保留字之一（不加雙引號），用以指定檔案模式。若未指定，則視同指定Random。Wbe.nctu Copyright 2001開啟檔案(O說明：檔案編號是整數變數或常數，必須是介於 1 到

12、 511（含）之間，用以作為爾後存取資料與關閉檔案的指定編號。一個檔案編號被開啟使用在未關閉之前，該編號不得被重覆開啟使用。檔案編號之前的符號#可以省略。記錄長度是整數變數或常數，必須是介於 1 到 32767（含）之間，是檔案模式為Random時用以指定檔案中記錄長度的位元組個數。此值若未指定，則以內定值128代替。Wbe.nctu Copyright 2001開啟檔案(O說明：若欲開啟之檔案並不存在，對於檔案模式設定為Input的檔案而言，將造成找不到檔案的錯誤狀態，對於檔案模式設定為Output,Append,Random或Binary的檔案而言，則自動開啟一個新的檔案。以Input,R

13、andom或Binary等檔案模式開啟而使用中之檔案，可以使用不同的檔案編號同時開啟使用而彼此不會造成干擾。但若以Output或Append檔案模式開啟而使用中之檔案，則必須關閉後才得以再開啟。Wbe.nctu Copyright 2001範範範例I-1：開啟循序存取檔案之一Open MYFILE.DAT For Input As#1開啟檔案編號#1對應檔案 MYFILE.DAT 作循序輸入。範例I-2：開啟循序存取檔案之二Open MYFILE.OUT For Output As#5開啟檔案編號#5對應檔案 MYFILE.OUT 作循序輸出。Wbe.nctu Copyright 2001範範

14、例例範例I-3：開啟循序存取檔案之三Open MYFILE.TXT For Append As#9開啟檔案編號#9對應檔案 MYFILE.TXT 作循序附加資料。範例I-4：開啟隨機存取檔案MyFile$=MYFILE.RNDFnum%=11Open MyFile$For Random As Fnum%Len=32開啟檔案編號#11對應檔案 MYFILE.RND 記錄長度指定為32個位元組作隨機存取。Wbe.nctu Copyright 2001範範例例範例I-5：開啟二進位存取檔案DbfFile$=MYFILE.DBFFnum%=6Open DbfFile$For Binary As Fnu

15、m%開啟檔案編號#6對應檔案 MYFILE.DBF作二進位存取。Wbe.nctu Copyright 2001關關閉閉檔檔案案(C作用：關閉已開啟的檔案語法：Close#檔案編號,#檔案編號.Wbe.nctu Copyright 2001關關閉閉檔檔案案(Cl說明：檔案編號是整數變數或常數，必須是介於 1 到 511（含）之間，是先前開啟檔案的指定編號。檔案編號之前的符號#可以省略。檔案編號可以在一個敘述中接連指定多個，中間以逗號隔開。若僅以Close為敘述而未指定任何檔案編號，則關閉所有已開啟之檔案。當一個檔案存取資料的動作執行完畢時，即應予以關閉，關閉檔案可使寫入的資料確實存入檔案之內（因

16、為最後寫入的部分資料有可能還留在檔案緩衝區之內）。程式中止敘述(End)具有關閉所有檔案之作用。Wbe.nctu Copyright 2001範範範例I-6：關閉檔案之一jf%=9Close#5,jf%關閉檔案編號#5及#9兩個檔案。範例I-7：關閉檔案之二Close關閉所有已開啟之檔案。Wbe.nctu Copyright 2001I.5 檔檔每一個檔案編號都有對應的一個讀寫指標指到開啟的檔案，當檔案開啟時，這個指標指到檔案的開端，唯有檔案模式為附加資料(Append)時，是指到已存在檔案的尾端最後一個位元組之後。隨著存取指令，這個指標就移到所處理的資料之後。以不同的檔案編號開啟同一個檔案同

17、時作輸入或隨機存取，即是有多個指標指到同一個檔案多個位址，但是彼此並不干擾。Wbe.nctu Copyright 2001I.6 檔檔案案檔案一經開啟，依據指定之檔案模式對應之讀寫功能，即可進行資料之讀取或寫入處理。不同的檔案類別，由於檔案結構上的差異，適用之讀寫敘述也不盡相同，將隨後分別說明。Wbe.nctu Copyright 2001 習習1.電腦檔案的使用必須是完整地經過那幾個步驟？2.循序存取檔案適用那幾種檔案模式？3.那種檔案模式可以隨意地忽前忽後處理檔案資料？4.在開啟檔案(Open)敘述中，記錄長度的指定是用於何種檔案模式？5.關閉檔案(Close)敘述中，若未指定任何檔案編號

18、，其作用為何？Wbe.nctu Copyright 2001II.檔檔案案在Visual Basic中，檔案按照它存放資料的安排方式，並對應資料存取方式的差異而有三種不同的檔案結構：1.循序存取檔案2.隨機存取檔案3.二進位存取檔案Wbe.nctu Copyright 20011.循循序序顧名思義循序存取檔案就是順著由前而後的次序讀取資料或寫入資料的檔案。寫入時，資料的安排方式是依照寫入的順序一行接著一行存放。讀取時，資料依照存放的順序一行接著一行讀出，每行資料的長度可長可短。意即，循序存取檔案讀寫資料原則上是以行為單位。由表1可以看出，循序存取檔案可運用於Input,Output,及Appe

19、nd 三種檔案模式。Wbe.nctu Copyright 20012.隨隨機機隨機存取檔案可以讓使用者忽前忽後地進行資料的讀取或寫入。隨機存取檔案存放資料的安排方式比較特別，讀寫資料原則上是以記錄為單位。一筆記錄可包含固定的數個資料欄，每一個資料欄被設定為一種資料型態且有固定的長度，因此，每一筆記錄都是固定一致的長度。每一記錄存放在檔案中的序號稱為記錄號碼，程式中讀取或寫入的位置就是以記錄號碼來指定。Wbe.nctu Copyright 20013.二二進進位位二進位存取檔案對於檔案存放資料並無特定的安排方式，讀寫資料原則上是以位元組為單位，藉由位置、長度的指定執行資料的讀取或寫入，意即資料讀

20、寫方式是自第幾個位元組的位置起讀取幾個位元組的資料，或是自第幾個位元組的位置起寫入幾個位元組的資料。Wbe.nctu Copyright 2001 習習1.同一循序存取檔案是否開啟作為既可以讀取又可以寫入之用？2.以隨機存取檔案存放的資料可否當作二進位存取檔案來使用？Wbe.nctu Copyright 2001III.循循本節包含三個程式實例，以示範循序存取檔案的使用方法，除了前述的檔案開啟與關閉敘述，程式實例 1 示範 Line Input 敘述逐行讀取資料，Print 敘述將資料一次寫入檔案的用法，程式實例 2 示範 Write 敘述將資料寫入檔案的用法，程式實例 3 示範 Input

21、敘述讀取檔案資料的用法。Wbe.nctu Copyright 2001程程式式文字檔編輯開啟指定檔名之文字檔，讀取並顯示其內容，可修改後存檔，亦可列印。Wbe.nctu Copyright 2001一、一、程程式式運用一個文字盒(txtFileName)輸入檔案名稱運用一個文字盒(txtFileContent)顯示檔案內容【程式實例 1】Wbe.nctu Copyright 2001一、一、程程式式設設計計安排命令鈕以執行讀取、寫入、列印、清除及結束等功能：讀取(cmdInput)讀出指定之檔案內容，並顯示於文字盒(txtFileContent)。寫入(cmdSave)將編輯後之文字盒(txt

22、FileContent)內容寫入指定檔案。列印(cmdPrint)將文字盒(txtFileContent)內容送至報表機印出。清除(cmdClear)清除文字盒(txtFileContent)內容。結束(cmdEnd)結束程式執行。【程式實例 1】Wbe.nctu Copyright 2001二、二、表表【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制逐一加入各控制項，並設定其屬性如下：1.設定表單屬性：Caption =文字檔編輯Name =frmEx1【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制項項2.加入標籤項Label1：

23、Caption =檔案名稱：3.加入標籤項Label2：Caption =檔案內容：【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制項項4.加入文字盒txtFileName：Name =txtFileNameText =c:autoexec.bat將內定的檔案名稱填入文字盒欄內。【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制項項5.加入文字盒txtFileContent：Name =txtFileContent MultiLine =-1 TrueScrollBars =3 Both 檔案內容通常是多行文字，因此必須設定為多行列示模

24、式(MultiLine=True)，同時設定水平捲軸與垂直捲軸(ScrollBars)都顯現。【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制項項6.加入命令鈕cmdSave：Name =cmdSave Caption =寫入7.加入命令鈕cmdPrint：Name =cmdPrintCaption =列印【程式實例 1】Wbe.nctu Copyright 2001三、三、控控制制項項7.加入命令鈕cmdClear：Name =cmdClearCaption =清除8.加入命令鈕cmdQuit：Name =cmdQuitCaption =結束【程式實例 1】Wb

25、e.nctu Copyright 2001四、四、程程1.檔案名稱的輸入 運用文字盒(txtFileName)供檔案名稱的輸入，一般狀況之下無須為此設計編輯程式。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程式式設設2.讀取檔案內容將程式Ex1.FRM的事件程序cmdInput_Click安排如下，當程式執行時，按下讀取命令鈕，即讀出指定之檔案內容，並顯示於文字盒(txtFileContent)。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程式式設設計計-Sub cmdInput_Click()讀出指定之檔案內容，並顯示於文字盒(txtF

26、ileContent)txtFileContent.Visible=False 暫時不顯示，以避免閃爍 讀出檔案內容，並顯示於txtFileContenttxtFileContent.Text=清除內容f$=txtFileName.TextOpen f$For Input As#1 開啟檔案While Not EOF(1)Line Input#1,a$逐行讀取txtFileContent=txtFileContent+a$+Chr$(13)+Chr$(10)逐行加入txtFileContentWend 直到檔案尾端Close#1 關閉檔案txtFileContent.Visible=True

27、恢復顯示End Sub【程式實例 1】Wbe.nctu Copyright 2001讀讀取取檔檔案案內內a.在這段程式中，為了讀取檔案內容，先執行開啟檔案(Open)敘述，然後以Line Input敘述讀入一行資料置於字串變數a$，再將a$填入文字盒txtFileContent。b.清除一個文字盒，就是指定一個空字串為其內容。【程式實例 1】Wbe.nctu Copyright 2001讀讀取取檔檔案案內內容容c.檔案內容在實體上乃是一長串的資料碼，所謂文字檔，指的是顯示出來的內容是一般的文字或符號，一行一行的效果則是資料碼中包含換行符號所造成。以Line Input敘述所讀入的一行資料，實質

28、上乃是由當時檔案的指標位置開始，到換行符號出現之前的字串，讀入完成時，檔案指標移至該換行符號之後。讀入之各行資料以連接運算(+)併入文字盒txtFileContent時，必須於每行之後加入換行符號Chr$(13)及Chr$(10)，才能在文字盒之中顯現分行的效果。【程式實例 1】Wbe.nctu Copyright 2001讀讀取取檔檔案案內內容容d.由於檔案的資料行數多寡不一，程式中運用函數EOF()，配合控制迴圈While.Wend逐行讀入資料並且將之併入文字盒txtFileContent，直到檔案結束。e.資料讀取完畢，必須執行關閉檔案(Close)敘述。【程式實例 1】Wbe.nctu

29、 Copyright 2001四、四、程程3.寫入檔案 將程式Ex1.FRM的事件程序cmdSave_Click安排如下，當程式執行時，按下寫入命令鈕，即將文字盒(txtFileContent)內容寫入指定檔案。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程式式設設計計Sub cmdSave_Click()將文字盒(txtFileContent)內容寫入指定檔案f$=txtFileName.TextOpen f$For Output As#1 開啟檔案Print#1,txtFileContent.Text 寫入檔案Close#1 關閉檔案End Sub【程式實例 1

30、】Wbe.nctu Copyright 2001寫寫入入檔檔案案a.在這段程式中，先執行開啟檔案(Open)敘述，然後以Print敘述配上檔案編號將文字盒txtFileContent內容整個寫入檔案。b.資料寫入完畢，執行關閉檔案(Close)敘述。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程4.列印檔案內容將程式EX1.FRM的事件程序cmdPrint_Click安排如下，當程式執行時，按下列印命令鈕，即將文字盒(txtFileContent)內容送至報表機印出。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程式式設設計計-Sub cm

31、dPrint_Click()將文字盒(txtFileContent)內容送至報表機印出Printer.Print txtFileContent.TextPrinter.NewPage 頁結束Printer.EndDoc 列印結束End Sub【程式實例 1】Wbe.nctu Copyright 2001列列印印檔檔案案內內a.物件Printer是系統目前所設定之報表機，Print敘述可將指定之文數字輸出至指定物件。b.Printer.NewPage指定報表機將已輸出之資料加上頁結束訊號，使後續資料在新的一頁印出。c.Printer.EndDoc表示送印之資料告一段落。【程式實例 1】Wbe.n

32、ctu Copyright 2001四、四、程程5.清除內容將程式EX1.FRM的事件程序cmdClear_Click安排如下，當程式執行時，按下清除命令鈕，即將文字盒(txtFileContent)內容清除。【程式實例 1】Wbe.nctu Copyright 2001四、四、程程式式設設計計Sub cmdClear_Click()清除文字盒(txtFileContent)內容txtFileContent.Text=清除內容End Sub【程式實例 1】Wbe.nctu Copyright 2001四、四、程程6.結束程式執行將程式EX1.FRM的事件程序cmdQuit_Click安排如下，

33、當程式執行時，按下結束命令鈕，即結束程式執行。Sub cmdQuit_Click()End 結束程式執行End Sub【程式實例 1】Wbe.nctu Copyright 2001五、五、程程程式執行時，顯現畫面如下：【程式實例 1】Wbe.nctu Copyright 2001五、五、程程式式執執此時即可進行多種檔案編輯工作：若直接按下讀取命令鈕，則c:autoexec.bat檔案內容即顯示於文字盒txtFileContent。【程式實例 1】Wbe.nctu Copyright 2001五、五、程程式式執執若檔案內容行數過多，可利用右側垂直捲軸上下變動顯示範圍；若部分資料行過長，亦可利用下

34、方水平捲軸左右移動顯示範圍。檔案內容可進行編輯。可變更檔案名稱，並按下讀取命令鈕顯示其內容，亦可按下寫入命令鈕指定存檔。【程式實例 1】Wbe.nctu Copyright 2001五、五、程程式式執執按下列印命令鈕，即將編輯後之檔案內容送至報表機印出。按下清除命令鈕，即將文字盒內容清除。按下結束命令鈕，即結束程式執行。【程式實例 1】Wbe.nctu Copyright 2001程程式式學生成績登錄利用檔案登錄學生學號、姓名及國文、英文、數學成績，以便爾後處理。Wbe.nctu Copyright 2001一、一、程程式式檔案名稱訂為SCORE.DAT，程式開始執行時即開啟檔案，當結束程式執

35、行時則關閉檔案。運用五個文字盒的欄位輸入學號、姓名及國文、英文、數學成績。安排命令鈕以執行寫入、清除及結束等功能：1.寫入(cmdSave)將輸入之學號、姓名及國文、英文、數學成績寫入檔案成為檔案中的一筆記錄。2.清除(cmdClear)清除各文字盒內容。3.結束(cmdEnd)結束程式執行。安排標籤項顯示處理中之記錄筆數。【程式實例 2】Wbe.nctu Copyright 2001二、二、表表【程式實例 2】Wbe.nctu Copyright 2001三、三、控控制制逐一加入各控制項，並設定其屬性如下：1.設定表單屬性：Caption =學生成績登錄Name =frmEx22.加入標籤項

36、lblRecNo：Alignment =2 CenterCaption =1 Caption設為1，表示程式開始時將填入之資料為第一筆【程式實例 2】Wbe.nctu Copyright 2001三、三、控控制制項項3.加入標籤項Label1Label8，標題分別是：學號：、姓名：、國文：、英文：、數學：、成績、第、筆。4.加入文字盒txtID、txtName、txtChinese、txtEnglish、txtMath：5.加入命令鈕cmdSave：Caption =寫入6.加入命令鈕cmdClear：Caption =清除7.加入命令鈕cmdQuit：Caption =結束【程式實例 2】W

37、be.nctu Copyright 2001四、四、程程1.程式開始執行Form_Load事件程序是程式開始時先行執行的程式段，將程式Ex2.FRM的事件程序Form_Load安排如下，則程式開始執行時即開啟檔案。標籤項記錄筆數lblRecNo於屬性設定時已預設為1，表示程式開始時將填入之記錄為第一筆。Sub Form_Load()Open SCORE.DAT For Output As#1 開啟檔案End Sub【程式實例 2】Wbe.nctu Copyright 2001四、四、程程式式設設2.成績登錄運用文字盒欄位供成績登錄，無須為此設計編輯程式。【程式實例 2】Wbe.nctu Cop

38、yright 2001四、四、程程式式設設3.清除內容將程式Ex2.FRM的事件程序cmdClear_Click安排如下，在成績登錄過程中，若需要清除各文字盒內容，按下清除命令鈕即可。Sub cmdClear_Click()清除各文字盒內容txtID.Text=txtName.Text=txtChinese.Text=txtEnglish.Text=txtMath.Text=End Sub【程式實例 2】Wbe.nctu Copyright 2001四、四、程程式式設設4.寫入檔案將程式Ex2.FRM的事件程序cmdSave_Click安排如下，當程式執行時，按下寫入命令鈕，即將各文字盒內容寫

39、入檔案SCORE.DAT。Sub cmdSave_Click()將輸入之學號、姓名及國文、英文、數學成績寫入檔案StuID$=txtID.TextStuName$=txtName.TextChinese!=Val(txtChinese.Text)English!=Val(txtEnglish.Text)Math!=Val(txtMath.Text)Write#1,StuID$,StuName$,Chinese!,English!,Math!寫入檔案lblRecNo.Caption=lblRecNo.Caption+1 標籤項記錄筆數加一cmdClear_Click 清除各文字盒內容End Su

40、b【程式實例 2】Wbe.nctu Copyright 2001寫寫入入檔檔案案a.檔案SCORE.DAT已於程式開始時由Form_Load事件程序先行執行開啟檔案的動作。b.學號、姓名、國文、英文、數學成績等五項資料對應地分別自文字盒存入兩個字串變數(StuID$,StuName$)及三個實數(Chinese!,English!,Math!)。c.Write敘述配上檔案編號將五項資料寫入檔案成為檔案中的一筆記錄。Write敘述不同於Print敘述，資料寫入檔案時在各項資料之間將加入逗號(,)，文字字串並加雙引號()於前後。【程式實例 2】Wbe.nctu Copyright 2001寫寫入入

41、檔檔案案-d.標籤項記錄筆數加一，表示下一筆記錄之筆數。e.為了清除各文字盒內容以便下一筆記錄之輸入，可運用事件程序cmdClear_Click。【程式實例 2】Wbe.nctu Copyright 20015.結結束束程程 將程式Ex2.FRM的事件程序cmdQuit_Click安排如下，當程式執行時，按下結束命令鈕，即關閉檔案並結束程式執行。Sub cmdQuit_Click()Close#1 關閉檔案End 結束程式執行End Sub【程式實例 2】Wbe.nctu Copyright 2001五、五、程程 程式執行時，顯現畫面如下：【程式實例 2】Wbe.nctu Copyright

42、2001五、五、程程式式執執此時即可進行成績登錄工作：在各文字盒欄位對應地填入學號、姓名、國文、英文、數學成績等五項資料。例如：【程式實例 2】Wbe.nctu Copyright 2001五、五、程程式式執執 必要時，可按下清除命令鈕，即將各文字盒內容清除。按下寫入命令鈕，即將輸入之學號、姓名及國文、英文、數學成績寫入檔案成為檔案中的一筆記錄。成績寫入檔案之後，各文字盒內容將自動清除，標示的筆數也自動加一，可繼續填入下一筆記錄。當所有成績登錄完畢時，按下結束命令鈕，即結束程式執行。【程式實例 2】Wbe.nctu Copyright 2001五、五、程程式式執執 運用程式實例1可以觀看SCO

43、RE.DAT檔案內資料登錄的狀況，如下所示：【程式實例 2】Wbe.nctu Copyright 2001程程式式學生成績列示列示檔案中已登錄之每位學生成績資料及三科成績總分，並顯示各科及總分之平均分數。Wbe.nctu Copyright 2001一、一、程程式式程式執行時可運用Print指令在除錯視窗(Debug Window)顯示輸出之文字資料。除錯視窗是測試程式時協助程式設計員排除錯誤的工具視窗，亦可作為程式的輸出物件，具有一般視窗之移位、變換大小之控制功能，可運用編輯鍵或方向鍵變動游標位置或利用垂直捲軸以變動顯示範圍。【程式實例 3】Wbe.nctu Copyright 2001一、

44、一、程程式式設設計計安排命令鈕開始進行讀取成績資料與運算，並列示於Debug Window中。安排命令鈕結束以結束程式執行。【程式實例 3】Wbe.nctu Copyright 2001二、二、表表【程式實例 3】Wbe.nctu Copyright 2001三、三、控控制制逐一加入各控制項，並設定其屬性如下：1.設定表單屬性：Caption =學生成績列示Name =frmEx32.加入標籤項lblMsg：Alignment =2 CenterCaption =按下開始命令鈕，成績將列示於Debug Window中。3.加入命令鈕cmdBegin：Caption =開始4.加入命令鈕cmdQ

45、uit：Caption =結束【程式實例 3】Wbe.nctu Copyright 2001四、四、程程1.開始列示將程式Ex3.FRM的事件程序cmdBegin_Click安排如下，在程式執行時按下開始命令鈕成績即列示於Debug Window中。【程式實例 3】Wbe.nctu Copyright 2001四、四、程程式式設設計計Sub cmdBegin_Click()將成績列示於Debug Window中。標題Debug.Print 學號;Tab(10);姓名;Tab(20);國文;Tab(26);Debug.Print 英文;Tab(32);數學;Tab(38);總分Debug.Pri

46、nt-cSum!=0:eSum!=0:mSum!=0:tSum!=0:StuNo%=0 累計用之各變數設定初值為零Open SCORE.DAT For Input As#1 開啟檔案 逐筆讀取記錄，累計成績，列示While Not EOF(1)Input#1,StudID$,StudName$,Chinese!,English!,Math!StuNo%=StuNo%+1 累計學生人數cSum!=cSum!+Chinese!累計國文成績eSum!=eSum!+English!累計英文成績mSum!=mSum!+Math!累計數學成績Total!=Chinese!+English!+Math!合計

47、總成績tSum!=tSum!+Total!累計總成績Debug.Print StudID$;Tab(10);StudName$;Tab(20);Chinese!;Debug.Print Tab(26);English!;Tab(32);Math!;Tab(38);Total!WendClose#1 關閉檔案 計算、顯示平均成績cAvg!=cSum!/StuNo%:eAvg!=eSum!/StuNo%:mAvg!=mSum!/StuNo%:tAvg!=tSum!/StuNo%Debug.Print-Debug.Print Tab(10);平均;Tab(20);cAvg!;Tab(26);eAvg

48、!;Debug.Print Tab(32);mAvg!;Tab(38);tAvg!End SubWbe.nctu Copyright 2001四、四、程程2.結束程式執行 將程式Ex3.FRM的事件程序cmdQuit_Click安排如下，當程式執行時，按下結束命令鈕，即結束程式執行。Sub cmdQuit_Click()End 結束程式執行End Sub【程式實例 3】Wbe.nctu Copyright 2001五、五、程程程式執行時，顯現畫面如下：【程式實例 3】Wbe.nctu Copyright 2001五、五、程程式式執執按下開始命令鈕，成績即列示於Debug Window中。【程式

49、實例 3】Wbe.nctu Copyright 2001五、五、程程式式執執按下結束命令鈕，即結束程式執行。【程式實例 3】Wbe.nctu Copyright 2001 習習1.試將程式實例 1 改成可以同時開啟兩個文字檔，並可將兩檔之內容合併成一個新檔。2.試將程式實例 1 改成可以對檔案內容執行取代的功能，意即指定一字串為搜尋目標，將檔案內容中所有符合的目標全部取代為另一指定字串。Wbe.nctu Copyright 2001 習習題題3.試設計一程式類似程式實例 2，用以登錄學生身體測量，即身高、體重、胸圍，其中學號、姓名兩欄不需鍵入，而由程式實例 2 所建資料檔讀入顯示。4.試修改程

50、式實例 3 將成績列示於自訂表單中的文字盒。Wbe.nctu Copyright 2001IV.隨隨機機本節以程式實例 4 示範隨機存取檔案的使用方法，除了前述的檔案開啟與關閉敘述，程式實例中示範 Get 敘述讀取檔案中一筆記錄、Put敘述將一筆記錄資料寫入檔案的用法。Wbe.nctu Copyright 2001程程式式成績檔隨機存取利用隨機存取檔案登錄學生學號、姓名及國文、英文、數學成績。Wbe.nctu Copyright 2001一、一、程程式式檔案名稱訂為SCORE.RND，程式開始執行時即開啟檔案，當結束程式執行時則關閉檔案。運用五個文字盒的欄位輸入學號、姓名及國文、英文、數學成績