二）寫文件
1、 順序文件
寫順序文件我們可以用Write # 和Print #語句向一個已經打開的文件中寫入數據.
下面是他們的格式和說明:
Print # 的語法格式:
Print # 文件號,變量列表
例如,將文本框中的文本寫到文件中,代碼如下:
Open "file.txt" For Output As #filenum
Input #filenum, text1.text
Write # 語句的語法格式:
Write # 文件號,變量列表
說明:用Write # 語句寫入的信息便于以后用Input #語句來讀取數據,因為Write #語句自動將寫入到文件中的信息用逗號分開,并為字符串數據加上雙引號.例如:
Open "student.txt" For Output As #filenum
Write #filenum, "張三", "初一年級", 14
Write #filenum, "李四", "職業高中", 18
2、 隨機文件
向隨機文件中寫入數據,使用Put�。ＵZ句.語法格式如下:
Put [#] FileNum ,[RecNum],UserType
說明:
(1) FileNum 是要打開的文件號;RecNum是要寫入的記錄號,若省略,則再上一次用Get 和Put語句所讀寫過的記錄的后一條記錄中寫入,如果沒有執行過Get 和Put語句,就從第一條記錄開始
(2)UserType 是包含要寫入數據的用戶自定義的數據類型變量.例如:我們向前面的student.txt文件中的第5個記錄寫入數據,可用這些語句:
stud.No = 0301
stud.Name = “王武”
stud.Age =20
Put #1 ,5,stud
如果要插入的數據不只一兩條的話,首先要確定文件和每條記錄的長度,這樣就可以計算出文件中究竟有多少條記錄.我們可以用Lof()函數返回文件的長度,Len()函數返回每個記錄的長度,計算文件中的記錄個數可以用文件的長度除以給個記錄的長度.示例如下:
Nextrec= (Lof(1)\Len(UserType))+1
Put #1,Nextrec,UserType
3、二進制文件
下面是以二進制方式寫入文件的語句格式及其說明:
格式:
Put [#]fileNumber ,[Pos], Var
功能: 用二進制方式,從文件的中指定的位置開始寫入,所給變量長度的數據
說明:
(1)FileNumber是以二進制方式打開的文件號.
(2)Pos用來指定寫操作發生時的字節位置,若省略,則使用當前文件指針位置.
(3)Var是用來存放寫入的數據的變量.該語句會自動根據var變量包含的字節長度寫入文件,如果Var是一個可變長度的字符串變量,則傳送的字節數等于Var中目前的字節數.
使用方法可參考二進制文件的讀操作.
文章來源于領測軟件測試網 http://www.kjueaiud.com/
