【文章內(nèi)容簡介】 Set fil = () msg = 請輸入新的文件名： amp。 Chr(13) amp。 Chr(13) amp。 文件原名為： a = InputBox(msg amp。 fil, 文件更名 , ) If Len(Trim(a)) 0 Then = a End Select 第 11章 文件、驅(qū)動器和文件夾 Exit Sub 39。 退出程序 ， 以免進(jìn)入錯誤處理程序 ErrorHandler: 39。 錯誤處理程序 MsgBox 應(yīng)該選擇一個文件 , , 文件管理器 End Sub 程序運(yùn)行結(jié)果如圖 。 第 11章 文件、驅(qū)動器和文件夾 3. 數(shù)據(jù)文件的創(chuàng)建 有 3種方法可以創(chuàng)建順序型的空文本文件 c:\。 (1) 使用 CreateTextFile方法： Dim fso As New FileSystemObject, fil As File Set fil = (c:\, True) 第 11章 文件、驅(qū)動器和文件夾 (2) 使用 FileSystemObject對象的 OpenTextFile方法 ，該對象的 ForWriting標(biāo)志設(shè)置為 Dim fso As New FileSystemObject, ts As New TextStream Set ts = (c:\, ForWriting) 第 11章 文件、驅(qū)動器和文件夾 (3) 使用帶 ForWriting標(biāo)志設(shè)置的 OpenAsTextStream方法： Dim fso As New FileSystemObject, fil As File, ts As TextStream Set fso = CreateObject() () Set fil = () Set ts = (ForWriting) 第 11章 文件、驅(qū)動器和文件夾 4. 數(shù)據(jù)文件的寫入 文本文件一經(jīng)創(chuàng)建 ， 就可以分 3步向其中加入數(shù)據(jù)： (1) 打開文本文件以備寫入數(shù)據(jù) 。 (2) 寫入數(shù)據(jù) 。 (3) 關(guān)閉文件 。 添加數(shù)據(jù)所使用的方法如表 118所示 。 5. 從文件中讀取數(shù)據(jù) 讀取數(shù)據(jù)所使用的方法如表 119所示 。 第 11章 文件、驅(qū)動器和文件夾 表 118 添加數(shù)據(jù)所使用的方法 第 11章 文件、驅(qū)動器和文件夾 表 119 讀取數(shù)據(jù)所使用的方法 第 11章 文件、驅(qū)動器和文件夾 【 例 115】 使用 FSO模型 。 利用 TextStream對象的屬性和方法進(jìn)行文本文件的各種操作 ， 如圖 。 圖 文本編輯器 第 11章 文件、驅(qū)動器和文件夾 圖 用戶界面的設(shè)計 第 11章 文件、驅(qū)動器和文件夾 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面與設(shè)置對象屬性 ， 如圖 。 (2) 編寫程序代碼 。 首先在通用過程中聲明對象變量： Dim fso As New FileSystemObject, fil As TextStream 窗體的 Resize事件代碼為 Private Sub Form_Resize() With Text1 .Height = 第 11章 文件、驅(qū)動器和文件夾 .Width = End With Command1(4).Top = Command1(4).Height 50 End Sub 命令按鈕數(shù)組 Command1的 Click事件代碼為 Private Sub Command1_Click(Index As Integer) = 0 Select Case Index 第 11章 文件、驅(qū)動器和文件夾 Case 0 39。 新建 = = 未命名 Case 1 39。 顯示 “ 打開 ” 公共對話框 fname = If fname Then = 第 11章 文件、驅(qū)動器和文件夾 Set fil = (fname) b = b = = Left(b, 20220) End If = fname Case 2 If = 未命名 Or = Then 39。 顯示 “ 另存為 ” 公共對話框 第 11章 文件、驅(qū)動器和文件夾 fname = Else fname = End If If 未命名 And Then Set fil = (fname, True) = fname End If 第 11章 文件、驅(qū)動器和文件夾 Case 3 39。 顯示 “ 另存為 ” 公共對話框 fname = If fname Then Set fil = (fname, True) = fname End If 第 11章 文件、驅(qū)動器和文件夾 Case 4 Unload Me 39。 關(guān)閉 End Select End Sub 程序運(yùn)行結(jié)果如圖 。 第 11章 文件、驅(qū)動器和文件夾 傳統(tǒng)的文件 I/O語句和函數(shù) 數(shù)據(jù)文件的類型 計算機(jī)的數(shù)據(jù)文件按數(shù)據(jù)的存放方式 ， 分為以下 3種類型： (1) 順序型：用于連續(xù)存放的文本數(shù)據(jù)。 (2) 隨機(jī)型：用于有固定長度記錄結(jié)構(gòu)的文本數(shù)據(jù)或者二進(jìn)制數(shù)據(jù)。 (3) 二進(jìn)制型：以二進(jìn)制格式保存，能用來存儲任何所希望的數(shù)據(jù)。 第 11章 文件、驅(qū)動器和文件夾 在 VB中 ， 數(shù)據(jù)文件的處理操作一般按下面 3步進(jìn)行： (1) 打開 (或建立 )文件。 (2) 進(jìn)行讀、寫操作。 (3) 關(guān)閉文件。 第 11章 文件、驅(qū)動器和文件夾 訪問順序文件 1. 順序文件的打開 在對文件進(jìn)行操作之前 ， 首先要打開文件 。 當(dāng)按順序型訪問打開一個文件時 ， 需要使用 Open語句 ， 其語法為 Open〈 文件名 〉 For {Input | Output | Append} As〈 文件號 〉 [Len = buffersize] 第 11章 文件、驅(qū)動器和文件夾 2. 順序文件的讀取操作 要讀取文本文件的內(nèi)容 ， 應(yīng)以 Input方式打開該文件 。 然后使用 Line Input、 Input( )， 或者 Input語句將文件復(fù)制到內(nèi)存變量中： Line Input〈 文件號 〉 ,〈 變量名 〉 Input( Length,〈 文件號 〉 ) Input〈 文件號 〉 ,〈 變量名 1〉 [,〈 變量名 2〉 ， ...] 第 11章 文件、驅(qū)動器和文件夾 3. 順序文件的寫入操作 要將數(shù)據(jù)寫入文本文件 ， 應(yīng)以 Output或 Append方式打開該文件 。 然后使用 Print 或者 Write 語句將數(shù)據(jù)寫入文件中： Print 〈 文件號 〉 ,〈 數(shù)據(jù) 〉 [{ , | 。 }] Write 〈 文件號 〉 ,〈 數(shù)據(jù) 〉 第 11章 文件、驅(qū)動器和文件夾 4. 順序文件的關(guān)閉 打開一個文件后 ， 在進(jìn)行其他相關(guān)類型的操作前 ，必須先使用 Close語句關(guān)閉它 。 其語法為 Close〈 文件號 1〉 [,〈 文件號 2〉 ， ...] 【 例 116】 設(shè)計一個簡易的文本編輯器 ， 使其具有創(chuàng)建 、 編輯 、 保存普通文本文件的功能 ， 如圖 所示 。 第 11章 文件、驅(qū)動器和文件夾 圖 簡易文本編輯器 第 11章 文件、驅(qū)動器和文件夾 設(shè)計步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 。 選擇 “ 新建 ” 工程 ， 進(jìn)入窗體設(shè)計器 ， 在窗體上增加一個文本框 Text1， 一個公共對話框 CommonDialog1和 5個命令按鈕 Command1～ Command5， 如圖 。 設(shè)置窗體 、 文本框 、 公共對話框的屬性如下表所示 ， 命令按鈕及其他的屬性設(shè)置參見圖 。 對象屬性如表 1110所示 。 第 11章 文件、驅(qū)動器和文件夾 圖 建立用戶界面及設(shè)置對象屬性 第 11章 文件、驅(qū)動器和文件夾 表 1110 屬性