程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 如何訪問文本文件(3)----用MicrosoftJet訪問桌面數據庫(五)

如何訪問文本文件(3)----用MicrosoftJet訪問桌面數據庫(五)

編輯：VB綜合教程

三、程序舉例

例：用MicrosonJet打開一個文本文件，並輸出該文件的內容。假定有一個文本文件，名為txttest.txt，存放在d:dbtest目錄下，內容如下：

a，b,C，d

”采蓮詞”，”蘭溪掉歌”，”詠繡障”，”山中”

朝出沙頭日正紅，涼月如眉掛柳灣，日暮堂前花芯橋，荊溪白石出

晚來雲起半江中,越中山色鏡中看，爭拈小筆上床描，天寒紅葉稀

賴逢鄰女曾相識，蘭溪三日桃花雨，繡成安向春園裡，山路元無雨

並著蓮舟不畏風，半夜鯉魚來上灘，引得黃營下柳條，空翠濕人衣

該文件包括4首古詩，第一行的a，b，c，d是字段名。為了用MicrosoftJet打開該文件並顯示其內容，可按如下步驟操作。首先，建立方案描述信息文件。內容如下：

[txttest．txt]

ColNameHeader＝True

Format＝FixedLength

MaxSCanRows＝0

CharacterSet＝OEM

Col1＝ColUmnnameCharWidth24

Col2＝ColUmnname2CharWidth24

Col3＝ColUmnname7CharWidth24

Col4＝ColUmnname8CharWidth24

將文件存放在d:dbtest目錄下，名為txttest.ini。4個字段均為字符(Char)型，其長度為24，可以使顯示的各字段之間留有空隙。其次，編寫代碼。在窗體上畫一個命令按鈕，然後編寫如下事件過程：

PrivateSubCommand1_Click()

DimabsTextAsDatabase

DimrstAwardsAsRecordset

DimtdfSalesAsTableDef

”打開外部文本數據文件

Setdbstext＝OpenDatabase_

("d:dbtest",False,False,"TEXT;")

FontSize＝12

Print：Print

'從Awards表中建立記錄集

SetrstAwards＝dbstext．OpenRecordset("txttest")

DOUntilrstAwards.EOF

PrintrstAwards.a;

PrintTab(18)；rstAwards．b；

printTab(36)；rstAwards．C；

PrintTab(54)；rstAwards．d

rstAwards．MoveNext

Loop

EndSub

最後，運行程序，單擊命令按鈕，即可在窗體上顯示文本文件的內容。

上面的例子分4個字段顯示文本文件內容。在實際應用中，要打開的文本文件往往是由一段或幾段文字組成。為了打開並顯示這樣的文本文件，可以把整個文件看成是一個字段，在方案描述信息文件中把MaxScanRows選項設置為0。例如，假定有一個文本文件，名為bLtl．txt，存放在dz＼dbtest目錄下，其內容為：

a
　　滾滾長江東逝水，浪花淘盡英雄。是非成敗轉頭空。青山依舊在，幾度夕陽紅。白發漁憔江港上，慣看秋月春風。一壺濁酒喜相逢。古今多少事，都付笑談中。

文件中的a是字段名，即整個文件分為一個字段。為了用MicrosoftJet打開並顯示上述文本文件的內容，可編寫方案信息描述文件如下：

[txtl．txt]

ColNameHeaderzTme

MaXSCanRows＝0

CharacterSet＝OEM

Col1＝USemameText

方案描述信息文件名為txtl*ini，存放在d：＼dbtest目錄下。在窗體上畫一個文本框和一個命令按鈕，把文本框的MultiLine屬性設置True，然後編寫如下的事件過程：

PrivateSubCommand1_CliCk()

DimabsTextAsDatabase

DimrstAwardsAsReCordset

DimtdfSalesAsTableDef