删除文本文件中相同的行VBS代码

IsaacZ

删除文本文件中相同的行！
如果不使用数据库，怎么样才能删除文本文件中相同的行呢？手工？！！10w行的记录你试试手工！？？
下面这个脚本演示了如果删除 文本文件中 相同的行！

1. Const adOpenStatic = 3
   
2. Const adLockOptimistic = 3
   
3. Const adCmdText = &H0001
   
4. 
   
5. Set objConnection = CreateObject("ADODB.Connection")
   
6. Set objRecordSet = CreateObject("ADODB.Recordset")
   
7. Const ForReading = 1, ForWriting = 2, ForAppending = 8
   
8. 
   
9. 
   
10. strPathToTextFile = "D:"
    
11. strFile = "done.txt"
    
12. 
    
13. objConnection.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & _
    
14. "Data Source=" & strPathtoTextFile & ";" & _
    
15. "Extended Properties=""text;HDR=NO;FMT=Delimited"""
    
16. 
    
17. objRecordSet.Open "Select DISTINCT * FROM " & strFile, _
    
18. objConnection, adOpenStatic, adLockOptimistic, adCmdText
    
19. 
    
20. Do Until objRecordSet.EOF
    
21. str = objRecordSet.Fields.Item(0).Value
    
22. Dim fso, f
    
23. Set fso = CreateObject("Scripting.FileSystemObject")
    
24. Set f = fso.OpenTextFile("D:\namelist.txt", ForAppending, True)
    
25. f.WriteLine str
    
26. f.Close
    
27. 
    
28. objRecordSet.MoveNext
    
29. Loop
    

复制代码

D:\done.txt 是原始文件
D:\namelist.txt 是生成后的文件


把上面这些代码，复制到一个txt文件中，修改成你所要的功能

另存为 *.vbs 后缀名就可以了！


来源：删除文本文件中相同的行
用vbscript实现从文本文件中删除所有重复行的代码

IsaacZ注：本代码有问题，出错提示：

Windows Script Host

脚本: D:\a.vbs
行: 25
字符: 1
错误: 类型不匹配: 'WriteLine'
代码: 800A000D
源:  Microsoft VBScript 运行时错误

推荐最好的移除重复行解决方案：
【原创】使用Editplus删除文本文件中的重复行

jiangming

看不懂，真的不懂

IsaacZ

我也不是太懂，备用而已，找时间再测试一下。