學(xué)習(xí)課件文件

1、文件lyz_Introduction文本文件（*.txt，*.log） 小說、文本數(shù)據(jù)、記錄說明數(shù)據(jù)文件（*.mdb） 存放數(shù)據(jù)庫數(shù)據(jù)文檔（*.doc, *.docx, *.ppt, *.pdf, etc） 存放文檔等等存放在介質(zhì)上（硬盤、優(yōu)盤等），以便需要的時(shí)候處理文件的基本概念引例按“生成文件”按鈕，將1至1000間的素?cái)?shù)順序輸出到磁盤文件su.txt；按“輸入/判斷”按鈕，輸入1個(gè)小于1000的正整數(shù)，用在文件su.txt中查找的方式判斷其是否素?cái)?shù)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=, 判斷是不是素?cái)?shù)) 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 (是素?cái)?shù)) : else MsgBox (不是素?cái)?shù)) Close #1End Sub文件路徑絕對(duì)路徑絕對(duì)路徑 “C:Program FilesMicrosoft Visual StudioVB98su.txt” 存儲(chǔ)路徑 + 文件名 + 擴(kuò)展名相對(duì)路徑相對(duì)路徑 “su.txt” “datasu.txt” 存在某文件夾決定默認(rèn)盤符、路徑等等 文件分類文件分類按存儲(chǔ)格式分類 文本（ASCII、正文）文件 每個(gè)字符占1個(gè)字

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

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

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

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

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

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

11、例子做一個(gè)簡單的學(xué)生系統(tǒng)密碼統(tǒng)計(jì)Csdn密碼泄露分析/12306密碼泄露郵箱群發(fā)等等軟件總結(jié)打開文件用Print #或Write #語句寫文件用Input #或Line Input #語句讀文件在讀文件過程中用EOF函數(shù)判斷是否到達(dá)文件末尾關(guān)閉文件 某文件中存放了若干個(gè)實(shí)數(shù)，單擊Command1 可用對(duì)話框打開該文件、并將讀入的所有數(shù)據(jù)在List1中顯示，單擊Command2可將讀入的數(shù)據(jù)按值從大到小順序重新寫入到該文件。 【程序】 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) 【程序說明】運(yùn)行時(shí)初態(tài)如下圖所示，Text2、Text3、Command1不可用。輸入姓名按回車Text2可用，輸入學(xué)號(hào)按回車Text3可用，輸入成績按回車“保存”按鈕可用，按“保存”將數(shù)據(jù)添加到文件e:score.txt、界面恢復(fù)初態(tài)。退出前可繼續(xù)輸入、保存數(shù)據(jù)。 【程序】 Private Sub f() (9) Text1.Text = : Text1.Enabled = True Text2.Text =

15、: Text2.Enabled = False Text3.Text = : Text3.Enabled = False Text1.SetFocus Text1獲得輸入焦點(diǎn) End Sub Private Sub Form_Activate() 窗體加載后調(diào)用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