用vbscript實現從文本文件中刪除所有重復行的代碼
2020-06-26 18:09:13
供稿：網友
問：
您好，腳本專家！如何從文本文件中刪除所有重復行？
-- SW
答：
您好，SW。您知道，成為一名腳本專家便意味著開始永無止境地尋找給定問題的最終解決方案。（或者至少在我們的經理問為什么我們似乎從未真正完成什么時，我們是這么告訴他的：“老板，永無止境的尋找過程需要時間！”）這就是為什么我們很高興看到您的問題的原因。不久前 我們回答了一個關于從文本文件中刪除重復名字的類似問題。我們想到的解決方案十分簡單而且效果不錯；只是我們不確定那是最佳解決方案?，F在，很感謝您的問題，我們可以再次嘗試解決這一問題。至于此解決方案是否比我們之前提供的更好/更快/更方便，還是由您來決定吧。
首先，假定您有一個文本文件，其中每一行都表示一條單獨的記錄。這似乎不太可能，但也許您的文件類似如下：
This is one of the lines in the text file.
This is one of the lines in the text file.
This is another line in the text file.
This is one of the lines in the text file.
This is yet another line in the text file.
This is another line in the text file.
This is another line in the text file.
This is one of the lines in the text file.
您需要一個可以除去所有重復行并提供類似以下輸出的腳本：
This is one of the lines in the text file.
This is another line in the text file.
This is yet another line in the text file.
SW，您找對地方了：
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
strPathToTextFile = "C:/Scripts/"
strFile = "Test.txt"
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""
objRecordSet.Open "Select DISTINCT * FROM " & strFile, _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields.Item(0).Value
objRecordSet.MoveNext
Loop
我們發現此腳本有些有趣，因為我們使用“ActiveX 數據對象”(ADO) 并將此文本文件當作數據庫處理。我們不會花費過多的時間詳細說明如何將文本文件當作數據庫處理；如果您想了解有關于此的詳細信息，我們的腳本診所 專欄對此主題進行了深入闡述。現在，要說明的只是我們將使用文本文件 C:/Scripts/Test.txt，我們通過為變量 strPathToTextFile 和 strFile 賦予相應值來表示：
strPathToTextFile = "C:/Scripts/"
strFile = "Test.txt"
那么，這如何能讓我們除去重復行呢？是這樣的，有一種稱為 Select DISTINCT 的數據庫查詢；利用 Select DISTINCT 可以選擇表格中所有不同的（或唯一的）記錄。假設您有一個簡單的數據庫，其中有以下記錄：
Red
Red
Blue
Red
如果使用 Select DISTINCT 查詢，您將得到一個只包括唯一記錄的記錄集：
Red
Blue
毫無疑問，您會想：“哇！返回唯一記錄與刪除重復記錄簡直異曲同工。”我們承認確實如此 – 嗯，請等一下：您的想法絕對正確。我們的文本文件構建得就像一個數據庫表，文本文件中的每行都表示一條記錄中的一個字段。如果對此文本文件運行 Select DISTINCT 查詢，我們將只得到唯一的行。事實上，我們將得到如下所示的記錄集：
This is one of the lines in the text file.
This is another line in the text file.
This is yet another line in the text file.
這剛好就是我們希望返回的信息。您為我們指出了這一點，這很好！
檢索記錄集后，我們再使用以下代碼將唯一的行回顯到屏幕：
Do Until objRecordset.EOF
Wscript.Echo objRecordset.Fields.Item(0).Value
objRecordset.MoveNext
Loop
如果我們愿意，也可以使用 FileSystemObject 打開文本文件，然后僅用唯一的行替換現有內容；此種方法與從文本文件中刪除所有重復行效果相同。（如果我們能使用某種 Update 查詢執行此操作，效果會很好，但處理文本文件時，ADO 卻是只讀的。）
那么，這是從文本文件刪除重復項（無論是姓名還是整個行）的最終結論嗎？唉，誰知道：畢竟，永無止境的尋找過程需要時間?。▽嶋H上，我們發現這只需要大約 2 到 3 天。然后，我們便開始覺得無聊，又繼續做其他事情。）
