VB程序設計第10章文件

1、第二章 Visual Basic 界面設計主講教師：徐州工程學院信電學院Visual Basic 程序設計 徐州工程學院第十章 文件10.1 文件的概念10.2 文件的分類10.3 文件的操作10.4 文件控件Visual Basic 程序設計 徐州工程學院10.1 文件的概念文件是存儲數據的基本單位，任何對數據的訪問都是通過文件進行的。通常在計算機外存儲設備上存儲著大量的文件，比如文本文件、位圖文件、程序文件等，常將具有相互關系的一組文件放在同一個文件夾中，系統(tǒng)通過對文件、文件夾的管理達到管理數據信息的目的。文件：存儲在外部介質上數據的集合。Visual Basic 程序設計 徐州工程學院1

2、0.2 文件的分類從不同角度對文件進行分類：n 按文件的內容分類：程序文件、數據文件程序文件：源程序代碼、可執(zhí)行文件數據文件:程序運行所處理的數據Visual Basic 程序設計 徐州工程學院10.2 文件的分類從不同角度對文件進行分類：n 按存儲信息的形式分類：二進制文件、ASCII文件例：用二進制方式和ASCII方式保存 100二進制文件 0000 0000 0110 0100 00 H64 HASCII文件1的ASCII碼值49，即31H0的ASCII碼值48，即30H31 H30 H30 HVisual Basic 程序設計 徐州工程學院10.2 文件的分類從不同角度對文件進行分類：

3、n 按文件的內容分類：程序文件、數據文件n 按存儲信息的形式分類：二進制文件、ASCII文件n 按訪問方式分類：順序文件、隨機文件、二進制文件Visual Basic 程序設計 徐州工程學院10.2 文件的分類順序文件：普通的文本文件，其數據是以字符（ASCII碼）的形式存儲的，可以用任何字處理軟件（比如記事本）進行訪問。記錄1記錄2記錄N文件結束標志優(yōu)點：結構簡單，可以使用記事本建立和查看；缺點：查找數據必須按照順序進行，且不能同時對文件進行讀寫操作。修改不方便，適合于不經常修改的文件。Visual Basic 程序設計 徐州工程學院10.2 文件的分類隨機文件：以固定長度的記錄為單位進行存

4、儲的。隨機文件由若干條記錄組成，而每條記錄又可以包含多個字段，每條記錄包含的字段數和數據類型都是相同的。記錄1學號姓名性別年齡記錄2學號姓名性別年齡記錄N學號姓名性別年齡優(yōu)點：存取速度快，容易更新；缺點：占用空間大，設計程序較復雜，二進制方式存儲，不方便查看Visual Basic 程序設計 徐州工程學院10.2 文件的分類二進制文件：字節(jié)的集合，直接把二進制碼值存放在文件中。除了沒有數據類型或者記錄長度的含義外，它與隨機文件很類似。二進制訪問模式是以字節(jié)數來定位數據，在程序中可以按任何方式組織和訪問數據，對文件中各字節(jié)數據直接進行存取。優(yōu)點：靈活性很大；缺點：程序更復雜Visual Basi

5、c 程序設計 徐州工程學院10.3 文件的操作VB中文件的訪問：在程序中對文件的操作，通常按照3個步驟進行：打開文件 讀出或寫入 關閉文件D:Dataa.txtD:Datab.dat外存#1 文件緩沖區(qū)文件緩沖區(qū)#2 文件緩沖區(qū)文件緩沖區(qū)內存數據內存Write # 或或Print #Put寫操作Input # 或或Line Input #Get讀操作操作系統(tǒng)完成程序控制OpenCloseVisual Basic 程序設計 徐州工程學院1、順序文件的打開 打開文件語句 OPEN語句格式：Open 文件名 For 模式 As #文件號 作用：在內存中開辟文件緩沖區(qū)，將物理文件和邏輯文件關聯例如：O

6、pen “D:DataStudent.dat” For Input As #1其中：文件名：指定要打開（或創(chuàng)建）的文件，可包含盤符和路徑模式： Input：讀操作，將文件數據從外存讀入內存； Output：寫操作，從文件的起始處寫入數據，替代原有內容； Append：追加方式，從文件結尾處開始寫入數據，并保留原有數據。文件號：一個介于1511之間的整數，又稱為文件標識符或通道號，用來在文件操作中表示該文件。10.3 文件的操作Visual Basic 程序設計 徐州工程學院2、順序文件的寫操作（Write # 語句和Print # 語句）nPrint # 語句格式：Print # 文件號，輸出

7、列表功能：將輸出列表的內容寫入指定的文件中。例如：10.3 文件的操作Open “D:/Data/Student.txt” For Output As #1Print #1,100,200Print #1, “使用Print語句寫入”Close #1Visual Basic 程序設計 徐州工程學院2、順序文件的寫操作（Write # 語句和Print # 語句）nWrite # 語句格式：Write # 文件號，輸出列表功能：將輸出列表的內容寫入指定的文件中。例如：10.3 文件的操作Open “D:/Data/Student.txt” For Output As #1Write #1,100

8、,200Write #1, “使用Write語句寫入”Close #1Visual Basic 程序設計 徐州工程學院用Write # 語句和Print # 語句寫入的數據文件比較10.3 文件的操作說明：nWrite：數據項之間逗號分隔，字符串用雙引號括起來nPrint：無逗號分隔、雙引號，按區(qū)（每區(qū)14個字符寬）分隔思考：哪種寫入方式好？Visual Basic 程序設計 徐州工程學院3、順序文件的讀操作使用格式如下：nInput # 文件號，變量列表 把讀出的每個數據項分別存放到所對應的變量nLine Input #文件號，字符串變量 讀取一行數據到變量中，主要用來讀取文本文件10.3

9、文件的操作Visual Basic 程序設計 徐州工程學院3、順序文件的讀操作nInput # 文件號，變量列表例：注意：確定讀出的數據是什么類型？設置相同類型變量接收讀出的數據Open D:datastudent.txt For Output As #1Write #1, 用Write # 語句寫入Write #1, 001, 張三, 87, 92Write #1, 002, 李四, 88, 93Write #1, 003, 王五, 89, 94Close #1Dim no$, Name$, s1%, s2%Open D:datastudent.txt For Input As #1Do W

10、hile Not EOF(1) Input #1, no$,name$,s1%,s2% Print no,name,s1,s2LoopClose #1Visual Basic 程序設計 徐州工程學院3、順序文件的讀操作nLine Input #文件號，字符串變量Open D:datastudent.txt For Output As #1Write #1, 用Write # 語句寫入Write #1, 001, 張三, 87, 92Write #1, 002, 李四, 88, 93Write #1, 003, 王五, 89, 94Close #1Open D:datastudent.txt F

11、or Input As #1Do While Not EOF(1) Line Input #1, sPrint sLoopClose #1Visual Basic 程序設計 徐州工程學院4、順序文件的關閉nClose語句Close # 文件號 , # 文件號 例：Close #1,#2 關閉1號文件和2號文件 Close 關閉所有已打開的文件10.3 文件的操作注意：關閉文件時將內存緩沖區(qū)中的數據全部寫入文件，并清除緩沖區(qū)，釋放全部與被關閉文件有關的VB緩沖區(qū)和表示該文件的文件號。Visual Basic 程序設計 徐州工程學院與讀文件操作有關的幾個函數LOF函數格式：LOF（文件號）功能：返

12、回已打開文件的字節(jié)數注意：中文占2個ByteFileLen函數格式：FileLen（文件名）功能：返回指定文件的長度EOF函數格式：EOF（文件號）功能：測試文件指針是否到達文件末尾函數結果：文件沒有到達末尾返回False，否則為True10.3 文件的操作例：s=“VB6.0程序設計”LOF(1)函數獲得的文件字節(jié)數：13Len(s)字符數：9Visual Basic 程序設計 徐州工程學院綜合示例：學生信息順序文件的讀寫10.3 文件的操作說明：學生信息：由學號、姓名、性別、聯系方式四個字段組成；添加按鈕：使用write語句將輸入的學生信息添加到數據文件；讀取按鈕：從指定文件讀取學生信息，

13、并顯示在picture1控件上Visual Basic 程序設計 徐州工程學院Private Sub Command1_Click()Open “d:datastudent.txt” For Append As #1Write #1, Text1.Text, Text2.Text, Combo1.Text, Text3.TextClose #1MsgBox 添加成功Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Open d:datastudent.txt For Input As #1Do W

14、hile Not EOF(1)Input #1, no, stuName, male, phonePicture1.Print no; Tab(5); stuName; Tab(12); male; Tab(16); phoneLoopClose #1End Sub添加數據讀取數據Visual Basic 程序設計 徐州工程學院10.4 文件控件n 驅動器列表框：下拉列表，用來顯示系統(tǒng)當前驅動器的名稱n 目錄列表框：顯示當前驅動器目錄結構及當前目錄下的子目錄n 文件列表框：當前目錄下所有文件清單Visual Basic 程序設計 徐州工程學院10.4 文件控件n3種控件結合使用Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubVisual Basic 程序設計 徐州工程學院2、順序文件的寫操作例題：假定文本框的名稱為Text1，文件名為Test.dat，保存