77084visualbasic程式設(shè)計(文件)
【正文】 d If readFile = True = False = True End Sub Private Sub Command2_Click() writeFile = = False = True = False End Sub 18 隨機存取 使用者自定型別 Private Type UserRecord Name As String *10 Age As Integer Id As Integer End Type Dim rec As UserRecord =“jlhuang” =24 =11223344 字串長度要固定 19 開啟檔案 Open 路徑名 (含檔名 ) For 操作模式 [Access 存取模式 ]As []檔案代號 [Len=單位記錄大小 ] Open “c:\test” For Input As 1 Len=10 存取模式 ? Read ? Write ? ReadWrite 20 開啟檔案 (cont?d) 操作模式 ? Append ? Binary ? Input—若檔案不在會產(chǎn)生錯誤 ? Output—若檔案存在則覆蓋之 ? Random 關(guān)閉檔案 ? Close 檔案代號 Len=1 循 序 操 作 21 開啟檔案 (cont?d) 檔案代號 ?已開啟檔案的ＩＤ 不能重複使用 FreeFile [range] Dim x as Integer x=FreeFile(0) ?1 x 255 x=FreeFile(1) ?256 x 511 22 開啟檔案 (cont?d) Close [filenumberlist] Close File1, File2, File3 Close ?關(guān)閉所有開啟中檔案 23 寫入檔案 (隨機存取 ) Put []檔案代碼 ,[位置 ],變數(shù)名 ? Put 1, 10,MyAge Private Type UserRecord
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1