《Visual Basic程序設(shè)計簡明教程》課件第9章

2023/12/13《VisualBasic程序設(shè)計簡明教程》19.1概述文件（file）是指具有文件名的相關(guān)數(shù)據(jù)的集合，一般把它保存在外部存儲介質(zhì)中（例如磁盤）。VB文件由記錄組成，記錄由字段組成，字段則由字符組成。

VB語言提供了一些語句和函數(shù)，專門用來完成文件的輸入輸出等操作。按照文件的存取方式進行分類，VB文件一般可以分為順序文件、隨機文件和二進制文件。

2023/12/13《VisualBasic程序設(shè)計簡明教程》2順序文件：順序文件一般是普通的文本文件，其所有數(shù)據(jù)都以字符串的形式存儲。順序文件的一行數(shù)據(jù)就是一條記錄，記錄的長度不固定，記錄之間以換行符予以分隔。順序文件的記錄是順序存儲的，而且只提供第一條記錄的存儲位置。順序文件的訪問應(yīng)采取順序存取方式，例如查找某一個數(shù)據(jù)只能從文件的頭部開始，一條一條地順序讀取記錄，直至找到所要查找的記錄為止。2023/12/13《VisualBasic程序設(shè)計簡明教程》3隨機文件：隨機文件由相同長度的記錄集合組成，每一條記錄有一個唯一的記錄號。隨機文件的訪問可以采取隨機存取方式，直接讀取某一條記錄。只要指定記錄號，就能夠快速找到該條記錄在文件中的位置，然后進行相應(yīng)的操作。 二進制文件按二進制的形式存儲數(shù)據(jù)，這正是數(shù)據(jù)在內(nèi)存中存儲的原始形式。二進制文件與隨機文件很相似，只是沒有數(shù)據(jù)類型和記錄長度這些說明信息。二進制文件的訪問同樣可以采取隨機存取方式，直接讀取某一個字節(jié)。二進制文件允許程序按照所需的任何方式組織數(shù)據(jù)，并且適用于存取任意結(jié)構(gòu)的數(shù)據(jù)。二進制文件：返回2023/12/13《VisualBasic程序設(shè)計簡明教程》49.2文件打開與關(guān)閉對磁盤文件的操作，主要有打開、讀、寫、關(guān)閉和刪除等等。對文件操作時，必須遵循“先打開，后讀寫，最后關(guān)閉”的原則。

2023/12/13《VisualBasic程序設(shè)計簡明教程》59.2文件打開與關(guān)閉——文件打開

VB語言為文件打開提供Open語句，其格式為：Open文件名[For模式][Access存取類型][鎖定]As[#]文件號[Len=記錄長度]說明：（1）文件名是一個字符串，該參數(shù)是必選項，用來指定需要打開的文件。如果該文件不在當(dāng)前目錄中，則在文件名中必須包含路徑名。（2）模式位于關(guān)鍵字For之后，用來指定文件的操作方式。一共有5種方式，其中默認方式是Random。模式含義Input順序輸入Output順序輸出Append在文件尾部順序輸出Random隨機存取Binary二進制方式2023/12/13《VisualBasic程序設(shè)計簡明教程》6（3）存取類型位于關(guān)鍵字Access之后，用來指定所訪問文件的類型。（4）鎖定只在網(wǎng)絡(luò)或者多任務(wù)環(huán)境中使用，其作用是限制其他用戶或者進程對已打開的文件進行讀寫操作。（5）文件號是一個整型表達式，該參數(shù)是必選項，取值范圍在1~511之間。在執(zhí)行Open語句時，系統(tǒng)自動為打開的文件和文件號之間建立關(guān)聯(lián)。此后文件號就代表打開的文件，在程序中對該文件的操作都要借助于文件號。（6）記錄長度是一個整型表達式，其取值不能超過32767。對于順序文件，該參數(shù)是指緩沖區(qū)的字符數(shù)，默認值是512；對于隨機文件，該參數(shù)是指記錄的長度，默認值是128。2023/12/13《VisualBasic程序設(shè)計簡明教程》79.2文件打開與關(guān)閉——文件關(guān)閉VB語言為文件關(guān)閉提供Close語句，其格式為：

Close[[#]文件號][,[#]文件號…]說明：如果省略文件號，則系統(tǒng)會將程序中所有已經(jīng)打開的文件全部關(guān)閉。例如關(guān)閉1號文件和2號文件，可以寫為：

Close#1,#2返回2023/12/13《VisualBasic程序設(shè)計簡明教程》89.3文件讀寫——順序文件1．Print語句Print語句用于將格式化的數(shù)據(jù)寫入順序文件，其格式為：Print#文件號,[表達式列表][;|,]說明：（1）Print語句的格式與Print方法十分相似，其差別在于Print語句增加了一個文件號參數(shù)。Print語句輸出的對象是文件，而Print方法輸出的對象則是窗體、圖片框和打印機。（2）表達式列表列出向文件寫入的信息，它的用法與Print方法相同。該參數(shù)是可選項，如果被省略，則表示向文件寫入一個空行。（3）如果用分號（;）分隔表達式列表中的數(shù)據(jù)項，按照緊湊格式寫入數(shù)據(jù)；如果用逗號（,）分隔數(shù)據(jù)項，按照標(biāo)準(zhǔn)格式寫入數(shù)據(jù)。（4）對于字符串?dāng)?shù)據(jù)，如果其中含有逗號、分號、空格或者換行符，則應(yīng)該先給字符串加上雙引號（“”），然后寫入文件。2023/12/13《VisualBasic程序設(shè)計簡明教程》9PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,nameAsString,age%n=Val(Text1.Text)Open"d:\test01.txt"ForOutputAs#1'打開文件

Fori=1Tonname=InputBox("請輸入第"&i&"個學(xué)生的姓名")age=InputBox("請輸入第"&i&"個學(xué)生的年齡")Print#1,name;age'向文件寫入學(xué)生的姓名和年齡

NextiClose#1'關(guān)閉文件

EndSub例9.1

輸入學(xué)生信息，并寫入到文件test01.txt中

2023/12/13《VisualBasic程序設(shè)計簡明教程》102．Write語句Write語句也能夠?qū)?shù)據(jù)寫入順序文件，其格式為：Write#文件號,[輸出列表]說明：（1）輸出列表列出向文件寫入的信息，其中的各個數(shù)據(jù)項之間用逗號（,）分隔。（2）Write語句的功能與Print語句基本相同。其差別在于Write語句寫入的數(shù)據(jù)在文件中按照緊湊格式存放，而且自動在數(shù)據(jù)之間插入逗號（,），并給字符串加上雙引號。2023/12/13《VisualBasic程序設(shè)計簡明教程》11例9.2

追加信息到文件test01.txt

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,nameAsString,age%n=Val(Text1.Text)Open"d:\test01.txt"ForAppendAs#1'打開文件

Fori=1Tonname=InputBox("請輸入第"&i&"個學(xué)生的姓名")age=InputBox("請輸入第"&i&"個學(xué)生的年齡")Write#1,name,age'向文件寫入學(xué)生的姓名和年齡

NextiClose#1'關(guān)閉文件

EndSub2023/12/13《VisualBasic程序設(shè)計簡明教程》123．Input語句Input語句用于從順序文件讀取數(shù)據(jù)，并把這些數(shù)據(jù)賦給相應(yīng)的變量。其格式為：

Input#文件號,變量列表說明：（1）變量列表列出的變量用于接收從文件讀出的信息，各個變量之間用逗號（,）分隔。（2）變量的類型應(yīng)該與文件中數(shù)據(jù)的類型相匹配。為了確保能夠?qū)⑽募械臄?shù)據(jù)正確地讀出，Input語句應(yīng)該與Write語句配合使用。2023/12/13《VisualBasic程序設(shè)計簡明教程》13例9.3

顯示文件test01.txt中的信息

PrivateSubCommand1_Click()DimnameAsString,age%

Open"d:\test01.txt"ForInputAs#1'打開文件

DoWhileNotEOF(1)Input#1,name,age'從文件讀出學(xué)生的姓名和年齡

Picture1.Printname,ageLoopClose#1‘關(guān)閉文件

EndSub

2023/12/13《VisualBasic程序設(shè)計簡明教程》144．LineInput語句LineInput語句用于從順序文件讀取一行數(shù)據(jù)，并把它賦給一個字符串變量。其格式為：LineInput#文件號,字符串變量說明：LineInput語句能夠一次讀出文件中的一行數(shù)據(jù)即一條記錄，其中不包含換行符。LineInput語句一般與Print語句配合使用。5．Input函數(shù)Input函數(shù)用于從文件中讀取指定數(shù)量的字符，并把它賦給一個字符串變量。其格式為：

Input(n,#文件號)說明：Input函數(shù)通常出現(xiàn)在賦值語句中，參數(shù)n指定了讀取字符的數(shù)量。例如：

DimaAsStringa=Input(20,#1)Input函數(shù)從1號文件讀出20個字符，并賦給字符串變量a。2023/12/13《VisualBasic程序設(shè)計簡明教程》159.3文件讀寫——隨機文件隨機文件由一組相同長度的記錄組成，是以記錄為單位進行文件的讀寫操作。在程序中打開一個隨機文件之前，應(yīng)先定義一個記錄類型，與該文件所包含的記錄結(jié)構(gòu)相對應(yīng)。在打開隨機文件之后，既可以進行寫操作，也可以進行讀操作，而且能夠直接定位在任意一條記錄上。

2023/12/13《VisualBasic程序設(shè)計簡明教程》161．Put語句Put語句用于將記錄變量中的數(shù)據(jù)，寫入到隨機文件中指定的記錄位置。其格式為：

Put#文件號,[記錄號],變量說明：記錄號是一個自然數(shù)，表示寫入的是第幾條記錄。如果省略了記錄號，例如寫為：

Put#1,,stu

則表示把變量中的記錄寫入到文件的下一個記錄位置。2023/12/13《VisualBasic程序設(shè)計簡明教程》172．Get語句Get語句用于從隨機文件讀取指定位置的記錄，并把它賦給一個記錄變量。其格式為：

Get#文件號,[記錄號],變量說明：Get語句的格式與Put語句基本相同，其作用則正好相反。返回2023/12/13《VisualBasic程序設(shè)計簡明教程》189.4文件操作讀寫操作是文件操作的重要組成部分，它針對的是文件內(nèi)容。文件操作還有刪除、復(fù)制和重命名等等，這些操作主要是針對文件整體。VB提供了一組語句和函數(shù)，使得程序員可以對文件或者目錄進行一些維護性操作。2023/12/13《VisualBasic程序設(shè)計簡明教程》199.4文件操作——文件操作語句1．FileCopy語句FileCopy語句用于將源文件復(fù)制到指定的目標(biāo)文件，其格式為：

FileCopy源文件名,目標(biāo)文件名2．Kill語句Kill語句用于刪除指定的文件，其格式為：

Kill文件名2023/12/13《VisualBasic程序設(shè)計簡明教程》203．Name語句Name語句用于對文件重命名，其格式為：

Name原文件名As新文件名4．Seek語句Seek語句用于設(shè)置文件的下一個讀寫位置，其格式為：

Seek#文件號,位置5．ChDrive語句ChDrive語句用于設(shè)置當(dāng)前驅(qū)動器，其格式為：

ChDrive驅(qū)動器名2023/12/13《VisualBasic程序設(shè)計簡明教程》216．MkDir語句MkDir語句用于創(chuàng)建一個新目錄，其格式為：

MkDir目錄名

7．ChDir語句ChDir語句用于設(shè)置當(dāng)前目錄，其格式為：

ChDir目錄名8．RmDir語句RmDir語句用于刪除指定的目錄，其格式為：

RmDir目錄名2023/12/13《VisualBasic程序設(shè)計簡明教程》229.4文件操作——文件操作函數(shù)1．FreeFile函數(shù)FreeFile函數(shù)的格式為：

FreeFile[(n)]該函數(shù)的作用是，返回一個在程序中尚未使用的文件號。2．LOF函數(shù)LOF函數(shù)的格式為：

LOF(文件號)該函數(shù)的作用是，返回指定文件的長度（字節(jié)數(shù)）。2023/12/13《VisualBasic程序設(shè)計簡明教程》233．EOF函數(shù)EOF函數(shù)的格式為：EOF(文件號)該函數(shù)的作用是，檢測當(dāng)前操作是否到達文件的尾部。4．Seek函數(shù)Seek函數(shù)的格式為：Seek(文件號)該函數(shù)的作用是，返回文件的當(dāng)前讀寫位置。5．CurDir函數(shù)CurDir函數(shù)的格式為：CurDir[(驅(qū)動器名)]該函數(shù)的作用是，返回指定驅(qū)動器的當(dāng)前目錄。

6．Shell函數(shù)Shell函數(shù)的格式為：Shell(文件名[,窗口類型])該函數(shù)的作用是，調(diào)用并運行指定的可執(zhí)行文件。2023/12/13《VisualBasic程序設(shè)計簡明教程》249.5文件系統(tǒng)控件除了通用對話框之外，VB還提供了文件系統(tǒng)控件，它包括驅(qū)動器列表框控件、目錄列表框控件和文件列表框控件。文件系統(tǒng)控件是標(biāo)準(zhǔn)控件，程序員可以使用它創(chuàng)建自定義對話框，編寫文件管理程序。返回2023/12/13《VisualBasic程序設(shè)計簡明教程》259.5文件系統(tǒng)控件——驅(qū)動器列表框驅(qū)動器列表框（DriveListBox）控件用來列出系統(tǒng)中全部有效的驅(qū)動器，默認情況下顯示系統(tǒng)當(dāng)前的驅(qū)動器，用戶也可以從下拉式列表框中選擇所需的驅(qū)動器。在工具箱中表示為：2023/12/13《VisualBasic程序設(shè)計簡明教程》26驅(qū)動器列表框的常用屬性屬性作用Name設(shè)置驅(qū)動器列表框的對象名，程序第一個驅(qū)動器列表框控件的默認對象名是Drive1Drive設(shè)置所選擇的驅(qū)動器名List確定驅(qū)動器列表框所顯示的驅(qū)動器列表ListCount確定驅(qū)動器列表框中驅(qū)動器的總數(shù)2023/12/13《VisualBasic程序設(shè)計簡明教程》27說明：⒈Drive是驅(qū)動器列表框控件最重要的屬性，其屬性值只能通過程序代碼設(shè)置。⒉List是一個字符串?dāng)?shù)組，其中每一個元素都存放了一個有效的驅(qū)動器名和卷標(biāo)。Change事件是驅(qū)動器列表框控件最重要的事件。一旦用戶選擇了一個新的驅(qū)動器，導(dǎo)致Drive屬性值被改變，就會引發(fā)Change事件。2023/12/13《VisualBasic程序設(shè)計簡明教程》289.5文件系統(tǒng)控件——目錄列表框目錄列表框（DirListBox）控件用來顯示系統(tǒng)當(dāng)前驅(qū)動器上的目錄結(jié)構(gòu)，初始狀態(tài)下只顯示當(dāng)前驅(qū)動器的根目錄和當(dāng)前目錄。程序運行時如果用戶雙擊某個子目錄，就可以使它成為當(dāng)前目錄。在工具箱中表示為：2023/12/13《VisualBasic程序設(shè)計簡明教程》29目錄列表框的常用屬性屬性作用Name設(shè)置目錄列表框的對象名，程序第一個目錄列表框控件的默認對象名是Dir1Path設(shè)置當(dāng)前目錄List確定當(dāng)前目錄下的子目錄列表ListCount確定當(dāng)前目錄下子目錄的總數(shù)ListIndex確定當(dāng)前目錄在目錄列表中的索引2023/12/13《VisualBasic程序設(shè)計簡明教程》30說明：⒈目錄列表框只能顯示當(dāng)前驅(qū)動器上的目錄，如果要顯示其他驅(qū)動器上的目錄，則必須修改Path屬性，從而改變路徑。⒉List是一個字符串?dāng)?shù)組，其中每一個元素都存放了當(dāng)前目錄下的一個子目錄名。⒊當(dāng)前目錄的ListIndex屬性值是-1。如果當(dāng)前目錄包含子目錄，則每一個子目錄的ListIndex屬性值依次從0到ListCount-1；如果當(dāng)前目錄有父目錄，則父目錄的ListIndex屬性值是-2，依次類推。2023/12/13《VisualBasic程序設(shè)計簡明教程》31事件：Change事件是目錄列表框控件最重要的事件。一旦用戶選擇了一個新的目錄，導(dǎo)致Path屬性值被改變，就會引發(fā)Change事件。2023/12/13《VisualBasic程序設(shè)計簡明教程》