vb 讀取文本)

1、2009-03-25 17:11VB 讀寫(xiě)文件要用到以下語(yǔ)句： 1、Open 語(yǔ)句打開(kāi)文件。 2、讀文件使用 Line Input、Input #，（以上為文本方式）和 Get（以上為二進(jìn) 制方式）。 3、 寫(xiě)文件使用 Print #、 Write（以上為文本方式）和 Put（以上為二進(jìn)制方式）。4、Close 語(yǔ)句關(guān)閉文件 5、二進(jìn)制方式下移動(dòng)文件位置使用 Seek 語(yǔ)句。 所有這些語(yǔ)句在 VB 的幫助中都有詳細(xì)說(shuō)明和例子。

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

3、 zones）。Print #1, “Hello“ ； “ “ ； “World“ ' 以空格隔開(kāi)兩個(gè)字符串。 Print #1, Spc(5) ； “5 leading spaces “ ' 在字符串之前寫(xiě)入五個(gè)空格。 Print #1, Tab(10) ； “Hello“ ' 將數(shù)據(jù)寫(xiě)在第十列。 ' 賦值 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 會(huì)根據(jù)系統(tǒng)的地區(qū)設(shè)置自動(dòng)轉(zhuǎn)換格式。 ' 日期將以標(biāo)準(zhǔn)的短式日期的格式顯示。 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 ' 關(guān)閉文件。 讀文件示例 使用 Line Input # 語(yǔ)句從順序文件中讀入一行數(shù)據(jù)，并將該行數(shù)據(jù)賦予一個(gè) 變量。本示例假設(shè) TESTFILE 文件內(nèi)含數(shù)行文本數(shù)據(jù)。 Dim TextL

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

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

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