第9章 文件處理

1、第9章 文件處理第9章 文件處理q9.1 文件系統(tǒng)控件q9.2 File System Object模型介紹q9.3 傳統(tǒng)文件存取操作第9章 文件處理q9.1 文件系統(tǒng)控件q9.2 File System Object模型介紹q9.3 傳統(tǒng)文件存取操作9.1 文件系統(tǒng)控件n驅(qū)動(dòng)器列表框n目錄列表框n文件列表框n文件系統(tǒng)控件組合使用n文件操作語(yǔ)句和函數(shù)n 驅(qū)動(dòng)器列表框n驅(qū)動(dòng)器列表框（DriveListBox）是下拉式列表框，其系統(tǒng)默認(rèn)名為Drive1。n 驅(qū)動(dòng)器列表框n設(shè)置驅(qū)動(dòng)器有以下三種方法：（1）直接在驅(qū)動(dòng)器列表框中輸入有效的驅(qū)動(dòng)器標(biāo)識(shí)符，也可單擊驅(qū)動(dòng)器列表框右側(cè)的箭頭，在下拉列表框中選定新

2、驅(qū)動(dòng)器，缺省時(shí)顯示系統(tǒng)當(dāng)前驅(qū)動(dòng)器。（2）在代碼中用Drive 屬性來(lái)設(shè)置當(dāng)前驅(qū)動(dòng)器。格式：Object.Drive = DriveName其中，Object參數(shù)為驅(qū)動(dòng)器列表框的名稱；DriveName參數(shù)為驅(qū)動(dòng)器名，如果省略則為系統(tǒng)當(dāng)前默認(rèn)驅(qū)動(dòng)器。n 驅(qū)動(dòng)器列表框n設(shè)置驅(qū)動(dòng)器有以下三種方法：（3）在代碼中用ChDrive 語(yǔ)句設(shè)置驅(qū)動(dòng)器。格式：ChDrive DriveName其中，假設(shè)設(shè)置當(dāng)前驅(qū)動(dòng)器為D，可用語(yǔ)句Drive1.Drive = “D:” 或 ChDrive “D” 。如果要自動(dòng)地變更當(dāng)前的工作驅(qū)動(dòng)器，則可使用語(yǔ)句ChDrive Drive1.Drive。 n 目錄列表框n目錄列

3、表框（DirListBox）用于顯示用戶系統(tǒng)上的當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)，其系統(tǒng)默認(rèn)名為Dir1。 n 目錄列表框n目錄列表框中的每一個(gè)目錄都關(guān)聯(lián)著一個(gè)唯一的標(biāo)識(shí)符ListIndex，通過(guò)該標(biāo)識(shí)符可區(qū)別目錄列表框中的每一個(gè)目錄。n當(dāng)前指定的目錄總是ListIndex 值為 1。緊鄰其上的目錄ListIndex 值為 2，再上一個(gè)為 ListIndex值為 3；緊鄰其下的子目錄中，第一個(gè)子目錄ListIndex 值為 0，第二個(gè)子目錄ListIndex 值為 1；依次類推。 n 目錄列表框n設(shè)置目錄有以下三種方法：（1）直接在目錄列表框中選擇目錄，缺省時(shí)顯示系統(tǒng)當(dāng)前目錄。（2）在代碼中

4、用Path 屬性來(lái)設(shè)置當(dāng)前目錄。格式：Object.Path = Pathname其中，Object為目錄列表框的名稱；PathName參數(shù)設(shè)置目錄名，如果省略則為系統(tǒng)當(dāng)前默認(rèn)路徑。n 目錄列表框n設(shè)置目錄有以下三種方法：（3）在代碼中用ChDir 語(yǔ)句設(shè)置驅(qū)動(dòng)器。格式：ChDir Pathname假設(shè)設(shè)置當(dāng)前目錄為C：programe file，可用語(yǔ)句Dir1.Path = C：programe file 或ChDrive C：programe file ； n 文件列表框n文件列表框常與目錄列表框配合使用，來(lái)顯示指定目錄下的文件列表，在文件列表框中選擇要操作的一個(gè)或多個(gè)文件, 其系統(tǒng)默認(rèn)

5、名為File1 。n 文件列表框n文件列表框常用屬性有：nPath 屬性：設(shè)置或返回在文件列表框中顯示的文件路徑。 nPattern 屬性：設(shè)置在文件列表框中要顯示的文件類型。 nArchive、Normal、System、Hidden 和 ReadOnly屬性：在文件列表框中指定要顯示的文件類型。 n 文件列表框?qū)傩悦δ蹵rchive 是否顯示“檔案”屬性文件Normal 是否顯示“常規(guī)”屬性文件System 是否顯示“系統(tǒng)”屬性文件Hidden 是否顯示“隱藏”屬性文件ReadOnly 是否顯示“只讀”屬性文件表9-1文件類型屬性功能 n 文件系統(tǒng)控件組合使用n通常驅(qū)動(dòng)器列表框、目錄列表

6、框和文件列表框一起使用，在顯示信息時(shí)同步。若產(chǎn)生此效果，需要有兩個(gè)Change事件。1.驅(qū)動(dòng)器列表框的Change 事件 ，代碼如下：Private Sub Drive1_Change ()Dir1.Path = Drive1.DriveEnd Sub2.目錄列表框的Change 事件，代碼如下：Private Sub Dir1_Change ()File1.Path = Dir1.PathEnd Sub n 文件系統(tǒng)控件組合使用【例91】圖片瀏覽器。n 運(yùn)行結(jié)果n 程序代碼n 文件操作語(yǔ)句和函數(shù)1文件操作語(yǔ)句（1）MkDir 語(yǔ)句： 創(chuàng)建一個(gè)新的目錄或文件夾。格式：MkDir （2）RmDi

7、r 語(yǔ)句：刪除一個(gè)存在的目錄或文件夾。格式：RmDir path注意：RmDir語(yǔ)句只能刪除空的子目錄或文件夾，不能刪除根目錄或當(dāng)前目錄。（3）Kill 語(yǔ)句： 從磁盤中刪除已關(guān)閉的文件。格式：Killpathn 文件操作語(yǔ)句和函數(shù)1文件操作語(yǔ)句（4）FileCopy 語(yǔ)句：復(fù)制一個(gè)已關(guān)閉的文件。格式：FileCopy source, destination（5）Name 語(yǔ)句： 對(duì)已關(guān)閉的文件或目錄重新命名。格式：NameoldpathnameAsnewpathnamen 文件操作語(yǔ)句和函數(shù)2文件操作函數(shù)（1）CurDir 函數(shù)：返回指定驅(qū)動(dòng)器的當(dāng)前目錄路徑。格式：DirName = Cur

8、Dir ( drivename )（2）GetAttr 函數(shù)：返回指定文件屬性對(duì)應(yīng)的整型值格式： RetValue = GetAttr()n 文件操作語(yǔ)句和函數(shù)整數(shù)值 屬性名功能0Normal “常規(guī)”屬性文件 1ReadOnly“只讀”屬性文件 2Hidden “隱藏”屬性文件4System“系統(tǒng)”屬性文件16目錄或文件夾32Archive “檔案”屬性文件 表9-2 文件屬性與對(duì)應(yīng)整數(shù)值n 文件操作語(yǔ)句和函數(shù)2文件操作函數(shù)（3）FileLen 函數(shù)：以字節(jié)為單位返回指定未打開(kāi)文件的長(zhǎng)度，類型為長(zhǎng)整型。格式：RetValue = FileLen ()（4）Lof函數(shù)：返回指定的已打開(kāi)的文件的

9、字節(jié)長(zhǎng)度。格式：Length = Lof ()（5）Eof函數(shù)：測(cè)試文件指針是否到了文件尾。格式：RetValue = Eof ()若到了文件尾，則函數(shù)返回值為True；若未到文件尾，則函數(shù)返回值為False。n 文件操作語(yǔ)句和函數(shù)2文件操作函數(shù)（6）Loc函數(shù)：返回上一次從打開(kāi)文件中讀寫(xiě)數(shù)據(jù)的位置。格式：RecNo = Loc ()對(duì)于順序文件，該函數(shù)返回從文件中被打開(kāi)以來(lái)讀寫(xiě)數(shù)據(jù)塊的個(gè)數(shù)，一個(gè)數(shù)據(jù)塊默認(rèn)長(zhǎng)度為128字節(jié)；對(duì)于隨機(jī)文件，該函數(shù)返回上一次讀寫(xiě)記錄的記錄號(hào)；對(duì)于二進(jìn)制文件，該函數(shù)返回上一次讀寫(xiě)數(shù)據(jù)的最后一個(gè)字節(jié)的位置。n 文件操作語(yǔ)句和函數(shù)2文件操作函數(shù)（7）Seek函數(shù)：返回已

10、打開(kāi)文件中指針的當(dāng)前位置。格式：CurRecNo =Seek ()對(duì)于順序文件和二進(jìn)制文件，該函數(shù)返回當(dāng)前要讀寫(xiě)數(shù)據(jù)的字節(jié)位置；對(duì)于隨機(jī)文件，該函數(shù)返回當(dāng)前要讀寫(xiě)記錄的記錄號(hào)。第9章 文件處理q9.1 文件系統(tǒng)控件q9.2 File System Object模型介紹q9.3 傳統(tǒng)文件存取操作9.2 File System Object模型介紹nVisual Basic 6.0的一個(gè)新功能是 File System Object (FSO) ，即文件系統(tǒng)對(duì)象模型。n該模型提供了一個(gè)基于對(duì)象的工具來(lái)處理文件夾和文件。這使用戶除了使用傳統(tǒng)的 Visual Basic 語(yǔ)句和命令之外，還可以使用所熟

11、悉的帶有一整套屬性、方法和事件的 object.method 語(yǔ)法來(lái)處理文件夾和文件。 9.2 File System Object模型介紹nFSO對(duì)象模型包含的對(duì)象n創(chuàng)建和訪問(wèn)FSO對(duì)象 n驅(qū)動(dòng)器對(duì)象n文件夾對(duì)象n文件對(duì)象n用FSO對(duì)象創(chuàng)建文件并讀寫(xiě)數(shù)據(jù)n FSO對(duì)象模型包含的對(duì)象nFSO 對(duì)象模型包括以下對(duì)象：lFileSystemObject：提供對(duì)計(jì)算機(jī)文件系統(tǒng)的訪問(wèn)，該組的主要對(duì)象提供一整套用于創(chuàng)建、刪除、收集相關(guān)信息、以及通常的操作驅(qū)動(dòng)器、文件夾和文件的方法。 lDrive：對(duì)特定磁盤驅(qū)動(dòng)器或網(wǎng)絡(luò)共享的屬性提供訪問(wèn)，收集關(guān)于系統(tǒng)所用的驅(qū)動(dòng)器的信息。lFolder：提供對(duì)一個(gè)文件夾所

12、有屬性的訪問(wèn)，允許創(chuàng)建、刪除或移動(dòng)文件夾，并向系統(tǒng)查詢文件夾的名稱、路徑等。n FSO對(duì)象模型包含的對(duì)象nFSO 對(duì)象模型包括以下對(duì)象：lFiles：在一個(gè)文件夾內(nèi)的所有 File 對(duì)象的集合，允許創(chuàng)建、刪除或移動(dòng)文件，并向系統(tǒng)查詢文件的名稱、路徑等。lTextStream：加快對(duì)文件的順序訪問(wèn)，允許用戶讀和寫(xiě)文本文件。n FSO對(duì)象模型包含的對(duì)象n可通過(guò)“對(duì)象瀏覽器”查看FSO模型中的對(duì)象、集合、屬性、方法和事件的信息。 n FSO對(duì)象模型包含的對(duì)象在在“工程工程”菜單中選擇菜單中選擇“引用引用”選項(xiàng)，打開(kāi)選項(xiàng)，打開(kāi)“引用引用”對(duì)話框。對(duì)話框。在在“引用引用”對(duì)話框中，選擇對(duì)話框中，選擇“M

13、icrosoft Scripting Runtime”。在在“視圖視圖”菜單中選擇菜單中選擇“對(duì)象瀏覽器對(duì)象瀏覽器”（或按（或按F2）即可看到）即可看到FSO對(duì)象模型的信息。對(duì)象模型的信息。n 創(chuàng)建和訪問(wèn)FSO對(duì)象nFSO 對(duì)象模型編程包括三項(xiàng)主要任務(wù)： l使用CreateObject 方法，或?qū)⒁粋€(gè)變量聲明為 FileSystemObject 對(duì)象類型來(lái)創(chuàng)建一個(gè) FileSystemObject 對(duì)象。l對(duì)新創(chuàng)建的對(duì)象使用適當(dāng)?shù)姆椒?。l訪問(wèn)該對(duì)象的屬性。n 創(chuàng)建和訪問(wèn)FSO對(duì)象1通過(guò)將變量聲明為 FileSystemObject 對(duì)象類型創(chuàng)建 FSO 對(duì)象。 n在“引用”對(duì)話框中選擇“Mic

14、rosoft Scripting Runtime”選項(xiàng)，這是將變量聲明為FSO對(duì)象的必要條件。n在VB的代碼窗口中輸入下列格式的代碼：Dim As New FileSystemObject n 創(chuàng)建和訪問(wèn)FSO對(duì)象2使用 CreateObject 方法來(lái)創(chuàng)建一個(gè) FileSystemObject 對(duì)象 。 n格式：Set = CreateObject (Scripting.FileSystemObject)n其中，Scripting參數(shù)是FSO文件系統(tǒng)對(duì)象類型庫(kù)的名稱。FileSystemObject參數(shù)指定要?jiǎng)?chuàng)建一個(gè)實(shí)例的對(duì)象名稱。CreateObject參數(shù)有兩種類型，CreateFold

15、er創(chuàng)建文件夾，CreateTextFile創(chuàng)建文本文件。FSO對(duì)象模型不支持創(chuàng)建和刪除驅(qū)動(dòng)器。 n 創(chuàng)建和訪問(wèn)FSO對(duì)象3訪問(wèn) FSO 對(duì)象n訪問(wèn)已有的驅(qū)動(dòng)器、文件夾和文件訪問(wèn)，分別用GetDrive、GetFolder和 GetFile方法；n而對(duì)于新建FSO對(duì)象，直接對(duì)其操作即可訪問(wèn)到相關(guān)信息。 n 驅(qū)動(dòng)器對(duì)象1驅(qū)動(dòng)器對(duì)象的屬性屬性名功能TotalSize以字節(jié)為單位表示驅(qū)動(dòng)器總?cè)萘緼vailableSpace 或 FreeSpace以字節(jié)為單位表示驅(qū)動(dòng)器可用空間容量DriveLetter只讀，返回某個(gè)物理本地驅(qū)動(dòng)器或網(wǎng)絡(luò)共享的驅(qū)動(dòng)器名，若指定的驅(qū)動(dòng)器沒(méi)有同某個(gè)驅(qū)動(dòng)器字母關(guān)聯(lián)起來(lái)，返回一

16、個(gè) 0 字節(jié)長(zhǎng)度的字符串 ()SerialNumber驅(qū)動(dòng)器序列號(hào)，返回唯一標(biāo)識(shí)磁盤卷標(biāo)的十進(jìn)制序列號(hào)，以確保正確的磁盤已插入到某個(gè)帶有可刪除媒體的驅(qū)動(dòng)器中FileSystem返回指定驅(qū)動(dòng)器使用的文件系統(tǒng)類型，如 FAT、 FAT32DriveType返回一個(gè)值，表示指定驅(qū)動(dòng)器的類型，如固定驅(qū)動(dòng)器、 CD-ROM、RAMIsReady驅(qū)動(dòng)器是否可用，若指定的驅(qū)動(dòng)器已準(zhǔn)備好，返回 True；否則返回 FalsePath 或 RootFolder返回指定文件、文件夾、或驅(qū)動(dòng)器的路徑；對(duì)于驅(qū)動(dòng)器字母來(lái)說(shuō)，不包括根驅(qū)動(dòng)器。 如C 驅(qū)動(dòng)器的路徑是 C：，而不是 C： 。ShareName返回指定驅(qū)動(dòng)器的

17、網(wǎng)絡(luò)共享名VolumeName設(shè)置或返回指定驅(qū)動(dòng)器的卷標(biāo)名n 驅(qū)動(dòng)器對(duì)象【例93】 查看所選驅(qū)動(dòng)器的有關(guān)信息。 n 運(yùn)行結(jié)果n 程序代碼n 文件夾對(duì)象表9-4 文件夾對(duì)象常用方法方 法功能FileSystemObject.CreateFolder創(chuàng)建一個(gè)文件夾Folder.Delete 或FileSystemObject.DeleteFolder刪除一個(gè)文件夾Folder.Move 或FileSystemObject.MoveFolder移動(dòng)一個(gè)文件夾Folder.Copy 或FileSystemObject.CopyFolder復(fù)制一個(gè)文件夾Folder.Name檢索文件夾的名稱FileSy

18、stemObject.FolderExists查找一個(gè)文件夾是否在驅(qū)動(dòng)器上FileSystemObject.GetFolder獲得已有Folder對(duì)象的一個(gè)實(shí)例FileSystemObject.GetParentFolderName找出一個(gè)文件夾的父文件夾的名稱FileSystemObject.GetSpecialFolder找出系統(tǒng)文件夾的路徑n 文件夾對(duì)象表9-5 文件夾對(duì)象常用屬性屬 性功 能Attributes設(shè)置或返回文件夾的讀寫(xiě)性質(zhì)DateCreated返回文件夾的創(chuàng)建日期DateLastAccessed返回訪問(wèn)文件夾的最后日期DateLastModified返回修改文件夾的最后日

19、期Drive返回文件夾的驅(qū)動(dòng)器位置Files返回文件夾中的文件集合IsRootFolder判斷文件夾是否為根文件夾Name設(shè)置或返回文件夾的名稱Parentfolder返回文件夾的父文件夾Subfolder返回文件夾中的子文件夾集合Path返回文件夾的路徑Size返回文件夾中的子文件夾和文件所占磁盤空間容量Type返回文件夾的類型n 文件夾對(duì)象【例95】使用 Folder 對(duì)象獲得其信息，并創(chuàng)建、刪除文件夾。n 運(yùn)行結(jié)果n 程序代碼n 文件對(duì)象n文件（File）對(duì)象提供對(duì)文件所有屬性的訪問(wèn)。 表9-6 File對(duì)象方法方 法功能File.Move 或FileSystemObject.MoveF

20、ile移動(dòng)一個(gè)文件File.Copy 或FileSystemObject.CopyFile復(fù)制一個(gè)文件File.Delete 或FileSystemObject.DeleteFile刪除一個(gè)文件n 文件對(duì)象【例96】查看所選文件的有關(guān)信息。n 運(yùn)行結(jié)果n 程序代碼n 文件對(duì)象【例97】利用FSO對(duì)象更名、刪除文件。n窗體設(shè)計(jì)：在窗體上分別添加一個(gè)驅(qū)動(dòng)器控件Drive1、文件夾控件Dir1和文件控件File1，然后再添加三個(gè)命令控鈕，其Caption屬性分別為刪除、更名和退出。 n 文件對(duì)象【例97】利用FSO對(duì)象更名、刪除文件。n 運(yùn)行結(jié)果n 程序代碼n 用FSO對(duì)象創(chuàng)建文件并讀寫(xiě)數(shù)據(jù)n用FS

21、O對(duì)象創(chuàng)建的文件是順序文件，它不支持創(chuàng)建隨機(jī)文件和二進(jìn)制文件；n要?jiǎng)?chuàng)建隨機(jī)文件和二進(jìn)制文件，應(yīng)使用帶Random和Binary標(biāo)志的Open命令。n 用FSO對(duì)象創(chuàng)建文件并讀寫(xiě)數(shù)據(jù)n創(chuàng)建方法有三種：1用 CreateTextFile 方法。2用帶ForWriting 標(biāo)志的OpenTextFile 方法。3用帶 ForWriting 標(biāo)志的 OpenAsTextStream 方法。n 用FSO對(duì)象創(chuàng)建文件并讀寫(xiě)數(shù)據(jù)【例98】用FSO對(duì)象創(chuàng)建文件，向文件添加數(shù)據(jù)，最后關(guān)閉文件。n 運(yùn)行結(jié)果n 程序代碼第9章 文件處理q9.1 文件系統(tǒng)控件q9.2 File System Object模型介紹q9

22、.3 傳統(tǒng)文件存取操作9.3 傳統(tǒng)文件存取操作n訪問(wèn)順序文件n訪問(wèn)隨機(jī)文件n訪問(wèn)二進(jìn)制文件n 訪問(wèn)順序文件1打開(kāi)順序文件n格式：Open For Input | Output | Append As Len = buffersizeFilename參數(shù)指定要打開(kāi)文件的文件名Input參數(shù)以從文件讀取數(shù)據(jù)的模式打開(kāi)文件。以此形式打開(kāi)文件時(shí)，該文件必須已存在；Output參數(shù)以向文件寫(xiě)入數(shù)據(jù)的模式打開(kāi)文件。以此形式打開(kāi)文件時(shí)，若該文件已存在，則從文件開(kāi)始位置寫(xiě)入數(shù)據(jù)，新數(shù)據(jù)將覆蓋原數(shù)據(jù)；若該文件不存在，則自動(dòng)創(chuàng)建一個(gè)新文件，并從文件開(kāi)始位置寫(xiě)入數(shù)據(jù)；Append參數(shù)以向文件尾部追加數(shù)據(jù)的模式打開(kāi)文

23、件。以此形式打開(kāi)文件時(shí)，若該文件已存在，則從文件尾部寫(xiě)入新數(shù)據(jù)，而文件中原有數(shù)據(jù)保留不變；若該文件不存在，則自動(dòng)創(chuàng)建一個(gè)新文件，并從文件開(kāi)始位置寫(xiě)入數(shù)據(jù)。Filenumber參數(shù)為必選項(xiàng)，給打開(kāi)的文件指定文件號(hào)，其取值范圍為1-511之間的整數(shù)。Len = buffersize參數(shù)為可選項(xiàng)，在文件與程序間復(fù)制數(shù)據(jù)時(shí)指定緩沖區(qū)的字符數(shù)。n 訪問(wèn)順序文件2向順序文件寫(xiě)數(shù)據(jù) （1）Write語(yǔ)句n格式：Write ，OutputlistFilenumber參數(shù)為必選項(xiàng)，打開(kāi)文件時(shí)指定的文件號(hào)Outputlist參數(shù)為可選項(xiàng)，寫(xiě)入文件的數(shù)據(jù)列表，數(shù)據(jù)間用逗號(hào)、空格或分號(hào)隔開(kāi)n 訪問(wèn)順序文件2向順序文件

24、寫(xiě)數(shù)據(jù) （2）Print語(yǔ)句n格式：Print ， Spc（n）| Tab（n） ；| ，F(xiàn)ilenumber參數(shù)為必選項(xiàng)，打開(kāi)文件時(shí)指定的文件號(hào)Spc（n）參數(shù)設(shè)置數(shù)據(jù)之間空格數(shù)Tab（n）參數(shù)設(shè)置數(shù)據(jù)在第n列位置寫(xiě)入分號(hào)；參數(shù)表示各數(shù)據(jù)采用緊湊格式寫(xiě)入，數(shù)據(jù)之間無(wú)分隔符逗號(hào)，參數(shù)表示每個(gè)數(shù)據(jù)占用一個(gè)打印區(qū)，一個(gè)打印區(qū)寬度為14個(gè)字符Outputlist參數(shù)為可選項(xiàng)，寫(xiě)入文件的數(shù)據(jù)列表，數(shù)據(jù)間用逗號(hào)、空格或分號(hào)隔開(kāi)n 訪問(wèn)順序文件3從順序文件讀數(shù)據(jù)（1）Input語(yǔ)句n格式：Input ，F(xiàn)ilenumber參數(shù)為必選項(xiàng)，打開(kāi)文件時(shí)指定的文件號(hào)Varlist參數(shù)用來(lái)保存從文件中讀取的數(shù)據(jù)的變

25、量表。變量間用逗號(hào)分隔，變量的類型和個(gè)數(shù)應(yīng)與從文件中讀取的數(shù)據(jù)類型和個(gè)數(shù)一致n 訪問(wèn)順序文件3從順序文件讀數(shù)據(jù)（2）Line Input語(yǔ)句n格式：Line Input ，nLine Input語(yǔ)句是將指定文件中兩個(gè)硬回車間的數(shù)據(jù)讀取，即以段為單位讀取信息，包括軟回車。其常用Eof（）函數(shù)來(lái)測(cè)試是否到文件尾。 Filenumber參數(shù)為必選項(xiàng)，打開(kāi)文件時(shí)指定的文件號(hào)Varname參數(shù)用于保存從文件讀取的數(shù)據(jù)的變量名稱n 訪問(wèn)順序文件4關(guān)閉順序文件n格式：Close Filenumberlistn文件以Input 、Output或 Append其中任何一種方式打開(kāi)后，若想以另外一種方式打開(kāi)，都必

26、須先關(guān)閉它。Filenumberlist參數(shù)表示要關(guān)閉的文件的文件號(hào)列表。各文件號(hào)間用逗號(hào)分隔，缺省時(shí)表示關(guān)閉所有已打開(kāi)的文件。n 訪問(wèn)順序文件【例99】 對(duì)一順序文件實(shí)現(xiàn)顯示、修改和存儲(chǔ)功能。n 運(yùn)行結(jié)果n 程序代碼n 訪問(wèn)隨機(jī)文件1打開(kāi)隨機(jī)文件n格式：Open For Random As Len = ReclengthFilename參數(shù)為必選項(xiàng)，指定要打開(kāi)文件的文件名，可包含驅(qū)動(dòng)器和目錄For Random參數(shù)為可選項(xiàng)，表示以隨機(jī)訪問(wèn)的方式打開(kāi)文件Len = Reclength參數(shù)為可選項(xiàng)，指定每個(gè)記錄的長(zhǎng)度n 訪問(wèn)隨機(jī)文件2向隨機(jī)文件寫(xiě)數(shù)據(jù)n格式：Put ， Recnumber ，F(xiàn)ilename參數(shù)為必選項(xiàng)，指定要打開(kāi)文件的文件名，可包含驅(qū)動(dòng)器和目錄Recnumber參數(shù)指定要寫(xiě)入或替換的記錄的記錄號(hào)，若省略，則指當(dāng)前記錄的記錄號(hào)Varname參數(shù)設(shè)置保存數(shù)據(jù)的復(fù)合變量名，其類型必須與隨機(jī)文件中的記錄類型一致n 訪問(wèn)隨