vb 讀取文本)

1、2009-03-25 17:11VB 讀寫文件要用到以下語句： 1、Open 語句打開文件。 2、讀文件使用 Line Input、Input #，（以上為文本方式）和 Get（以上為二進 制方式）。 3、 寫文件使用 Print #、 Write（以上為文本方式）和 Put（以上為二進制方式）。4、Close 語句關閉文件 5、二進制方式下移動文件位置使用 Seek 語句。 所有這些語句在 VB 的幫助中都有詳細說明和例子。

2、文本文件的示例： Open “TESTFILE“ For Output As #1 ' 打開輸出文件。 Print #1, “This is a test“ ' 將文本數(shù)據(jù)寫入文件。要添加數(shù)據(jù),就用順序輸入吧!把各個數(shù)據(jù)連接起來輸入到文本里,中間別忘了加分隔符Print #1, ' 將空白行寫入文件。 Print #1, “Zone 1“； Tab ； “Zone 2“ ' 數(shù)據(jù)寫入兩個區(qū)（print

3、 zones）。Print #1, “Hello“ ； “ “ ； “World“ ' 以空格隔開兩個字符串。 Print #1, Spc(5) ； “5 leading spaces “ ' 在字符串之前寫入五個空格。 Print #1, Tab(10) ； “Hello“ ' 將數(shù)據(jù)寫在第十列。 ' 賦值 Boolean、Date、Null 及 Error 等。 Dim MyBool, MyDate

4、, MyNull, MyError MyBool = False : MyDate = #February 12, 1969# : MyNull = Null MyError = CVErr(32767) ' True、False、Null 及 Error 會根據(jù)系統(tǒng)的地區(qū)設置自動轉換格式。 ' 日期將以標準的短式日期的格式顯示。 Print #1, MyBool ； “ is a Boolean value“ Pri

5、nt #1, MyDate ； “ is a date“ Print #1, MyNull ； “ is a null value“ Print #1, MyError ； “ is an error value“ Close #1 ' 關閉文件。 讀文件示例 使用 Line Input # 語句從順序文件中讀入一行數(shù)據(jù)，并將該行數(shù)據(jù)賦予一個 變量。本示例假設 TESTFILE 文件內含數(shù)行文本數(shù)據(jù)。 Dim TextL

6、ine Open “TESTFILE“ For Input As #1 ' 打開文件。 Do While Not EOF(1) ' 循環(huán)至文件尾。 Line Input #1, TextLine ' 讀入一行數(shù)據(jù)并將其賦予某變量。 Debug.Print TextLine ' 在調試窗口中顯示數(shù)據(jù)。 Loop/+++++++++++++++++++++++++++++++++++++++++++++

7、+++++++/End SubPrivate Sub Command1_Click() ' 點擊 Command1 按鈕控件后發(fā)生的事件， Click n. 點擊Open “F:\aa.txt“ For Output As #1' Open: 打開' “F:\aa.txt“ F 盤下的名為 aa 的文本格式文件' For 這里是進行的意思' Output /'autput/ n. 輸出。F

8、or Output = 進行輸出' As 作為。 #1: VB 6 中用于 I/O (Input/Output,輸入輸出) 的文件號，其他的還有 #2 #3……'上一條語句的意思是: 打開 F 盤下的名為 aa 的文本格式文件進行寫入工作，并將這次寫入的代號定為 #1Write #1, “BBS“' 向文件寫入 “BBS“Close #1' 關閉該寫入通道End SubWrite #1, “A“ &