77084visualbasic程式設(shè)計-資料下載頁
2024-09-30 09:36本頁面
【導(dǎo)讀】國立臺灣大學(xué)電機工程研究所。第十二章檔案存取。DateLastModified最近被更改日期。AtEndOfLine判斷是否是文字行的最後。AtEndOfStream傳回是否在檔尾。Read讀取某數(shù)量的字元。WriteBlankLines寫入幾個空白行。Open路徑名(含檔名)For操作模式。[Len=單位記錄大小]
【正文】 cord Dim i As Integer = jlhuang = 24 程式還沒完 由 1開始數(shù) 預(yù)設(shè)值為 1 每寫一次加 1 24 寫入檔案 (隨機存取 ) = 1122 Print LenB(rec) Open c:\test For Random Access Write _ As 1 Len = LenB(rec) For i = 1 To 10 Put 1, , rec = + 1 = + 1 Next i Close 1 End Sub 25 讀取檔案 (隨機存取 ) Get []檔案代碼 ,[位置 ],變數(shù)名 ? Get 1, 10,MyAge Seek []檔案代碼 ,位置 ? Seek 1, 20 26 讀取檔案 (隨機存取 ) Private Sub form_click() Cls Dim rec As UserRecord Dim i As Integer Open c:\test For Random Access Read _ As 1 Len = LenB(rec) Do Get 1, , rec Print , , Loop Until EOF(1) Close 1 End Sub 若回傳 true， 表示到檔尾 27 寫入檔案 (循序存取 ) Print []檔案代碼 , [output list] Print 1, “Hello World” Print 1, “Hello”。 “World” 28 讀取檔案 (循序存取 ) Line Input []檔案代碼 , varname 以行為單位讀入資料 Do while Not EOF(1) Line Input 1, aline = amp。 aline loop 29 讀取檔案 (循序存取 ) Input (number, 檔案代碼 ) 以字元數(shù)為單位讀取資料 Dim x as String x=Input(1, 1)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1