使用 ADO 讀取所有數(shù)據(jù)均在一行上的文本文件問(wèn)：
您好，腳本專(zhuān)家！我有一個(gè)固定寬度的文本文件，該文件包含名字（6 個(gè)字符）、姓氏（13 個(gè)字符）和部門(mén)（9 個(gè)字符），并且它們均在同一行上。我該如何使用 ADO 來(lái)讀取呢？
-- DW
答：
您好，DW。坦白地講，我們認(rèn)為您不能使用 ADO（ActiveX 數(shù)據(jù)對(duì)象）讀取這樣的文件。ADO 是一種和文本文件進(jìn)行交互的非常好的方法（有關(guān)詳細(xì)信息，請(qǐng)參閱文章有關(guān)文本文件的 ADO 更多知識(shí)（英文）），但是，確實(shí)，ADO 有些挑剔：它的每項(xiàng)設(shè)置都必須完全正確，否則就會(huì)拒絕工作。（不像腳本專(zhuān)家，即使所有事情都已準(zhǔn)備就緒，他們還是會(huì)拒絕工作。）作為一種數(shù)據(jù)庫(kù)技術(shù)，ADO 需要一個(gè)“結(jié)構(gòu)良好”（借用 XML 領(lǐng)域的一個(gè)術(shù)語(yǔ)）的數(shù)據(jù)庫(kù)；它無(wú)法直接利用您那樣的文件格式并從中產(chǎn)生數(shù)據(jù)庫(kù)。（在這種情況下，可以將您的巨行分成若干單個(gè)記錄。）
但是沒(méi)關(guān)系；畢竟，我們可以使用雖古老但優(yōu)秀而可靠的 VBScript 來(lái)創(chuàng)建結(jié)構(gòu)良好的數(shù)據(jù)庫(kù)。我們今天要做的就是向您展示如何快速而便捷地將您的巨大數(shù)據(jù)字符串分割成單個(gè)記錄。只需通過(guò)將這些單個(gè)記錄（即，文本文件中的單個(gè)記錄）回顯到屏幕上我們就可以達(dá)到目的。不過(guò)，您可以將這些記錄段寫(xiě)到另一個(gè)文本文件然后使用 ADO 從其中讀取數(shù)據(jù)。我們只是幫您開(kāi)個(gè)頭，剩下的就要靠您自己了。
首先，我們假定您已擁有一個(gè)類(lèi)似于下面的文本文件，該文件的字段名稱(chēng)和兩條記錄包含于同一行之上：
First Last         Dept     Ken   Meyer        Finance  Pilar Ackerman     HR
我們希望最后的結(jié)果同下面的顯示更為相似：
First Last         Dept     
Ken   Meyer        Finance  
Pilar Ackerman     HR
這可能嗎？當(dāng)然可能：

復(fù)制代碼 代碼如下:

Const ForReading = 1 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) 
strContents = objFile.ReadAll 
objFile.Close 
i = False 
Do Until i = True  
    intLength = Len(strContents) 
    If intLength < 28 Then 
        Exit Do 
    End If 
    strLines = strLines & Left(strContents, 28) & vbCrLf 
    strContents = Right(strContents, intLength - 28) 
Loop 
Wscript.Echo strLines 

首先定義名為 ForReading 的常量并將其值設(shè)置為 1；我們將使用它打開(kāi)要讀入的文本文件。 
注意：您知道您的母親為何一直告訴您要帶上帽兜或者在穿過(guò)街道的時(shí)候朝兩邊看嗎？是的，我們腳本專(zhuān)家也一直告訴您在沒(méi)有指定要打開(kāi)的文本文件的方式的情況下是無(wú)法將其打開(kāi)的：是讀取、寫(xiě)入還是添加。一次只能執(zhí)行一項(xiàng)操作：無(wú)法同時(shí)以讀取和寫(xiě)入方式打開(kāi)文本文件。因此需要常量 ForReading。
噢，也戴上您的帽兜。外面很冷。
接下來(lái)我們創(chuàng)建 FileSystemObject 的實(shí)例并使用 OpenTextFile 方法打開(kāi)文件 C:\Scripts\Test.txt。我們調(diào)用 ReadAll 方法以將此文件的全部?jī)?nèi)容讀取到變量 strContents 中，然后使用 Close 方法關(guān)閉文件。
之后的這行代碼很短并且有些古怪：
i = False
我們立即要做的就是建立 Do 循環(huán)，該循環(huán)用 28 個(gè)字符的增量來(lái)讀取文件的內(nèi)容（即變量 strContents 的值）。為什么是 28 個(gè)字符？因?yàn)椋诿織l記錄中，我們使用 6 個(gè)字符保存名字、13 個(gè)字符保存姓氏和 9 個(gè)字符保存部門(mén)。因此：
6 + 13 + 9 = 28
為了保證循環(huán)始終進(jìn)行直到整個(gè)文件讀取結(jié)束，我們將變量 i 設(shè)為 False，然后執(zhí)行循環(huán)直到 i 等于 True：
Do Until i = True
我們發(fā)現(xiàn)，i 永遠(yuǎn)不會(huì)等于 True，但是別著急：我們?nèi)钥梢蕴龃搜h(huán)，稍后就會(huì)向您顯示這種神奇的功能。
在循環(huán)內(nèi)部，我們首先使用 Len 函數(shù)來(lái)確定字符串 strContents 中字符的數(shù)量（對(duì)于我們的示例文件，再加上作為一條記錄的標(biāo)題行，共 3 條記錄，每條 28 個(gè)字符，即總共 84 個(gè)字符）。然后是以下這一小段代碼：
If intLength < 28 Then
    Exit Do
End If
這里我們要做的就是檢查字符串長(zhǎng)度是否少于 28 個(gè)字符。如果是，則我們一定已經(jīng)到達(dá)了文件的末尾。因此，我們使用 Exit Do 命令退出循環(huán)。（這就是非常了不起的腳本專(zhuān)家設(shè)法逃離永無(wú)休止的 Do 循環(huán)魔掌的方式！)
若長(zhǎng)度為 28 個(gè)字符或更多，則執(zhí)行下面這行代碼：
strLines = strLines & Left(strContents, 28) & vbCrLf
此處我們創(chuàng)建一個(gè)新字符串 strLines，它將文本文件的內(nèi)容分成幾條單個(gè)記錄，每條記錄由 28 個(gè)字符及一個(gè)回車(chē)換行符 (vbCrLf) 組成。為此，我們只需將 strLine 的當(dāng)前內(nèi)容同字符串中的前 28 個(gè)字符（Left 函數(shù)執(zhí)行的正是此操作）及 VBScript 的常量 vbCrLf 連接起來(lái)即可。第一次循環(huán)之后 strLines 結(jié)果如下：
First Last         Dept
明白其工作原理了嗎？ 
在第一行（也就是我們的第一條記錄）被安全地放到變量 strLines 中之后，接著我們就要將該信息從 strContents 中刪除。這就是下面的代碼所要執(zhí)行的操作：
strContents = Right(strContents, intLength - 28)
這次我們要使用 Right 函數(shù)從字符串末端取出 x 個(gè)字符，也就是逆向執(zhí)行。那么我們所說(shuō)的 x 個(gè)字符到底是什么意思？要得到 x 的值，我們需取到 strContents 的長(zhǎng)度 (84) 然后減去 28（單個(gè)記錄的長(zhǎng)度）。得到的結(jié)果為 56 (84 - 28 = 56)，因此我們從字符串的末端開(kāi)始向回?cái)?shù) 56 個(gè)字符。這表示第一次循環(huán)之后我們會(huì)得到下面這樣的結(jié)果：
Ken   Meyer        Finance  Pilar Ackerman     HR
注意：是的，有其他的方法可以達(dá)到同樣的目的，其中一些可能會(huì)節(jié)省一兩行代碼。不過(guò)，我們認(rèn)為這種方法是最簡(jiǎn)單的。
正如您所見(jiàn)，我們所做的全部工作就是刪除了第一條記錄?，F(xiàn)在準(zhǔn)備返回循環(huán)，重復(fù)此過(guò)程。當(dāng)然，這次 strContents 的長(zhǎng)度為 56；因?yàn)槲覀儎倓側(cè)サ袅?nbsp;28 個(gè)字符。自然，這意味著我們要停止提取此數(shù)據(jù)并停止將其添加到變量 strLines 中： 
Ken   Meyer        Finance
我們繼續(xù)此過(guò)程直到刪除變量 strContents 中的所有字符。此時(shí)，我們只是回顯 strLines 的值：
First Last         Dept     
Ken   Meyer        Finance  
Pilar Ackerman     HR
如果不是一個(gè)結(jié)構(gòu)良好的數(shù)據(jù)庫(kù)，那我們也不知道結(jié)果會(huì)是什么樣子。
如果您希望能夠?qū)?shù)據(jù)保存到一個(gè)文本文件并可以使用 ADO 讀取此數(shù)據(jù)，就按我們講過(guò)的去做；或者也可以只使用 VBScript 的字符串處理功能來(lái)將每行分成若干單個(gè)記錄。我們將決定權(quán)留給了您。