vb語言程序設(shè)計-vb第8章電子講稿-預(yù)覽頁
【正文】 先用 Input方式打開文件，然后采用 Input或 Line Input語句從文件中讀出數(shù)據(jù)。如果要重新從文件的開頭讀數(shù)據(jù)，則先關(guān)閉文件后打開 順序文件的讀出操作 程序代碼如下： Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = “ABCD Write 1, a, b$ 39。 Private Sub Form_Load() Show k = 0 Open For Input As 1 Do While Not EOF(1) 39。 b$ 39。 存取記錄時，只要說明所需記錄的編號，系統(tǒng)就以此算出記錄所在位置，然后加以寫入或讀出 初步認(rèn)識 例 建立一個隨機文件，文件中包含 10個記錄，每個記錄由一個數(shù) (1至 10)的平方、立方和開方根三個數(shù)值組成， 隨機文件 (1) 通過 Type...End Type語句定義記錄類型，程序代碼如下： Private Type Numval Squre As Integer Cube As Long Sqroot As Single End Type (2)利用某一過程 (本例采用事件過程 Form_Load)來完成該隨機文件的存取操作，程序代碼如下： Dim nv As numval 39。只讀出 3個記錄 Get 1, i, nv Print 第 。采用職工號 (1) 在標(biāo)準(zhǔn)模塊 Module1中用 Type語句定義一個職工工資記錄類型 Type Salary Name As String*8 ?定長字符串類型 Salary As Long End Type 不必把職工號作為記錄的一個數(shù)據(jù)項存入文件 (2)利用事件過程 Form_Load來進行文件處理 例 建立職工工資隨機文件 Private Sub Form_Load() Dim sal As salary Dim no As String * 3, reo As Integer Open “ For Random As 1 Len = Len(sal) For i = 1 To 5 s$ = 輸入第 + Str(i) + 個職工的 no = InputBox(s$ + 編號 ) = InputBox(s$ + 姓名 ) = Val(InputBox(s$ + 工資 )) reo = Val(no) 39。檢查編號的通用過程 Function Cheno(no As String) As Boolean reo = Val(no) If reo 0 Or reo 999 Then MsgBox 輸入的職工號超出范圍 , 0, 檢查編號 Cheno = True Else Cheno = False End If End Function ② 利用事件過程 Form_Load()來打開文件和顯示第一個記錄 Private Sub Form_Load() Open For Random As 1 Len = Len(sal) Get 1, 1, sal = Format(1, 000) = = End Sub ③ 編寫“查詢”按鈕的 Click事件過程 Private Sub Command1_Click() If Cheno() Then Exit Sub If reo LOF(1) / Len(sal) Then MsgBox 無此記錄 Exit Sub End If Get 1, reo, sal = = Str() 39?？梢詫崿F(xiàn)文件夾的創(chuàng)建、更名、移動和刪除等操作，能夠檢測文件夾是否存在，可以創(chuàng)建文本文件，還可以獲得驅(qū)動器、文件夾及文件的許多信息 但不支持二進制文件和隨機文件的創(chuàng)建和操作 將逐漸淘汰傳統(tǒng)的文件訪問機制 (即用 Open等 I/O語句及函數(shù)來實現(xiàn)對文件進行操作 ) 文件系統(tǒng)對象 (FSO)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1