【正文】 (5) 可以按工作證號查找 ， 并顯示找到的記錄 。 (3) 可以按記錄瀏覽所有職工的情況 。其中每個(gè)記錄由工作證號 、 姓名 、 性別 、 工資 、 工作日期組成 ， 可以向此文件添加新記錄 。 從 ， 在列表框中顯示獲獎(jiǎng)學(xué)金學(xué)生的各科成績 。 從 ， 將其中獲獎(jiǎng)學(xué)金的學(xué)生數(shù)據(jù)存入一個(gè)新文件 ()中 。 第 11章 文件、驅(qū)動(dòng)器和文件夾 從 ， 將其中需要補(bǔ)考的學(xué)生數(shù)據(jù)存入一個(gè)新文件 ()中 。 在題 ， 使得當(dāng)目錄不存在時(shí)可以創(chuàng)建一個(gè)新的目錄 。 第 11章 文件、驅(qū)動(dòng)器和文件夾 創(chuàng)建簡單的文本編輯器 ， 其功能要求如下： (1) 可以通過 “ 文件系統(tǒng)控件 ” 選擇文件的路徑 ，也可以輸入文件的路徑 。在窗體上創(chuàng)建 4個(gè)命令按鈕 (“新建 ” 、 “ 打開 ” 、 “ 保存 ” 、 “ 退出 ” )、一個(gè)公共對話框和一個(gè)文本框。 第 11章 文件、驅(qū)動(dòng)器和文件夾 通過鍵盤輸入數(shù)據(jù)，將包括學(xué)號、姓名、性別、數(shù)學(xué)、英語、電子等學(xué)生成績數(shù)據(jù)輸入到一個(gè)順序文件中 ()。 (2) 編寫事件代碼。 第 11章 文件、驅(qū)動(dòng)器和文件夾 【 例 118】 編寫程序，建立一個(gè)二進(jìn)制文件，然后用 Seek函數(shù)返回各項(xiàng)數(shù)據(jù)的位置。 其格式為 Get 〈 文件號 〉 ,〈 字節(jié)數(shù) 〉 ,〈 變量名 〉 Put 〈 文件號 〉 ,〈 字節(jié)數(shù) 〉 ,〈 變量名 〉 第 11章 文件、驅(qū)動(dòng)器和文件夾 3. 關(guān)閉二進(jìn)制文件 為防止數(shù)據(jù)信息丟失 ， 在使用完二進(jìn)制文件后要立刻關(guān)閉它們 。 寫文件操作是在已打開的二進(jìn)制文件的指定位置寫入字節(jié) 。 打開隨機(jī)數(shù)據(jù)文件 lastrec = LOF(2) / Len(da) For n = 1 To lastrec 第 11章 文件、驅(qū)動(dòng)器和文件夾 If n reum Then Get 2, n, da Put 1, , da Else Get 2, n, da With da Text1(0).Text = .xh Text1(1).Text = .xm Text1(2).Text = .xb Text1(3).Text = .sx Text1(4).Text = .yw 第 11章 文件、驅(qū)動(dòng)器和文件夾 Text1(5).Text = .wy End With End If Next Close 1 Close 2 Kill Name As Call Form_Load Text1(0).SetFocus End Sub 第 11章 文件、驅(qū)動(dòng)器和文件夾 編寫 “ 結(jié)束 ” 命令按鈕 Command4的 Click事件代碼： Private Sub Command4_Click() Unload Me End Sub 編寫列表框 List1的 Click事件代碼： Private Sub List1_Click() If 1 Then = True Else 第 11章 文件、驅(qū)動(dòng)器和文件夾 = False End If End Sub 程序運(yùn)行結(jié)果如圖 。 打開隨機(jī)數(shù)據(jù)文件 lastrec = LOF(1) / Len(da) Put 1, lastrec + 1, da Close 1 Call Form_Load Text1(0).SetFocus End Sub 第 11章 文件、驅(qū)動(dòng)器和文件夾 編寫 “ 刪除 ” 命令按鈕 Command3的 Click事件代碼： Private Sub Command3_Click() Dim lastrec As Integer reum = + 1 Open For Random As 1 Len = Len(da) 39。 Str(sx) End With 第 11章 文件、驅(qū)動(dòng)器和文件夾 msg Next Close 1 39。 Str(wy) amp。 Str(yw) amp。 xb amp。 打開隨機(jī)文件 lastrec = LOF(1) / Len(da) For n = 1 To lastrec Get 1, n, da 第 11章 文件、驅(qū)動(dòng)器和文件夾 With da xh = Format(.xh, ) xm = Format(RTrim(.xm), ) xb = Format(RTrim(.xb), ) sx = Format(.sx, ) yw = Format(.yw, ) wy = Format(.wy, ) msg = xh amp。 (2) 編寫事件代碼 。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對象屬性 。 隨機(jī)文件對于存儲(chǔ)結(jié)構(gòu)一定的數(shù)據(jù)比較方便 。 (3) 關(guān)閉原文件并用 Kill語句刪除它 。 第 11章 文件、驅(qū)動(dòng)器和文件夾 要清除隨機(jī)訪問文件中刪除的記錄 ， 請按照以下步驟執(zhí)行： (1) 創(chuàng)建一個(gè)新文件 。 (4) 刪除記錄。 (1) 把記錄讀入變量 ， 使用 Get 語句： Get 〈 文件號 〉 ,〈 記錄號 〉 ,〈 變量名 〉 (2) 使用 Put 語句可以把數(shù)據(jù)寫入或替換隨機(jī)文件中的記錄： Put 〈 文件號 〉 ,〈 記錄號 〉 ,〈 變量名 〉 第 11章 文件、驅(qū)動(dòng)器和文件夾 (3) 添加記錄 ， 應(yīng)使用前述代碼段中所示的 Put語句 。 隨機(jī)文件的打開仍用Open語句 ， 但其語法不同： Open〈 文件名 〉 [For Random] As〈 文件號 〉 Len =〈 記錄長度 〉 第 11章 文件、驅(qū)動(dòng)器和文件夾 2. 隨機(jī)文件的讀寫操作 隨機(jī)文件與順序文件的讀寫操作類似，但通常把需要讀寫的記錄中的各字段放在一個(gè)記錄類型中，同時(shí)應(yīng)指定每個(gè)記錄的長度。 單擊 “ 保存 ” 按鈕時(shí) ， 將打開 “ 保存 ” 對話框 ， 可以對文本內(nèi)容進(jìn)行保存 ， 如圖 。 關(guān)閉文件 End If 第 11章 文件、驅(qū)動(dòng)器和文件夾 End Sub “關(guān)閉 ” 命令按鈕 Command5的 Click事件代碼為 Private Sub Command5_Click() = Unload Me End Sub 第 11章 文件、驅(qū)動(dòng)器和文件夾 運(yùn)行程序 ， 單擊不同的命名按鈕 ， 可以進(jìn)行不同的文本編輯操作 。 以 Output方式打開文件 Print 1, 39。 關(guān)閉文件 End If End Sub “另存 ” 命令按鈕 Command4的 Click事件代碼為 第 11章 文件、驅(qū)動(dòng)器和文件夾 Private Sub Command4_Click() 39。 以 Output方式打開文件 Print 1, 39。 關(guān)閉文件 = b End If = fname End Sub 第 11章 文件、驅(qū)動(dòng)器和文件夾 “保存 ” 命令按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() If = 未命名 Or = Then 39。 Chr(13) amp。 讀數(shù)據(jù) b = b amp。 打開文件 b = 第 11章 文件、驅(qū)動(dòng)器和文件夾 Do Until EOF(1) 39。 “ 新建 ” 命令按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() = = 未命名 End Sub “打開 ” 命令按鈕 Command2的 Click事件代碼為 第 11章 文件、驅(qū)動(dòng)器和文件夾 Private Sub Command2_Click() 39。 對象屬性如表 1110所示 。 選擇 “ 新建 ” 工程 ， 進(jìn)入窗體設(shè)計(jì)器 ， 在窗體上增加一個(gè)文本框 Text1， 一個(gè)公共對話框 CommonDialog1和 5個(gè)命令按鈕 Command1～