使用 ADO 讀取所有數據均在一行上的文本文件問： 您好，腳本專家！我有一個固定寬度的文本文件，該文件包含名字（6 個字符）、姓氏（13 個字符）和部門（9 個字符），并且它們均在同一行上。我該如何使用 ADO 來讀取呢？ -- DW 答： 您好，DW。坦白地講，我們認為您不能使用 ADO（ActiveX 數據對象）讀取這樣的文件。ADO 是一種和文本文件進行交互的非常好的方法（有關詳細信息，請參閱文章有關文本文件的 ADO 更多知識（英文）），但是，確實，ADO 有些挑剔：它的每項設置都必須完全正確，否則就會拒絕工作。（不像腳本專家，即使所有事情都已準備就緒，他們還是會拒絕工作。）作為一種數據庫技術，ADO 需要一個“結構良好”（借用 XML 領域的一個術語）的數據庫；它無法直接利用您那樣的文件格式并從中產生數據庫。（在這種情況下，可以將您的巨行分成若干單個記錄。） 但是沒關系；畢竟，我們可以使用雖古老但優秀而可靠的 VBScript 來創建結構良好的數據庫。我們今天要做的就是向您展示如何快速而便捷地將您的巨大數據字符串分割成單個記錄。只需通過將這些單個記錄（即，文本文件中的單個記錄）回顯到屏幕上我們就可以達到目的。不過，您可以將這些記錄段寫到另一個文本文件然后使用 ADO 從其中讀取數據。我們只是幫您開個頭，剩下的就要靠您自己了。 首先，我們假定您已擁有一個類似于下面的文本文件，該文件的字段名稱和兩條記錄包含于同一行之上： First Last Dept Ken Meyer Finance Pilar Ackerman HR 我們希望最后的結果同下面的顯示更為相似： First Last Dept Ken Meyer Finance Pilar Ackerman HR 這可能嗎？當然可能：
復制代碼 代碼如下:
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 的常量并將其值設置為 1；我們將使用它打開要讀入的文本文件。 注意：您知道您的母親為何一直告訴您要帶上帽兜或者在穿過街道的時候朝兩邊看嗎？是的，我們腳本專家也一直告訴您在沒有指定要打開的文本文件的方式的情況下是無法將其打開的：是讀取、寫入還是添加。一次只能執行一項操作：無法同時以讀取和寫入方式打開文本文件。因此需要常量 ForReading。 噢，也戴上您的帽兜。外面很冷。 接下來我們創建 FileSystemObject 的實例并使用 OpenTextFile 方法打開文件 C:/Scripts/Test.txt。我們調用 ReadAll 方法以將此文件的全部內容讀取到變量 strContents 中，然后使用 Close 方法關閉文件。 之后的這行代碼很短并且有些古怪： i = False 我們立即要做的就是建立 Do 循環，該循環用 28 個字符的增量來讀取文件的內容（即變量 strContents 的值）。為什么是 28 個字符？因為，在每條記錄中，我們使用 6 個字符保存名字、13 個字符保存姓氏和 9 個字符保存部門。因此： 6 + 13 + 9 = 28 為了保證循環始終進行直到整個文件讀取結束，我們將變量 i 設為 False，然后執行循環直到 i 等于 True： Do Until i = True 我們發現，i 永遠不會等于 True，但是別著急：我們仍可以跳出此循環，稍后就會向您顯示這種神奇的功能。 在循環內部，我們首先使用 Len 函數來確定字符串 strContents 中字符的數量（對于我們的示例文件，再加上作為一條記錄的標題行，共 3 條記錄，每條 28 個字符，即總共 84 個字符）。然后是以下這一小段代碼： If intLength < 28 Then Exit Do End If 這里我們要做的就是檢查字符串長度是否少于 28 個字符。如果是，則我們一定已經到達了文件的末尾。因此，我們使用 Exit Do 命令退出循環。（這就是非常了不起的腳本專家設法逃離永無休止的 Do 循環魔掌的方式！) 若長度為 28 個字符或更多，則執行下面這行代碼： strLines = strLines & Left(strContents, 28) & vbCrLf 此處我們創建一個新字符串 strLines，它將文本文件的內容分成幾條單個記錄，每條記錄由 28 個字符及一個回車換行符 (vbCrLf) 組成。為此，我們只需將 strLine 的當前內容同字符串中的前 28 個字符（Left 函數執行的正是此操作）及 VBScript 的常量 vbCrLf 連接起來即可。第一次循環之后 strLines 結果如下： First Last Dept 明白其工作原理了嗎？ 在第一行（也就是我們的第一條記錄）被安全地放到變量 strLines 中之后，接著我們就要將該信息從 strContents 中刪除。這就是下面的代碼所要執行的操作： strContents = Right(strContents, intLength - 28) 這次我們要使用 Right 函數從字符串末端取出 x 個字符，也就是逆向執行。那么我們所說的 x 個字符到底是什么意思？要得到 x 的值，我們需取到 strContents 的長度 (84) 然后減去 28（單個記錄的長度）。得到的結果為 56 (84 - 28 = 56)，因此我們從字符串的末端開始向回數 56 個字符。這表示第一次循環之后我們會得到下面這樣的結果： Ken Meyer Finance Pilar Ackerman HR 注意：是的，有其他的方法可以達到同樣的目的，其中一些可能會節省一兩行代碼。不過，我們認為這種方法是最簡單的。 正如您所見，我們所做的全部工作就是刪除了第一條記錄?，F在準備返回循環，重復此過程。當然，這次 strContents 的長度為 56；因為我們剛剛去掉了 28 個字符。自然，這意味著我們要停止提取此數據并停止將其添加到變量 strLines 中： Ken Meyer Finance 我們繼續此過程直到刪除變量 strContents 中的所有字符。此時，我們只是回顯 strLines 的值： First Last Dept Ken Meyer Finance Pilar Ackerman HR 如果不是一個結構良好的數據庫，那我們也不知道結果會是什么樣子。 如果您希望能夠將數據保存到一個文本文件并可以使用 ADO 讀取此數據，就按我們講過的去做；或者也可以只使用 VBScript 的字符串處理功能來將每行分成若干單個記錄。我們將決定權留給了您。
