Vbscript 使用vbs选择不带重复项的列

如果有人能使用vbs脚本帮助我，我将不胜感激。 我有一个包含4GB数据的文本文件（在示例数据下面——最后是），我只需要从我附加的文本文件中取出这三列数据

"20150901162037","20150901162037","LDAP_Prod/xyrep, tett"

没有重复数据，因为我有很多类似的ldap ID。 所以我只需要采取与唯一的ID与三列，请你能帮助我如何实现使用vbs脚本。 最后，我需要的是，我的输出将按照以下方式进行，而不会出现任何问题：

"20150901162037","20150901162037","LDAP_Prod/xyrep, tett"
"20150901162037","20150901162037","LDAP_Prod/ttin_tess"
.
…

我的样本数据如下：

"100aEB","20150901162037","20150901162037","LDAP_Prod/xyrep, tett","N","11937.91666666667","0","Test_Plan","360610","BAU","Version1","Budget","LDDRR","31029","21240","36542_31029","2016","Jan","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ xyrep, tett ","N","11937.91666666667","0","SS_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Feb","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ttin_tess","N","11937.91666666667","0","LLL_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Aug","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ xyrep, tett ","N","11937.91666666667","0","SS_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Feb","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ttin_tess","N","11937.91666666667","0","LLL_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Aug","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ttin_tess","N","11937.91666666667","0","LLL_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Aug","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ttenetess","N","11937.91666666667","0","LLL_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Aug","6050210000",""

"100aEB","20150901162037","20150901162037","LDAP_Prod/ttin_tess","N","11937.91666666667","0","LLL_Plan","360610","BAU","Version1","Budget","LDGR","31029","21240","36542_31029","2016","Aug","6050210000",""

---

使用以下文件描述您的输入文件：

（简约/需要了解版本才能“工作”；你肯定可以做得更好）

打开一个输入文件，分别选择3列，并将引用的记录写入标准输出（或文件）：

这应该给你：

cscript 33851749.vbs
"20150901162037","20150901162037","LDAP_Prod/ xyrep, tett"
"20150901162037","20150901162037","LDAP_Prod/ttenetess"
"20150901162037","20150901162037","LDAP_Prod/ttin_tess"
"20150901162037","20150901162037","LDAP_Prod/xyrep, tett"

---

非常感谢霍纳，非常感谢你的支持。再次非常感谢你。但是，如果您有任何步骤要创建或执行，那么我就不能创建一个ADODB连接，是否有任何先决条件需要考虑。

Option Explicit

Const adClipString = 2

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
Dim oDB : Set oDB = CreateObject("ADODB.Connection")
Dim sCS : sCS     = Join(Array( _
    "Provider=Microsoft.Jet.OLEDB.4.0" _
  , "Data Source=" & oFS.GetAbsolutePathName("..\data") _
  , "Extended Properties=""text""" _
), ";")
oDB.Open sCS
Dim sSQL : sSQL    = "Select Distinct BB, CC, DD from [33851749.txt]"
Dim oRS  : Set oRS = oDb.Execute(sSQL)
Do Until oRS.EOF
   WScript.Echo """" & oRS.GetString(adClipString, 1, """,""", """", """""")
Loop

oDB.Close

cscript 33851749.vbs
"20150901162037","20150901162037","LDAP_Prod/ xyrep, tett"
"20150901162037","20150901162037","LDAP_Prod/ttenetess"
"20150901162037","20150901162037","LDAP_Prod/ttin_tess"
"20150901162037","20150901162037","LDAP_Prod/xyrep, tett"