【正文】 輯數(shù)組。 Selected(i)的值為 True表示第i+1項(xiàng)被選中。 List屬性：字符型數(shù)組，存放文件列表的項(xiàng)目。 Click、 DblClick事件 ： 例如，單擊輸出文件名。 Sub filFile_Click( ) MsgBox End Sub 例如，雙擊執(zhí)行可執(zhí)行程序 Sub filFile_DblClick( ) ChDir () ? 改變當(dāng)前目錄 RetVal = Shell(, 1) ? 執(zhí)行程序 End Sub 數(shù)據(jù)文件的結(jié)構(gòu) 數(shù)據(jù)文件由記錄組成，記錄由 若干個(gè)相關(guān)聯(lián)的字段 組成，字段由字符組成 記錄 1 數(shù)據(jù)文件 記錄 2 ………… 學(xué)號(hào) 姓名 951001 張三 … 學(xué)號(hào) 姓名 951002 李四 … 字段 二、 數(shù)據(jù)文件概念 (1)順序文件：即文本文件。文件中的記錄按順序一個(gè)接一個(gè)地排列。無(wú)法靈活地隨意存取它。只適用于有規(guī)律的、不經(jīng)常修改的數(shù)據(jù)。 (2)隨機(jī)文件：隨機(jī)文件的每一個(gè)記錄都有 固定的長(zhǎng)度 ，每一個(gè)記錄都有 記錄號(hào) ，這種文件的特點(diǎn)是允許用戶存取文件中任一個(gè)記錄?？梢酝瑫r(shí)進(jìn)行讀或?qū)懖僮鞔嫒牒妥x出速度較快，數(shù)據(jù)容易更新。 (3)二進(jìn)制文件：可理解為長(zhǎng)度為 1的特殊的隨機(jī)文件。 2 、 文件類型 順序訪問(wèn)模式：順序文件， 記錄可長(zhǎng)可短 隨機(jī)訪問(wèn)模式：隨機(jī)文件， 記錄的長(zhǎng)度相同 二進(jìn)制訪問(wèn)模式：二進(jìn)制文件（ 可認(rèn)為記錄長(zhǎng)度為 1） (1) 順序文件 按順序依次把記錄寫(xiě)入文件； 按順序依次把記錄讀出來(lái)。 記錄 1 記錄 2 ?? 記錄 N 文件結(jié)束標(biāo)志 文本文件：一行一條記錄，記錄可長(zhǎng)可短，以 “ 換行 ” 字符為分隔符號(hào)。 (2) 隨機(jī)文件 隨機(jī)文件可以直接訪問(wèn)文件中的任意一個(gè)記錄。 記錄長(zhǎng)度相同 根據(jù)記錄號(hào)訪問(wèn) 1 記錄 1 2 記錄 2 ?? N 記錄 N (3) 二進(jìn)制文件 直接把二進(jìn)制碼存放在文件中。 1. 打開(kāi)文件 Open “文件名 ” [For 模式 ] As []文件號(hào) [Len=記錄長(zhǎng)度 ] (1) 模式 OUTPUT：寫(xiě)操作 INPUT：讀操作 APPEND：追加到文件未尾 (2) 文件號(hào) 1～ 511，可以用 FreeFile函數(shù)獲得下一個(gè)可利用的文件號(hào)。 (3) 記錄長(zhǎng)度 小于或等于 32767的整數(shù)，它指定數(shù)據(jù)緩沖區(qū)的大小。 例如，打開(kāi) C:\VB\SCORE，供寫(xiě)入數(shù)據(jù)，指定文件號(hào)為 1。 OPEN C:\VB\SCORE FOR OUTPUT AS 1 三、 順序訪問(wèn)模式 打開(kāi)文件 讀出或?qū)懭? 關(guān)閉文件 2. 寫(xiě)入命令 Print 文件號(hào)， [輸出列表 ] [ , | 。 ] 保存文本框 假定文本框的名稱為 txtTest，文件名為 。 方法 1：把整個(gè)文本框的內(nèi)容一次性地寫(xiě)入文件。 Open For Output As 1 Print 1, Close 1 方法 2：把整個(gè)文本框的內(nèi)容一個(gè)字符一個(gè)字符地寫(xiě)入文件。 Open For Output As 1 For i=1 To len() Print 1,Mid(,i,1)。 Next i Close 1 Write 文件號(hào)， [輸出列表 ] 緊湊格式。 數(shù)據(jù)項(xiàng) 之間插入 “ ,”，并加上雙引號(hào)。 例如，命令： Write 1,One,Two,123 內(nèi)容： One,Two,123 3. 關(guān)閉文件 Close [[]文件號(hào) ][, []文件號(hào) ]... 例如， Close 1, 2, 3 Private Sub Form_Click() Dim Str As String, Anum As Integer 39。Open D:\ For Output As 1 Open amp。 \ For Output As 1 Str = I am a student Anum = 20218 39。Print 1, Str。 Anum Print 1, Str, Anum Write 1, Str, Anum Close 1 End Sub [實(shí)例 1] Print 和 Write語(yǔ)句輸出數(shù)據(jù)結(jié)果比較 4. 讀順序文件 LINE INPUT 文件號(hào) ,字符串變量 讀 一行 到變量中，主要用來(lái)讀取文本文件。 INPUT 文件號(hào) ,變量列表 把讀出的每個(gè) 數(shù)據(jù)項(xiàng) 分別存放到所對(duì)應(yīng)的變量。 INPUT$(讀取字符數(shù) ,文件號(hào) ) 隨意讀取字符 ? FileCopy 源文件路徑及名稱，目標(biāo)文件路徑及名稱 ：將源文件復(fù)制到目標(biāo)文件； ? Kill 文件路徑及名稱 ：刪除指定文件； ? Name 源文件路徑及名稱，目標(biāo)文件路徑及名稱 ：重新命名文件并將其移動(dòng)到目標(biāo)文件夾中； 5. 函數(shù) ?LOF(文件號(hào) )：返回文件的長(zhǎng)度 (總字節(jié)數(shù) )。 ?EOF(文件號(hào) )：返回讀寫(xiě)位置。 文件未尾時(shí)， EOF函數(shù)為 True，否則為 False。 ?Input(長(zhǎng)度， []文件號(hào)） :讀文件 如： s=Input(LOF(1),1) ?FileLen(文件路徑及名稱） ：返回指定文件的長(zhǎng)度 ?FreeFile():返回一個(gè)尚未使用的文件號(hào) ?FileDateTime(文件路徑及名稱） ：返回指定文件創(chuàng)建或最后修改的日期和時(shí)間。 讀文本文件到文本框 假定文本框名稱為 txtTest，文件名為 。 方法 1：一行一行讀 ＝ Open For Input As 1 Do While Not EOF(1) Line Input 1, InputData ＝ + InputData+vbCrLf Loop Close 1 方法 2：一次性讀 ＝ Open For Input As 1 = Input( LOF(1),1) Close 1 方法 3：一個(gè)個(gè)字符讀 Dim InputData as String*1 ＝ Open For Input As 1 Do While Not EOF(1) InputData= Input(1,1) ＝ + InputData Loop Close 1 [實(shí)例 23] 順序文件的讀寫(xiě) 隨機(jī)文件中每一個(gè) 記錄定長(zhǎng) ，并設(shè)置 記錄號(hào) ，記錄號(hào)從 1開(kāi)始。 存取記錄時(shí)，只要說(shuō)明所需記錄的編號(hào)，系統(tǒng)就以此算出記錄 所在位置，然后加以寫(xiě)入或讀出。 初步認(rèn)識(shí) 例 建立一個(gè)隨機(jī)文件，文件中包含 10個(gè)記錄，每個(gè)記錄由一個(gè)數(shù) (1至 10)的平方、立方和開(kāi)方根三個(gè)數(shù)值組成，以該數(shù)作為記錄號(hào) 四、 隨機(jī)文件 (1) 通過(guò) Type...End Type語(yǔ)句定義記錄類型，程序代碼如下： Private Type Numval Squre As Integer Cube As Long Sqroot As Single End Type (2)利用某一過(guò)程 (本例采用事件過(guò)程 Form_Load)來(lái)完成該隨機(jī)文件的存取操作，程序代碼如下： Dim nv As numval 39。定義一個(gè) numval類型的變量 nv 39。寫(xiě)入記錄程序段 Private Sub Form_Load() Open For Random As 1 Len = Len(nv) For i = 1 To 10 = i * i = i * i * i = Sqr(i) Put 1, i, nv Next i 39。讀出記錄程序段 Show For i = 2 To 10 Step 4 39。只讀出 3個(gè)記錄 Get 1, i, nv Print 第 。 i。 號(hào)記錄 :, , , Next i Close 1 End Sub 運(yùn)行結(jié)果： 第 2號(hào)記錄 4 8 第 6號(hào)記錄 36 216 第 10號(hào)記錄 100 1000 進(jìn)行隨機(jī)文件存取操作一般步驟： (1) 在打開(kāi)文件進(jìn)行隨機(jī)訪問(wèn)之前，使用 Type… End Type語(yǔ)句定義一個(gè)記錄類型 (如 Numval)，該類型包括多個(gè)數(shù)據(jù)項(xiàng)，并與文件中記錄應(yīng)包括的域一致。 當(dāng)通過(guò) Dim定義一個(gè)變量 (如 nv)為一個(gè)記錄類型 Numval時(shí)，該變量也就包含該類型的多個(gè)數(shù)據(jù)項(xiàng)，以后可通過(guò) 、 、 引用 (2) 指定 Random類型 打開(kāi)文件，記錄定長(zhǎng)，打開(kāi)文件后，就可以存或取任 一個(gè)記錄 (3)分別通過(guò) Get和 Put語(yǔ)句 ，并指定記錄號(hào)進(jìn)行讀一個(gè)記錄或存一個(gè)記錄 （ 4）關(guān)閉隨機(jī)文件 一定要建立好記錄與記錄號(hào)之間的關(guān)系 1. 讀語(yǔ)句 格式： Get 文件號(hào)［，記錄號(hào)］，變量 功能：從一個(gè)隨機(jī)文件中讀出指定記錄到一個(gè)變量 2. 寫(xiě)語(yǔ)句 格式： Put 文件號(hào)［，記錄號(hào)］，變量 功能：把變量的值寫(xiě)入隨機(jī)文件的記錄中。 默認(rèn)情況下，記錄號(hào)編號(hào)為上一次使用的記錄號(hào)加 1 存取操作 [實(shí)例 4] 隨機(jī)文件的讀寫(xiě) 可以在應(yīng)用程序中很方便地對(duì)文件和文件夾進(jìn)行操作 (1)建立文件夾語(yǔ)句 (MrDir)： MkDir ［路徑］文件夾名 示例： MkDir D:\VB\Temp (2)改變當(dāng)前缺省文件夾語(yǔ)句 (ChDir)： ChDir 路徑 示例： ChDir D:\VB\Dat (3)刪除文件夾語(yǔ)句 (RmDir)： RmDir ［路徑］文件夾名 示例： RmDir D:\VB\Temp (4)刪除文件語(yǔ)句 (Kill)： Kill ［路徑］文件名 示例： Kill D:\VB\ Kill D:\VB\dat\*.* 五、 文件基本操作 (5)拷貝文件語(yǔ)句 (FileCopy)： FileCopy [路徑 1] 源文件 [, [路徑 2] 目標(biāo)文件 示例：FileCopy C:\,D:\Temp\ (6)文件的改名和移動(dòng)： Name 原名 As 新名 改名示例： Name C:\ As C:\ 移動(dòng)示例： Name C:\ As C:\Tmp\ 在 “ 我的文檔 ” (C:＼ My Documents)文件夾下創(chuàng)建一個(gè)新文件夾 “ mydir”，然后復(fù)制文件 “ C:＼ My Documents＼”到新文件夾下，復(fù)制生成的文件名稱由用戶指定 . 例 文件操作示例 (7)調(diào)用應(yīng)用程序 格式： Shell(命令字符串 [,窗口類型 ]) 功能：調(diào)用指定應(yīng)用程序 示例： x = Shell(C:\Windows\,1) 執(zhí)行 “ C:\Windows”文件夾下的應(yīng)用程序 , 并顯示該程序窗口 五、綜