《計(jì)算機(jī)應(yīng)用基礎(chǔ)》(二)-Visual Basic程序設(shè)計(jì)課件8.文件

文件教學(xué)目標(biāo)熟悉VB的文件操作，包括基本文件操作控件：驅(qū)動器列表框、目錄列表框與文件列表框。熟悉常用的文件操作語句和函數(shù)。熟悉文件的結(jié)構(gòu)與分類以及文件的基本操作（打開、讀/寫及關(guān)閉）。文件系統(tǒng)控件驅(qū)動器列表框驅(qū)動器列表框（DriveListBox）

是下拉式列表框，是一種能顯示系統(tǒng)中所有有效磁盤驅(qū)動器的列表框，用戶可以單擊列表框右側(cè)的箭頭從列出的驅(qū)動器列表中選擇當(dāng)前驅(qū)動器。其默認(rèn)控件名是Drivel。驅(qū)動器列表框缺省時在最上端顯示當(dāng)前驅(qū)動器。運(yùn)行時，用戶可在該控件上輸入任何有效的驅(qū)動器標(biāo)識符，或單擊列表框右側(cè)的箭頭，從下拉列表中選取定新的驅(qū)動器，選定的驅(qū)動器出現(xiàn)在列表框的頂端。驅(qū)動器列表框的重要屬性驅(qū)動器列表框除了具有與其它控件相同的基本屬性，還有其特有的重要屬性——Drive屬性。Drive屬性返回或設(shè)置運(yùn)行時選擇的驅(qū)動器，默認(rèn)為當(dāng)前驅(qū)動器。Drive屬性在設(shè)計(jì)時不能通過屬性窗口設(shè)置，只能在程序中用代碼被設(shè)置。代碼語法格式為：驅(qū)動器列表框?qū)ο蟮拿Q.Drive[=驅(qū)動器名]驅(qū)動器名稱可以是任何一個有效的字符串表達(dá)式，該字符串的第一個字母必須是一個有效的磁盤驅(qū)動器符號，如“C:\”或“D:\”，但只有第一個字符有效。例如，要在窗體啟動時把當(dāng)前磁盤改為D盤，可使用如下代碼：PrivateSubForm_Load()Drive1.Drive=“D:\”'將當(dāng)前選擇的驅(qū)動器變成D盤并在目錄列表框顯示EndSubDrive屬性的有效驅(qū)動器包括運(yùn)行時控件創(chuàng)建的和刷新時系統(tǒng)已有的，或連接到系統(tǒng)上的所有驅(qū)動器。設(shè)置Drive屬性時要注意：（1）驅(qū)動器字符不分大小寫；（2）改變Drive屬性的設(shè)置會觸發(fā)Change事件；（3）選擇不存在的驅(qū)動器會產(chǎn)生錯誤。（4）改變當(dāng)前工作驅(qū)動器，也可以通過ChDrive

語句來實(shí)現(xiàn)，但并不在驅(qū)動器列表框顯示。例如:ChDrive"c"'改變當(dāng)前驅(qū)動器為C盤驅(qū)動器列表框的重要事件驅(qū)動器列表框的重要而常用的事件是Change事件，在選擇了一個新的驅(qū)動器或通過代碼改變驅(qū)動器列表框的Drive屬性的設(shè)置時發(fā)生Change事件。驅(qū)動器列表框的默認(rèn)名稱為Drive1，其Chang事件過程的開頭為Drive1_Change()。目錄列表框目錄列表框：用于顯示當(dāng)前驅(qū)動器上的目錄結(jié)構(gòu)及當(dāng)前目錄下所有子目錄，供用戶選擇其中的某個目錄作為當(dāng)前目錄，其默認(rèn)控件名是Dirl。它從根目錄開始顯示當(dāng)前驅(qū)動器的目錄結(jié)構(gòu)，并按層次關(guān)系縮進(jìn)根目錄下的所有子目錄。當(dāng)前目錄的子目錄都用關(guān)閉的文件夾表示，而它的上級目錄則用打開的文件夾表示。雙擊打開的目錄可將其關(guān)閉，其中的子目錄不再顯示出來，并且目錄的圖標(biāo)變成一個關(guān)閉狀的文件夾。目錄列表框只列出系統(tǒng)的目錄結(jié)構(gòu)，不能顯示目錄中的文件。目錄列表框中只能顯示當(dāng)前驅(qū)動器上的目錄。如果要顯示其他驅(qū)動器上的目錄，必須改變路徑，即重新設(shè)置目錄列表框的Path屬性。目錄列表框的重要屬性目錄列表框除了具有與其它控件相同的基本屬性，還有其特有的重要屬性。（1）Path屬性該屬性設(shè)置或返回運(yùn)行時選擇的完整路徑（包括驅(qū)動器盤符），默認(rèn)路徑為當(dāng)前路徑。設(shè)置Path屬性就相當(dāng)于改變了目錄列表框的當(dāng)前目錄，會觸發(fā)它的Change事件。在設(shè)計(jì)時不能通過屬性窗口設(shè)置Path屬性，只能在程序中用代碼被設(shè)置，即只能在程序運(yùn)行時使用。其格式如下：[目錄列表框的對象名稱.]Path[=文件路徑的字符串表達(dá)式]目錄列表框的重要事件Change事件：程序運(yùn)行時，雙擊一個目錄項(xiàng)或通過代碼改變目Path屬性的設(shè)置時觸發(fā)目錄列表框的Change事件。文件列表框文件列表框：是一個帶滾動條的列表框，用來顯示當(dāng)前目錄中的部分或全部文件。其默認(rèn)控件名是Filel。文件列表框的重要屬性1.Path屬性：Path屬性用來設(shè)置或返回列表框中所顯示文件的目錄，在設(shè)計(jì)時不可用。文件列表框常與目錄列表框和驅(qū)動器列表框一起使用。在目錄列表框的Change事件中添加如下語句：File1.Path=Dir1.Path即可將目錄列表框與文件列表框關(guān)聯(lián)起來，當(dāng)在目錄列表框中選擇一個目錄時，文件列表框中會自動同步顯示出該目錄中的所有文件。2.FileName屬性：用戶選定的文件名不含路徑，一般與Path屬性組合使用。3.Pattern屬性：文件列表框可以顯示的文件類型。例如：Filel.Pattern=“*.TXT”‘只顯示所有文本文件Filel.Pattern=＂*.*＂‘顯示所有文件文件列表框的重要事件（1）PathChange事件。當(dāng)路徑被代碼中的FileName或Path屬性的設(shè)置所改變時，此事件就發(fā)生。既可使用PathChange事件來響應(yīng)文件列表框中路徑的改變。（2）PatternChange事件。當(dāng)文件的列表樣式，如“*.*”被代碼中對FileName或Path屬性的設(shè)置所改變時，此事件就發(fā)生。既可使用PatternChange事件過程來響應(yīng)文件列表框中樣式的改變。（3）Click事件。在文件列表框中單擊，選中所單擊的文件，將改變Listlndex屬性值，并將FileName的值設(shè)置為所單擊的文件名字符串。（4）DbClick事件。文件列表框能識別雙擊事件，常用于對所雙擊的文件進(jìn)行處理。常用文件操作語句和函數(shù)1.Name語句語法：NameoldpathnameAsnewpathname功能：重新命名一個文件。2.FileCopy語句語法：FileCopysource,destination功能：復(fù)制一個文件。3.Kill語句語法：Killpathname功能：從磁盤中刪除文件。4.MkDir語句語法：MkDirpath功能：創(chuàng)建一個新的目錄或文件夾。5.ReDir語句語法：ReDirpath功能：刪除一個現(xiàn)已存在的目錄或文件夾。6.ChDrive語句語法：ChDriveDrive功能：改變當(dāng)前驅(qū)動器。7.CurDir函數(shù)語法：CurDir[(Drive)]功能：返回一個字符串，用來代表當(dāng)前的路徑。8.ChDir語句語法：ChDirPath功能：改變當(dāng)前目錄。文件結(jié)構(gòu)與分類

文件：存儲在外部介質(zhì)上數(shù)據(jù)的集合

——按名存取

磁盤文件是由數(shù)據(jù)記錄組成。記錄是計(jì)算機(jī)處理數(shù)據(jù)的基本單位，它由一組具有共同屬性相互關(guān)聯(lián)的數(shù)據(jù)項(xiàng)組成。例如，由學(xué)生的學(xué)習(xí)成績信息組成的記錄：數(shù)據(jù)項(xiàng)（1）按照文件中數(shù)據(jù)的編碼方式不同，分為ASCII文件和二進(jìn)制文件。（2）按照數(shù)據(jù)的存取方式和結(jié)構(gòu)不同，分為順序文件和隨機(jī)文件。（3）按照數(shù)據(jù)的性質(zhì)不同，分為程序文件和數(shù)據(jù)文件。文件的分類順序文件順序文件是普通的文本文件。記錄按順序一個接一個地排列;讀出或?qū)懭胗涗洉r，都必須按順序逐個進(jìn)行;記錄可長可短。隨機(jī)文件每個記錄的長度相同;每個記錄都有其唯一的一個記錄號；根據(jù)記錄號可以直接訪問文件中的任意一個記錄。順序文件

從第一條到最后一條記錄順序讀寫訪問擴(kuò)展名為TXT或DAT的文本文件

寫文件的步驟：讀文件的步驟：打開文件寫入關(guān)閉文件打開文件讀出關(guān)閉文件讀到內(nèi)存寫入硬盤順序文件的打開模式：Output

對文件進(jìn)行寫操作(內(nèi)存→磁盤)

Append

追加記錄(在文件的尾部追加記錄)

Input

對文件進(jìn)行讀操作(磁盤→內(nèi)存)

文件號：1~511之間的整數(shù)。例如：

Open"C:\Temp\A.Txt"ForInputAs#1Open"C:\Temp\B.Txt"ForOutputAs#2Open"C:\Temp\C.Txt"ForAppendAs#3站在內(nèi)存的角度來理解”模式”O(jiān)pen”文件名”For存取方式

As#文件號文件的關(guān)閉

Close[[#]文件號][，[#]文件號]……文件號，如：#1,#2,#3，如果省略，則將關(guān)閉所有已經(jīng)打開的文件。例如：

Close#1,#2,#3Close與文件有關(guān)的函數(shù)FreeFile()

返回尚未被占用的文件號LOF（文件號）返回用Open打開的文件分配的字節(jié)數(shù)。若為0是空文件

FileLen（文件號）返回某個未打開的文件分配的字節(jié)數(shù)。EOF（文件號）返回邏輯值，表示文件指針是否達(dá)到文件末尾。Loc（文件號）返回指定文件的當(dāng)前讀/寫位置。Seek（文件號)

在Open語句打開的文件中返回當(dāng)前的讀/寫位置。順序文件的寫操作

Print命令(重點(diǎn)掌握)

Print#文件號,[輸出列表]如：Print#1,”Abc”;”HIJ”,123

Write命令

Write#文件號，[輸出列表]

如：Write#2,”Abc”,”HIJ”,123

Write語句采用緊湊格式。數(shù)據(jù)項(xiàng)之間插入“,”，并給字符數(shù)據(jù)加上雙引號。例

Print與Write語句輸出數(shù)據(jù)結(jié)果比較。PrivateSubForm_Click()DimStr$,Anum%Open"D:\Myfile.dat"ForOutputAs#1

Str="ABCDEFG"

Anum=12345

Print#1,Str,

Anum

Print#1,Str;

Anum

Print#1,Str;Tab(30);

Anum

Write#1,Str,

Anum

Close

#1EndSub例:把文本框Mytxt的內(nèi)容，寫入文件Myfile.dat中。方法1：把整個文本框的內(nèi)容一次性地寫入文件。

OpenApp.Path+

“\Myfile.dat"For

Output

As#1

Print#1,Mytxt.Text

Close

#1

方法2：把整個文本框的內(nèi)容一個字符一個字符地寫入文件。

Open“.\Myfile.dat"ForOutputAs#1

Fori=1ToLen(Mytxt.Text)

Print#1,Mid(Mytxt.Text,i,1);

Nexti

Close#1OpenApp.Path+"\aa.txt"ForInputAs#1Open".\aa.txt"ForInputAs#1作用相同，都是從當(dāng)前文件夾中打開相應(yīng)文件格式1

Input#語句

(重點(diǎn)掌握)

Input#文件號，變量列表功能：讀取文件中的數(shù)據(jù)項(xiàng)，并將讀出的數(shù)據(jù)按順序賦值給變量列表中的變量順序文件的讀操作格式2LineInput#語句

(重點(diǎn)掌握)LineInput#文件號，字符串變量功能：讀取文件中的一行字符并將其賦值給一個字符串變量例：將文本文件MYFILE.TXT的內(nèi)容讀到文本框Text1中。

Text1.Text＝""

Open“D:\myfile.txt"ForInputAs#1

DoWhileNotEOF(1)

LineInput

#1,s

Text1.Text＝Text1.Text&

s&vbCrLf

Loop

Close#1判斷是否到達(dá)文件末尾