1、文件lyz_Introduction文本文件（*.txt，*.log） 小說、文本數據、記錄說明數據文件（*.mdb） 存放數據庫數據文檔（*.doc, *.docx, *.ppt, *.pdf, etc） 存放文檔等等存放在介質上（硬盤、優盤等），以便需要的時候處理文件的基本概念引例按“生成文件”按鈕，將1至1000間的素數順序輸出到磁盤文件su.txt；按“輸入/判斷”按鈕，輸入1個小于1000的正整數，用在文件su.txt中查找的方式判斷其是否素數Private Sub cmdFile_Click()Private Sub cmdFile_Click() Dim n As Integer

2、, i As Integer Dim n As Integer, i As Integer Open su.txt For Output As #1Open su.txt For Output As #1 For n = 2 To 1000 For n = 2 To 1000 For i = 2 To Sqr(n) For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For If n Mod i = 0 Then Exit For Next i Next i If i Sqr(n) Then If i Sqr(n) Then Write #1, nWrit

3、e #1, n Next n Next n Close #1Close #1 cmdFile.Enabled = False cmdFile.Enabled = False cmdIC.Enabled = True cmdIC.Enabled = TrueEnd SubEnd SubPrivate Sub cmdIC_Click() Dim n As Integer, m As Integer n = Val(InputBox(n=, 判斷是不是素數) If n 1000 Then MsgBox (輸入超出范圍): Exit Sub End If Open su.txt For Input A

4、s #1 Do While Not EOF(1) Input #1, m If m = n Then Exit Do Loop If Not EOF(1) Then MsgBox (是素數) : else MsgBox (不是素數) Close #1End Sub文件路徑絕對路徑絕對路徑 “C:Program FilesMicrosoft Visual StudioVB98su.txt” 存儲路徑 + 文件名 + 擴展名相對路徑相對路徑 “su.txt” “datasu.txt” 存在某文件夾決定默認盤符、路徑等等 文件分類文件分類按存儲格式分類 文本（ASCII、正文）文件 每個字符占1個字

5、節（一個漢字占兩個字節），為該漢字字模在字庫中的地址信息 二進制文件 按數據的機內碼存儲，每個數據所占存儲空間為該類型數據的字節數文件分類按存取（寫讀）方式分類 順序型：加載全部數據，適用于連續塊中的文本文件，例如文本文件 隨機型：可以直接存取文件中的任何1個數據，適用于讀寫有固定長度記錄結構的文本文件或者二進制文件 二進制型：適用于讀寫任意結構的文件文本文件的順序存取比隨機存取簡單和方便，這里只介紹文本文件的順序存取文本文件的順序存取打開文件文件的讀/寫關閉文件Note：Close語句關閉已打開的文件，應用程序終止運行時也會自動關閉文件打開文件 OpenOpen for for ModeMo

6、de As As # #文件號文件號Mode:Mode:Input: Input: 打開文件、只讀打開文件、只讀 Output: Output: 打開文件打開文件 、只寫、只寫 Append: Append: 打開文件、在文件末尾追加數據打開文件、在文件末尾追加數據文件號文件號選項為打開文件后使用的信道號，為正整數值，應從小到大使用如果打開多個文件會如何取文件號？文件的讀/寫Print #Print #語句語句格式：格式：Print #Print #File_numbFile_numb,表達式列表表達式列表 例：用Print #語句寫若干數據到文本文件bbb.txt。例12-2例：保存文本框T

7、ext1到文件TEST.TXTWrite #Write #語句語句Write #Write #語句語句格式：格式：Write #Write #File_numbFile_numb,表達式列表表達式列表 與Print #語句相同的是，表達式列表末尾無分隔符則表達式列表末尾無分隔符則輸出回車輸出回車、換行符到文件。 與Print #語句不同的是：表達式列表中，無論用逗號或分號作間隔符，都在寫入文件的數據間加入逗號；為字符串兩端自動加雙引號，為其他非數值類型數據兩端加“#”號關閉文件關閉文件 Close #文件號文件號, #文件號文件號.例如，例如， Close #1 Close #1, #2, #

8、3 Close 關閉文件關閉文件例12-4順序訪問模式-讀文件 Line Input #Line Input #語句語句格式：Line Input #file_numb,功能：將文件或文件結束符前的所有字符，讀入到字符串變量。當前讀數據位置起至換行符Input #Input #語句語句格式：Input #File_numb,功能：從以File_numb為信道號的文件當前讀寫位置起，將順序讀入的數據為變量名列表中各變量賦值。數據間的分隔符區分哪段字符與哪個變量對應 數值數據之間，以不可能在數值中出現的字符為分隔符（如逗號、空格、字母等）。 日期、邏輯類型數據的兩端以“#”號作分隔符，與其他類型數

9、據間應有非空字符間隔。 逗號、換行符可以作為字符數據的分隔符，雙引號作為字符數據分隔符必須成對出現。常用函數和語句LOF(文件號文件號)：返回文件的長度：返回文件的長度(總字節數總字節數)EOF(文件號文件號)：判斷：判斷文件指針是否到達文件尾文件指針是否到達文件尾指針在文件尾時，指針在文件尾時，EOF函數為函數為True，否則為，否則為False。例12-5文件系統控件 在應用程序中，當我們遇到諸如在應用程序中，當我們遇到諸如“打開文件打開文件”、”保保存文件存文件”等涉及目錄和文件的操作時，最常用的方法等涉及目錄和文件的操作時，最常用的方法是調用通用對話框控件。但有時我們可能需要自己來是調

10、用通用對話框控件。但有時我們可能需要自己來設計一些具有獨特風格的文件操作界面。為此，設計一些具有獨特風格的文件操作界面。為此，VB提提供了三個文件操作控件，它們是供了三個文件操作控件，它們是盤驅動器列表框盤驅動器列表框(DriveListBox)，目錄列表框，目錄列表框(DirListBox)和文件列表框和文件列表框(FileListBox)。常用函數和語句KillKill語句語句格式：Kill 功能：刪除文件。如執行語句“Kill d:vb_4.doc”則刪除名為d:vb_4.doc的文件。NameName語句語句格式：Name as 功能：將old_name改名或移動為new_name綜合

11、例子做一個簡單的學生系統密碼統計Csdn密碼泄露分析/12306密碼泄露郵箱群發等等軟件總結打開文件用Print #或Write #語句寫文件用Input #或Line Input #語句讀文件在讀文件過程中用EOF函數判斷是否到達文件末尾關閉文件 某文件中存放了若干個實數，單擊Command1 可用對話框打開該文件、并將讀入的所有數據在List1中顯示，單擊Command2可將讀入的數據按值從大到小順序重新寫入到該文件。 【程序】 Private Sub Command1_Click() Dim x As Single List1.Clear: CommonDialog1.Action =

12、1 Open CommonDialog1.FileName For (10) As #1 Do While (11) Input #1, x: List1.Additem x Loop Close #1 End Sub Private Sub Command2_Click() Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12) Redim a(n) As Single For i = 1 To n: a(i) = List1.List(i-1): Next i For i = 1

13、To n -1 k = i For j = i+1 To n: If (13) Then k = j: Next j x = a(k): a(k) = a(i): a(i) = x Next i Open CommonDialog1.FileNmae For Output As #1 For i = 1 To n: Print #1,a(i): Next i Close #1 End Sub 【供選擇的答案】 (10) A、Output B、Input C、Append D、Read (11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn) (12)

14、 A、Count B、ListCount-1 C、List D、ListCount (13) A、a(j)a(k) B、a(j)=a(k) C、a(j)a(k) D、a(j)a(k) 【程序說明】運行時初態如下圖所示，Text2、Text3、Command1不可用。輸入姓名按回車Text2可用，輸入學號按回車Text3可用，輸入成績按回車“保存”按鈕可用，按“保存”將數據添加到文件e:score.txt、界面恢復初態。退出前可繼續輸入、保存數據。 【程序】 Private Sub f() (9) Text1.Text = : Text1.Enabled = True Text2.Text =

15、: Text2.Enabled = False Text3.Text = : Text3.Enabled = False Text1.SetFocus Text1獲得輸入焦點 End Sub Private Sub Form_Activate() 窗體加載后調用f()初始化 Call f End Sub Private Sub Text1_KeyPress(K As Integer) If K = 13 Then Text2.Enabled = True: Text2.SetFocus End Sub Private Sub Text2_KeyPress(K As Integer) If K = 13 Then Text3.Enabled = True: Text3.SetFocus End Sub Private Sub Text3_KeyPress(K As Integer) If K = 13 Then Command1.Enabled = True End Sub Private Sub Command1 (10) Open e:score.txt For (11) As #1 Write #1, Text1.Text, Text2.Text, Val(Text3.Text) Close #1 (12) End Sub 【供選擇的答案】 (9) A、Comma