７.１文件處理文件是存儲(chǔ)數(shù)據(jù)的一種方式。將需要保存的數(shù)據(jù)寫入文件便可以將之存儲(chǔ)在磁盤，重復(fù)使用。７.１.１文件概述文件是一組相關(guān)信息的集合，是存放在磁盤上的一系列相關(guān)的字節(jié)。文件按名存取。１.記錄記錄由若干個(gè)相互關(guān)聯(lián)的數(shù)據(jù)項(xiàng)組成。例如，一條學(xué)生的學(xué)習(xí)成績(jī)記錄，由學(xué)號(hào)、姓名、各科成績(jī)、總分等數(shù)據(jù)項(xiàng)組成。下一頁(yè)返回７.１文件處理２.文件及其種類ＶｉｓｕａｌＢａｓｉｃ中的一個(gè)文件由若干條記錄組成，而一條記錄由若干個(gè)字段組成，字段由字符組成。根據(jù)不同的分類標(biāo)準(zhǔn)，文件可分為不同的類型，如表７－１所示。為了有效地存取數(shù)據(jù)，應(yīng)根據(jù)數(shù)據(jù)存放在文件中的方式，使用適當(dāng)?shù)奈募L問(wèn)類型。在ＶｉｓｕａｌＢａｓｉｃ中有三種文件訪問(wèn)的類型：順序訪問(wèn)、隨機(jī)訪問(wèn)、二進(jìn)制訪問(wèn)。（１）順序訪問(wèn)從文件頭開始，依次訪問(wèn)其中的數(shù)據(jù)，適用于文本文件。（２）隨機(jī)訪問(wèn)適用于以記錄形式保存的二進(jìn)制文件，可以存取任意指定位置的記錄。上一頁(yè)下一頁(yè)返回７.１文件處理（３）二進(jìn)制訪問(wèn)適用于任意二進(jìn)制文件，以字節(jié)為單位存取數(shù)據(jù)。３.文件操作的一般步驟要讀取文件中的數(shù)據(jù)，首先將文件“打開”，即將相關(guān)信息加載進(jìn)內(nèi)存，建立文件與內(nèi)存中某個(gè)文件緩沖區(qū)的關(guān)聯(lián)；然后對(duì)文件執(zhí)行“存／取”操作，也就是寫入或讀取數(shù)據(jù)；最后“關(guān)閉”文件，即釋放文件所占用的文件緩沖區(qū)。７.１.２訪問(wèn)文件的語(yǔ)句和函數(shù)ＶｉｓｕａｌＢａｓｉｃ提供了多個(gè)用于訪問(wèn)文件的語(yǔ)句和函數(shù)。其中的大部分語(yǔ)句和函數(shù)適用于３種文件訪問(wèn)類型。本節(jié)介紹常用的文件訪問(wèn)語(yǔ)句和函數(shù)。上一頁(yè)下一頁(yè)返回７.１文件處理１.打開文件———Ｏｐｅｎ語(yǔ)句對(duì)文件進(jìn)行操作之前，必須用Ｏｐｅｎ語(yǔ)句打開或建立一個(gè)文件。Ｏｐｅｎ語(yǔ)句的功能是為文件的輸入／輸出分配緩沖區(qū)，指定文件的存取類型（模式）和存取方式，定義與文件相關(guān)聯(lián)的文件號(hào)。Ｏｐｅｎ語(yǔ)句的語(yǔ)法格式如下：Ｏｐｅｎ文件名［ＦＯＲ模式］［Ａｃｃｅｓｓ存取類型］［鎖定］ＡＳ［＃］文件號(hào)［Ｌｅｎ＝記錄長(zhǎng)度］格式中的Ｏｐｅｎ、ＦＯＲ、Ａｃｃｅｓｓ、ＡＳ、Ｌｅｎ為關(guān)鍵字，其中：（１）文件名可用字符串或字符型變量表示，可以包括盤符和路徑。（２）模式（ｍｏｄｅ）說(shuō)明訪問(wèn)文件的方式，可以取下列值：上一頁(yè)下一頁(yè)返回７.１文件處理①ＯｕｔＰｕｔ———設(shè)定為順序輸出模式。２４１②ＩｎＰｕｔ———設(shè)定為順序輸入模式。③Ａｐｐｅｎｄ———設(shè)定為添加模式，與ＯｕｔＰｕｔ方式不同，以Ａｐｐｅｎｄ方式打開順序文件時(shí)，文件指針定位在文件末尾，寫入的數(shù)據(jù)添加到原來(lái)文件的后面。④Ｒａｎｄｏｍ———設(shè)定為隨機(jī)訪問(wèn)模式。⑤Ｂｉｎａｒｙ———設(shè)定為二進(jìn)制訪問(wèn)模式。如果缺?。疲希易泳?，將以隨機(jī)訪問(wèn)模式打開文件。上一頁(yè)下一頁(yè)返回７.１文件處理（３）存取類型（Ａｃｃｅｓｓ）：用來(lái)指定訪問(wèn)文件的類型，可以是：①Ｒｅａｄ———對(duì)打開的文件只能進(jìn)行讀操作。②Ｗｒｉｔｅ———對(duì)打開的文件只能進(jìn)行寫操作。③ＲｅａｄＷｒｉｔｅ———對(duì)打開的文件可讀可寫。（４）文件號(hào)（Ｆｉｌｅｎｏ）。其取值范圍為１～５１１。執(zhí)行Ｏｐｅｎ語(yǔ)句時(shí)，文件與分配給定的文件號(hào)相關(guān)聯(lián)。上一頁(yè)下一頁(yè)返回７.１文件處理（５）記錄長(zhǎng)度（Ｒｅｃｌｅｎｇｔｈ）。其是一個(gè)整型表達(dá)式，其值≤３２７６７。對(duì)順序文件，用該參數(shù)設(shè)定緩沖區(qū)的大小。不指定時(shí)，緩沖區(qū)的缺省值為５１２個(gè)字節(jié)。注意：（１）如果以Ｏｕｔｐｕｔ、Ａｐｐｅｎｄ、Ｒａｎｄｏｍ和Ｂｉｎａｒｙ模式打開一個(gè)不存在的文件，ＶｉｓｕａｌＢａｓｉｃ會(huì)創(chuàng)建一個(gè)相應(yīng)的文件。（２）在Ｉｎｐｕｔ、Ｒａｎｄｏｍ和Ｂｉｎａｒｙ模式下，可用不同的文件號(hào)打開同一個(gè)文件，但以Ｏｕｔｐｕｔ和Ａｐｐｅｎｄ模式打開的文件在關(guān)閉之前不能用不同的文件號(hào)重復(fù)地打開它。上一頁(yè)下一頁(yè)返回７.１文件處理（３）所有當(dāng)前使用的文件號(hào)必須是唯一的，即當(dāng)前使用的文件號(hào)不能再分配給其他文件。（４）如果以Ｏｕｔｐｕｔ模式打開一個(gè)已存在的順序文件，則該文件中原來(lái)數(shù)據(jù)將被覆蓋，例如下列打開文件的語(yǔ)句：①Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＯｕｔｐｕｔＡＳ＃５如果文件“Ｅｘａｍ”不存在，則建立一個(gè)新文件，可以將數(shù)據(jù)寫入到文件中去。如果文件“Ｅｘａｍ”已存在，則該語(yǔ)句打開已存在的文件，新寫入的數(shù)據(jù)將覆蓋原來(lái)的數(shù)據(jù)。②Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＡｐｐｅｎｄＡＳ＃５如果文件“Ｅｘａｍ”不存在，則建立一個(gè)新文件，否則打開已存在的、名為“Ｅｘａｍ”的文件，新寫入的數(shù)據(jù)添加到文件的后面，原來(lái)的數(shù)據(jù)仍然存在。上一頁(yè)下一頁(yè)返回７.１文件處理③Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＩｎｐｕｔＡＳ＃５打開已存在的、名為“Ｅｘａｍ”的文件，可從中讀出數(shù)據(jù)。如果文件“Ｅｘａｍ”不存在，將產(chǎn)生“ＦｉｌｅＮｏｔＦｏｕｎｄ”錯(cuò)誤。２.關(guān)閉文件———Ｃｌｏｓｅ語(yǔ)句文件讀寫操作完成后，應(yīng)及時(shí)使用Ｃｌｏｓｅ語(yǔ)句，關(guān)閉相應(yīng)的文件。（１）語(yǔ)句格式：Ｃｌｏｓｅ［［＃］＜文件號(hào)＞］。（２）語(yǔ)句功能：關(guān)閉指定的文件號(hào)對(duì)應(yīng)的文件，釋放相應(yīng)緩沖區(qū)和與該文件相聯(lián)系的文件號(hào)。上一頁(yè)下一頁(yè)返回７.１文件處理說(shuō)明：（１）該語(yǔ)句適用于任何文件。（２）語(yǔ)句中可以包含多個(gè)文件號(hào)，文件號(hào)之間用逗號(hào)分隔。（３）若語(yǔ)句中缺省文件號(hào)參數(shù)，則關(guān)閉所有用Ｏｐｅｎ語(yǔ)句打開的文件。（４）當(dāng)應(yīng)用程序結(jié)束時(shí)，會(huì)自動(dòng)關(guān)閉所有文件。比如，Ｃｌｏｓｅ＃１，＃２，關(guān)閉文件號(hào)位１和２的文件。３.關(guān)閉所有文件———Ｒｅｓｅｔ語(yǔ)句（１）格式：Ｒｅｓｅｔ。上一頁(yè)下一頁(yè)返回７.１文件處理（２）功能：關(guān)閉所有用Ｏｐｅｎ語(yǔ)句打開的文件。（３）說(shuō)明：該語(yǔ)句適用于任何文件。４.鎖定和解鎖語(yǔ)句———Ｌｏｃｋ和Ｕｎｌｏｃｋ語(yǔ)句（１）Ｌｏｃｋ語(yǔ)句：①格式：Ｌｏｃｋ＜［＃］文件號(hào)＞。②功能：鎖定指定文件號(hào)所對(duì)應(yīng)的文件，不允許其他用戶對(duì)該文件進(jìn)行讀／寫操作。（２）Ｕｎｌｏｃｋ語(yǔ)句：①格式：Ｕｎｌｏｃｋ＜［＃］文件號(hào)＞。②功能：解除鎖定的文件。上一頁(yè)下一頁(yè)返回７.１文件處理５.文件操作函數(shù)和語(yǔ)句（１）ＥＯＦ（文件號(hào)）：當(dāng)文件指針到達(dá)文件結(jié)束標(biāo)志時(shí)返回Ｔｒｕｅ，否則返回Ｆａｌｓｅ。（２）ＦｒｅｅＦｉｌｅ［（文件號(hào)范圍）］：返回Ｏｐｅｎ語(yǔ)句可以使用的下一個(gè)有效文件號(hào)。（３）ＬＯＦ（文件號(hào)）：返回已用Ｏｐｅｎ語(yǔ)句打開的文件的字節(jié)數(shù)（文件長(zhǎng)度）。上一頁(yè)返回７.２順序文件以順序方式存取的文件稱為順序文件，其一般是文本文件。順序文件有下列特點(diǎn)：每行數(shù)據(jù)長(zhǎng)度可以不同；增加數(shù)據(jù)時(shí)，只能添加到原有數(shù)據(jù)的最后；查找數(shù)據(jù)時(shí)，必須從頭開始順序查找。７.２.１順序文件的寫操作１.打開文件（１）格式：Ｏｐｅｎ＜文件名＞Ｆｏｒ＜Ｏｕｔｐｕｔ／Ａｐｐｅｎｄ＞Ａｓ［＃］＜文件號(hào)＞。（２）功能：用指定的文件號(hào)以順序輸出模式或添加模式打開文件。（３）說(shuō)明：①文件名可以是字符串，包含路徑；下一頁(yè)返回７.２順序文件②若指定的文件不存在，系統(tǒng)將創(chuàng)建一個(gè)相應(yīng)的文件；③以Ｏｕｔｐｕｔ方式打開文件時(shí)，文件中原有的數(shù)據(jù)將被覆蓋；④以Ａｐｐｅｎｄ方式打開文件時(shí)，寫入的數(shù)據(jù)將添加到原文件的尾部；⑤文件號(hào)的使用必須是唯一的，即當(dāng)前已經(jīng)占用的文件號(hào)不能再分配給其他文件使用，文件號(hào)的使用范圍是１～５１１；⑥一個(gè)文件在用Ｏｕｔｐｕｔ和Ａｐｐｅｎｄ方式打開后，不能再被重復(fù)打開。上一頁(yè)下一頁(yè)返回７.２順序文件下面是打開文件的一些例子。Ｏｐｅｎ＂Ｄ：＼ｈｂ＼Ｔｅｓｔ.ｔｘｔ＂ＦｏｒＯｕｔｐｕｔＡｓ＃１該命令打開Ｄ盤下ｈｂ文件夾中的Ｔｅｓｔ.ｔｘｔ文件，文件號(hào)為１。再比如，下列代碼打開了Ｄ盤下ｈｂ文件夾中的Ｔｅｓｔ.ｔｘｔ文件，文件號(hào)為１００：ＤｉｍｓＦｉｌｅＮａｍｅＡｓＳｔｒｉｎｇｓＦｉｌｅＮａｍｅ＝＂Ｄ：＼ｈｂ＼Ｔｅｓｔ.ｔｘｔ＂ＯｐｅｎｓＦｉｌｅＮａｍｅＦｏｒＡｐｐｅｎｄＡｓ＃１００上一頁(yè)下一頁(yè)返回７.２順序文件但是，以下兩句是錯(cuò)的：Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＯｕｔＰｕｔＡｓ＃９Ｏｐｅｎ＂Ｆｉｌｅ２＂ＦｏｒＯｕｔｐｕｔＡｓ＃９因?yàn)椴荒芤韵嗤奈募?hào)打開兩個(gè)不同的文件。下列兩句也是錯(cuò)的：Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＡｐｐｅｎｄＡｓ＃１０Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＡｐｐｅｎｄＡｓ＃１１因?yàn)椴荒茉谖募搓P(guān)閉前又將其重復(fù)打開。上一頁(yè)下一頁(yè)返回７.２順序文件２.Ｐｒｉｎｔ語(yǔ)句（１）格式：Ｐｒｉｎｔ＜＃文件號(hào)＞，［＜輸出列表＞］。（２）功能：將輸出列表中的語(yǔ)句寫到順序文件中。（３）說(shuō)明：該語(yǔ)句和普通的Ｐｒｉｎｔ語(yǔ)句的輸出控制格式完全相同，也分緊湊和標(biāo)準(zhǔn)兩種。３.Ｗｒｉｔｅ語(yǔ)句（１）格式：Ｗｒｉｔｅ＜＃文件號(hào)＞，［＜輸出列表＞］。（２）功能：將輸出列表中的語(yǔ)句寫到順序文件中。（３）說(shuō)明：Ｗｒｉｔｅ語(yǔ)句和Ｐｒｉｎｔ語(yǔ)句的功能基本相同，它們之間的差別主要為：上一頁(yè)下一頁(yè)返回７.２順序文件①Ｗｒｉｔｅ語(yǔ)句寫入的數(shù)據(jù)按照緊湊格式存放，各數(shù)據(jù)項(xiàng)之間自動(dòng)插入逗號(hào)作為分隔符；②Ｗｒｉｔｅ語(yǔ)句寫入的字符串?dāng)?shù)據(jù)自動(dòng)加上雙引號(hào)作為限界符。７.２.２順序文件的讀操作當(dāng)一個(gè)文件存在時(shí)，可以對(duì)它進(jìn)行讀操作。讀操作分為兩種，一種是一個(gè)數(shù)據(jù)一個(gè)數(shù)據(jù)地讀，另一種是一行數(shù)據(jù)一行數(shù)據(jù)地讀。１.打開文件（１）格式：Ｏｐｅｎ＜文件名＞ＦｏｒＩｎｐｕｔＡｓ＜＃文件號(hào)＞。（２）功能：用指定的文件號(hào)以順序輸入模式打開文件。上一頁(yè)下一頁(yè)返回７.２順序文件（３）說(shuō)明：以Ｉｎｐｕｔ方式打開的文件，只能進(jìn)行讀操作。２.Ｉｎｐｕｔ語(yǔ)句（１）格式：Ｉｎｐｕｔ＜＃文件號(hào)＞［，變量表］。（２）功能：從一個(gè)打開的順序文件中讀取數(shù)據(jù)，并將其賦值給相應(yīng)的變量。（３）說(shuō)明：①變量表可以包含簡(jiǎn)單變量和數(shù)組元素，變量之間用逗號(hào)間隔，變量類型必須與文件中的數(shù)據(jù)項(xiàng)的類型一致。②從順序文件中讀數(shù)據(jù)時(shí)，要從頭開始，依次讀出，若數(shù)據(jù)類型和變量類型不一致，則賦一個(gè)初值給對(duì)應(yīng)的變量。上一頁(yè)下一頁(yè)返回７.２順序文件③從順序文件讀數(shù)據(jù)時(shí)，忽略前導(dǎo)空格、回車符、換行符。④讀取數(shù)值型數(shù)據(jù)時(shí)，以其后的第一個(gè)空格，或逗號(hào)，或回車換行符作為結(jié)束。⑤讀取字符型數(shù)據(jù)時(shí)，以第一個(gè)不在雙引號(hào)里的逗號(hào)，或回車換行符作為結(jié)束。⑥邏輯型和日期型數(shù)據(jù)以＃號(hào)作為起始符和結(jié)束符，要求大寫。例如，已知Ｔｅｓｔ.ｔｘｔ中的數(shù)據(jù)：３４４５７８７８９，則執(zhí)行下列代碼后：ＤｉｍＡＡｓＩｎｔｅｇｅｒ，ＢＡＳＩｎｔｅｇｅｒ，ＣＡｓＩｎｔｅｇｅｒ上一頁(yè)下一頁(yè)返回７.２順序文件ＤｉｍＳｔＡｓＳｔｒｉｎｇＩｎｐｕｔ＃２，Ａ，Ｂ，Ｃ，Ｓｔ結(jié)果為：Ａ＝３４，Ｂ＝４５，Ｃ＝７８，Ｓｔ＝“７８９”。思考：若已知文件ｔｅｓｔ.ｄａｔ中的數(shù)據(jù)如下：ＴｈｉｓｉｓＦｉｌｅＴｅｓｔ.ｄａｔ，－２３６５，４８９３，＃Ｔｒｕｅ＃要求按下面的格式將其輸出在窗體上：ＴｈｉｓｉｓＦｉｌｅｔｅｓｔ.ｄａｔ－２３６５４８９３Ｔｒｕｅ上一頁(yè)下一頁(yè)返回７.２順序文件３.ＬｉｎｅＩｎｐｕｔ語(yǔ)句（１）格式：ＬｉｎｅＩｎｐｕｔ＜＃文件號(hào)＞，＜變量名＞。（２）功能：將順序文件以行為單位讀出并賦值給一個(gè)變量。（３）說(shuō)明：①變量為字符型變量，或字符型數(shù)組元素，或變體型變量。②將數(shù)據(jù)行中除回車符和換行符以外的所有字符都賦值給相應(yīng)的變量。例如，設(shè)計(jì)程序，將Ｃ盤根目錄下的ｃｏｎｆｉｇ.ｓｙｓ文件的內(nèi)容顯示在文本框中。上一頁(yè)下一頁(yè)返回７.２順序文件分析：本例要用到打開文件、Ｄｏ循環(huán)、ＥＯＦ函數(shù)等，具體參考代碼如下：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍＬｉｎｅＡｓＳｔｒｉｎｇ，ｆｉｌｅｎｕｍｂｅｒＡｓＩｎｔｅｇｅｒ，ｓｔｒＡｓＳｔｒｉｎｇｆｉｌｅｎｕｍｂｅｒ＝ｆｒｅｅｆｉｌｅＯｐｅｎ“ｃ：＼ｃｏｎｆｉｇ.ｓｙｓ”ＦｏｒＩｎｐｕｔＡｓ＃ｆｉｌｅｎｕｍｂｅｒＤｏＷｈｉｌｅＮｏｔＥＯＦ（ｆｉｌｅｎｕｍｂｅｒ）ＬｉｎｅＩｎｐｕｔ＃１，Ｌｉｎｅ

上一頁(yè)下一頁(yè)返回７.２順序文件ｓｔｒ＝ｓｔｒ＋Ｌｉｎｅ＋Ｃｈｒ（１３）＋Ｃｈｒ（１０）ＬｏｏｐＣｌｏｓｅ＃ｆｉｌｅｎｕｍｂｅｒＴｅｘｔ１.Ｔｅｘｔ＝ｓｔｒＥｎｄＳｕｂ順序文件的特點(diǎn)是：（１）數(shù)據(jù)只能從頭依次讀出；（２）寫文件時(shí)數(shù)據(jù)要么覆蓋原來(lái)的文件，要么添加在文件的最后。上一頁(yè)下一頁(yè)返回７.２順序文件這兩個(gè)特點(diǎn)給順序文件的修改與刪除帶來(lái)了困難。順序文件的應(yīng)用體現(xiàn)在兩方面：（１）從文件中讀取原始數(shù)據(jù)并提供給程序處理。（２）將程序處理結(jié)果存放到文件中。上一頁(yè)返回７.３隨機(jī)文件的處理以隨機(jī)方式存取的文件稱為隨機(jī)文件，也稱為記錄文件，它由一組長(zhǎng)度相等的記錄組成，一般用于數(shù)據(jù)庫(kù)文件。隨機(jī)文件具有以下特點(diǎn)：（１）記錄定長(zhǎng)。（２）若記錄為單字段，則可對(duì)應(yīng)于任何一個(gè)ＶｉｓｕａｌＢａｓｉｃ的標(biāo)準(zhǔn)類型；若記錄為多字段，則必須由用戶進(jìn)行自定義。（３）可根據(jù)記錄號(hào)隨機(jī)訪問(wèn)任何一個(gè)記錄。７.３.１隨機(jī)文件的打開（１）格式：Ｏｐｅｎ＜文件名＞［ＦｏｒＲａｎｄｏｍ］Ａｓ［＃］＜文件號(hào)＞Ｌｅｎ＝＜記錄長(zhǎng)度＞。下一頁(yè)返回７.３隨機(jī)文件的處理（２）功能：打開一個(gè)隨機(jī)文件。（３）說(shuō)明：①Ｒａｎｄｏｍ為文件的缺省訪問(wèn)模式，可省略。②Ｌｅｎ為指定的記錄長(zhǎng)度，不能比實(shí)際寫入的數(shù)據(jù)短，否則會(huì)出錯(cuò)。７.３.２變量聲明在處理隨機(jī)文件之前