【正文】 Visual Basic. NET 程序設(shè)計(jì)(下 ) Visual Basic. NET 程序設(shè)計(jì) 第 11章 文件 內(nèi)容提要 ? 文件概述 ? 順序文件 ? 隨機(jī)文件 ? Visual 入輸出設(shè)備上進(jìn)行，也可以在其他外部設(shè)備，諸如磁盤、磁帶等后備存儲(chǔ)器上進(jìn)行。由于后備存儲(chǔ)器上的數(shù)據(jù)是由文件構(gòu)成的，因此非標(biāo)準(zhǔn)的輸入輸出通常稱為文件處理。在目前微機(jī)系統(tǒng)中，除終端外，使用最廣泛的輸入輸出設(shè)備就是磁盤。在這一章中，我們將介紹 Visual 。 文件概述 ? 在計(jì)算機(jī)科學(xué)技術(shù)中，常用“文件”這一術(shù)語來表示輸入輸出操作的對象。所謂“文件”，是指記錄在外部介質(zhì)上的數(shù)據(jù)的集合。例如用Word或 Excel編輯制作的文檔或表格就是一個(gè)文件，把它存放到磁盤上就是一個(gè)磁盤文件，輸出到打印機(jī)上就是一個(gè)打印機(jī)文件。廣義地說，任何輸入輸出設(shè)備都是文件。計(jì)算機(jī)以這些設(shè)備為對象進(jìn)行輸入輸出，對這些設(shè)備統(tǒng)一按“文件”進(jìn)行處理。 1. 文件結(jié)構(gòu) ? 為了有效地進(jìn)行存取，數(shù)據(jù)必須以某種特定的方式存放，這種特定的方式稱為文件結(jié)構(gòu)。Visual ，記錄由字段組成，字段由字符組成。 2. 文件種類 ? 根據(jù)不同的分類標(biāo)準(zhǔn)，文件可分為不同的類型。根據(jù)數(shù)據(jù)的存取方式和結(jié)構(gòu)，可分為順序文件、隨機(jī)文件和二進(jìn)制文件。 ? 順序文件（ Sequential File）：順序文件的結(jié)構(gòu)比較簡單，文件中的記錄一個(gè)接一個(gè)地存放。在這種文件中，只知道第一個(gè)記錄的存放位置，其他記錄的位置無從知道。當(dāng)要查找某個(gè)數(shù)據(jù)時(shí)，只能從文件頭開始，一個(gè)記錄一個(gè)記錄地順序讀取，直至找到要查找的記錄為止。 ? 隨機(jī)存取文件（ Random Access File）：又稱直接存取文件，簡稱隨機(jī)文件或直接文件。與順序文件不同，在訪問隨機(jī)文件中的數(shù)據(jù)時(shí)，不必考慮各個(gè)記錄的排列順序或位置，可以根據(jù)需要訪問文件中的任一個(gè)記錄。對于順序文件來說，文件中的各個(gè)記錄只能按實(shí)際排列的順序，一個(gè)一個(gè)地依次訪問。 ? 二進(jìn)制文件（ Binary File）：以二進(jìn)制方式保存的文件。二進(jìn)制文件不能用普通的字處理軟件編輯，占空間較小。 順序文件 ? 順序文件的讀寫操作與標(biāo)準(zhǔn)輸入輸出十分類似。其中讀操作是把（磁盤）文件中的數(shù)據(jù)輸入內(nèi)存，而寫操作則是把內(nèi)存中的數(shù)據(jù)輸出到（磁盤）文件。 順序文件的寫操作 ? 順序文件的寫操作分為 3步，即打開文件、寫入文件和關(guān)閉文件。 1. 打開（建立）文件 在對文件進(jìn)行操作之前，必須先打開或建立文件。 Visual FileOpen函數(shù)打開或建立一個(gè)文件。其格式為： FileOpen(文件號(hào) , 文件名 , 方式 [, 訪問類型 ] [, 記錄長度 ] FileOpen函數(shù)的功能是：為文件的輸入輸出分配緩沖區(qū)，并確定緩沖區(qū)所使用的訪問方式。 下面是兩個(gè)打開文件的例子： （ 1）以 Output方式打開文件： FileOpen(1, testFile, ) （ 2）先把文件名賦給一個(gè)變量，然后以 Append方式打開該文件。 Dim Filename=d:\test\ FileOpen(2, Filename, ) 2. 寫操作 順序文件的寫操作通過 Print函數(shù)、 PrintLine函數(shù)或 Write函數(shù)、 WriteLine函數(shù)來實(shí)現(xiàn)。 （ 1） Print函數(shù)和 PrintLine函數(shù) 格式： Print(文件號(hào) , [[Spc(n)|Tab(n)] [表達(dá)式表 ]])) PrintLine(文件號(hào) , [[Spc(n)|Tab(n)] [表達(dá)式表 ]])) Print函數(shù)的功能是：把數(shù)據(jù)寫入文件。“文件號(hào)”的含義同前，數(shù)據(jù)被寫入該文件號(hào)所代表的文件中。 PrintLine函數(shù)與 Print函數(shù)基本相同，唯一的區(qū)別是， Print不在行尾包含換行；而 PrintLine在行尾包含換行。例如： Print（ 1, A, B, C） 把變量 A、 B、 C的值寫到文件號(hào)為 1的文件中，不包含換行。而 PrintLine（ 1, A, B, C） 與前一個(gè)語句功能相同，但包含換行。 用 Print函數(shù)可以把數(shù)值或字符串寫入一個(gè)文本文件中，可以通過字處理軟件（如 Windows中的記事本、 Word等）查看文件的內(nèi)容。在上面的例子中，用Print函數(shù)把數(shù)據(jù)寫入名為 ，例子的執(zhí)行結(jié)果就是這個(gè)文件的內(nèi)容。所使用的打開文件的語句為： FileOpen(1, d:\test\, ) 用 Print函數(shù)把數(shù)據(jù)寫入文件，實(shí)際上是把數(shù)據(jù)輸出到文件中。因此，對于 Print函數(shù)的執(zhí)行結(jié)果來說，這兩個(gè)詞可以混用。 【 例 】 設(shè)有如下的人員名冊： ━━━━━━━━━━━━━━━━━━━━━ 姓名 年齡 職務(wù) 單位 籍貫 ───────────────────── 張得功 25 科長 勞動(dòng)科 北京 李得勝 32 處長 科研處 上海 ━━━━━━━━━━━━━━━━━━━━━ 編程序把上面的表格輸出到一個(gè)文件（不輸出橫線）。 在窗體上畫一個(gè)按鈕，然后編寫如下的事件過程： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim Tpname, Tptel, TpAddr As String FileOpen(1, d:\test\, ) Dim x, y As Short Print(1, TAB(2), 姓名 , TAB(10), 年齡 , TAB(16), 職務(wù) ) PrintLine(1, TAB(24), 單位 , TAB(32), 籍貫 ) PrintLine(1) PrintLine(1, TAB(2), 張得功 , TAB(10), 25, TAB(16), 科長 , _ TAB(24), 勞動(dòng)科 , TAB(32), 北京 ) Print(1, TAB(2), 李得勝 , TAB(10), 32, TAB(16), 處長 , _ TAB(24), 科研處 , TAB(32), 上海 ) FileClose(1) End Sub 【 例 】 在磁盤上建立一個(gè)電話號(hào)碼文件，存放單位名稱和該單位的電話號(hào)碼。 程序如下： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim Unit, Tel As String FileOpen(1, d:\test\, ) Unit = InputBox(請輸入單位名稱 :) While UCase(Unit) DONE Tel = InputBox(請輸入電話號(hào)碼 :) Write(1, Unit, Tel) WriteLine(1) Unit = InputBox$(請輸入單位名稱 :) End While FileClose(1) End End Sub 3. 關(guān)閉文件 文件的讀寫操作結(jié)束后，應(yīng)將文件關(guān)閉。這可以通過 FileClose函數(shù)來實(shí)現(xiàn)。其格式為： FileClose([文件號(hào) ]) FileClose函數(shù)用來結(jié)束文件的輸入輸出操作。例如，假定用下面的語句打開文件： FileOpen(1, , ) 則可以用下面的語句關(guān)閉該文件： FileClose(1) 【 例 】 從鍵盤上輸入 4個(gè)學(xué)生的數(shù)據(jù)，然后把它們存放到磁盤文件中。 學(xué)生的數(shù)據(jù)包括姓名、學(xué)號(hào)、年齡、住址，用一個(gè)結(jié)構(gòu)類型來定義。按下述步驟編寫程序： （ 1）定義如下結(jié)構(gòu)類型： Structure stu Dim stname As String Dim num As Integer Dim age As Integer Dim addr As String End Structure （ 2）在窗體上畫一個(gè)按鈕，然后編寫如下的事件過程： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim CL As String = Chr(13) amp。 Chr(10) Static stud() As stu Dim n, i As Short n = InputBox(請輸入學(xué)生人數(shù) :) FileOpen(1, d:\test\, ) ReDim stud(n) For i = 1 To n stud(i).stname = InputBox(請輸入姓名 :) stud(i).num = InputBox(請輸入學(xué)號(hào) :) stud(i).age = InputBox(請輸入年齡 :) stud(i).addr = InputBox(請輸入住址 :) Write(1, stud(i).stname, stud(i).num, _ stud(i).age, stud(i).addr) Write(1, CL) 39。 在一行的尾部加上一個(gè)回車 /換行 Next i FileClose(1) End End Sub 順序文件的讀操作 ? 順序文件的讀操作分三步進(jìn)行，即打開文件、讀數(shù)據(jù)文件和關(guān)閉文件。 ? 打開文件和關(guān)閉文件的操作如前所述 ? 讀數(shù)據(jù)的操作由 Input函數(shù)和 Line Input函數(shù)來實(shí)現(xiàn)。 1. Input函數(shù) 格式： Input（文件號(hào)，變量） Input函數(shù)從一個(gè)順序文件中讀出數(shù)據(jù)項(xiàng)，并把這些數(shù)據(jù)項(xiàng)賦給程序變量。例如： Input（ 1, A） 從文件號(hào)為 1的文件中讀出 1個(gè)數(shù)據(jù)項(xiàng)，并把它賦給變量 A。 【 例 】 把前面建立的學(xué)生數(shù)據(jù)文件（ ）讀到內(nèi)存，并在輸出窗口中顯示出來。 在窗體上畫一個(gè)按鈕，然后編寫如下程序： Structure stu Dim stname As String Dim num As Integer Dim age As Integer Dim addr As String End Structure Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim n, i, j As Short Dim S As String = Dim studInfo As String Dim CL As String = Chr(13) amp。 Chr(10) FileOpen(1, d:\test\, ) () (姓 名 amp。 S amp。 學(xué)號(hào) amp。 S amp。 年齡 amp。 S amp。 住址 amp。 CL) Do While Not EOF(1) Input(1, studInfo) If studInfo = CL Then () Else (studInfo amp。 S) End If Loop (CL) FileClose(1) End Sub 2. Lin