全國計(jì)算機(jī)考試ppt課件-資料下載頁
2025-05-06 04:43本頁面
【正文】 Loop = wholetxt Close 1 End Sub 21 ? INPUT$(讀取字符數(shù) ,文件號(hào) ) 隨意讀取字符 例 5：編寫一個(gè)程序，用 INPUT$函數(shù)從文件中一次讀出一個(gè)數(shù)據(jù)并在窗體上顯示出來，直到所有的數(shù)據(jù)都被讀出為止。 private Sub Form_Click( ) Dim OneChar Open “”For Input As 1 Do While Not EOF(1) OneChar = Input$(1 , 1) Print OneChar。 Loop Close 1 End Sub 22 ?讀文本文件到文本框 假定文本框名稱為 Text1，文件名為。 方法 1： 一行一行讀 ＝ Open For Input As 1 Do While Not EOF(1) Line Input 1, InputData ＝ + InputData+vbCrLf Loop Close 1 23 方法 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 24 二、隨機(jī)文件 1. 打開 Open 文件名 For Random As 文件號(hào) [Len=記錄長度 ] 2. 寫操作 Put []文件號(hào)， [記錄號(hào) ]，變量名 將一個(gè)記錄變量的內(nèi)容寫到指定的記錄位置處。 忽略記錄號(hào)，則表示在當(dāng)前記錄后的位置插入一條記錄。 3. 讀操作 Get []文件號(hào)， [記錄號(hào) ]，變量名 忽略記錄號(hào)，則讀出當(dāng)前記錄后的那一條記錄 。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1