VB 讀寫文件
VB讀寫文件要用到以下語句:1、Open語句打開文件。
2、讀文件使用Line Input、Input #,(以上為文本方式)和Get(以上為二進制方式)。
3、寫文件使用Print #、Write(以上為文本方式)和Put(以上為二進制方式)。
4、Close語句關閉文件
5、二進制方式下移動文件位置使用Seek語句。
所有這些語句在VB的幫助中都有詳細說明和例子。
文本文件的示例:
Open "TESTFILE" For Output As #1 ' 打開輸出文件。
Print #1, "This is a test" ' 將文本數據寫入文件。
Print #1, ' 將空白行寫入文件。
Print #1, "Zone 1"; Tab ; "Zone 2" ' 數據寫入兩個區(print zones)。
Print #1, "Hello" ; " " ; "World" ' 以空格隔開兩個字符串。
Print #1, Spc(5) ; "5 leading spaces " ' 在字符串之前寫入五個空格。
Print #1, Tab(10) ; "Hello" ' 將數據寫在第十列。
' 賦值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 會根據系統的地區設置自動轉換格式。
' 日期將以標準的短式日期的格式顯示。
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' 關閉文件。
讀文件示例
使用 Line Input # 語句從順序文件中讀入一行數據,并將該行數據賦予一個變量。本示例假設 TESTFILE 文件內含數行文本數據。
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打開文件。
Do While Not EOF(1) ' 循環至文件尾。
Line Input #1, TextLine ' 讀入一行數據并將其賦予某變量。
Debug.Print TextLine ' 在調試窗口中顯示數據。
Loop
Close #1 ' 關閉文件。
你也可以在我們的“磁盤、文件和目錄”欄目中找到許多這方面的問題和例子。
posted on 2005-12-08 11:36 MingIsMe 閱讀(1048) 評論(0) 編輯 收藏 所屬分類: 05 微軟編程