删除文本文件中相同的行VBS代码
本帖最后由 IsaacZ 于 2009-6-19 02:16 编辑删除文本文件中相同的行！
如果不使用数据库，怎么样才能删除文本文件中相同的行呢？手工？！！10w行的记录你试试手工！？？
下面这个脚本演示了如果删除 文本文件中 相同的行！Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strPathToTextFile = "D:\"
strFile = "done.txt"
objConnection.Open "rovider=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
str = objRecordSet.Fields.Item(0).Value
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("D:\namelist.txt", ForAppending, True)
f.WriteLine str
f.Close
objRecordSet.MoveNext
Loop
D:\done.txt 是原始文件
D:\namelist.txt 是生成后的文件
把上面这些代码，复制到一个txt文件中，修改成你所要的功能
另存为 *.vbs 后缀名就可以了！
来源：删除文本文件中相同的行
用vbscript实现从文本文件中删除所有重复行的代码
IsaacZ注：本代码有问题，出错提示：
Windows Script Host
脚本: D:\a.vbs
行: 25
字符: 1
错误: 类型不匹配: 'WriteLine'
代码: 800A000D
源:Microsoft VBScript 运行时错误
推荐最好的移除重复行解决方案：
【原创】使用Editplus删除文本文件中的重复行 看不懂，真的不懂 我也不是太懂，备用而已，找时间再测试一下。
页:
[1]