vbs脚本删除相同行

vbs脚本删除文件相当行，只要将文件拖入既可，处理结果保存文件为原来文件后面加_out

'描述：直接将要筛选相同行的文件拖到这个vbs文件上即可 '作者：sysdzw '邮箱：[email protected] 'QQ：171977759 '12:51 2009-7-12 Dim strFileSource, strFileResult,t1 On Error Resume Next strFileSource = wscript.Arguments(0) strFileResult = Left(strFileSource, InStrRev(strFileSource, ".") - 1) & "_out.txt" If strFileSource <> "" Then t1=Time() Set fso = CreateObject("scripting.filesystemobject") Set stream = fso.opentextfile(strFileSource, 1, False) Set stream2 = fso.opentextfile(strFileResult, 2, True) Set dict = CreateObject("scripting.dictionary") While Not stream.atendofstream Line = stream.readline If Not dict.Exists(Line) Then Call dict.Add(Line, Null) Call stream2.writeline(Line) End If Wend stream.Close stream2.Close MsgBox "处理完毕！总计耗时 " & DateDiff("s",t1,Time) & " 秒。" & vbCrLf & vbCrLf & strFileResult, vbInformation, "Del Same Line QQ:171977759" Else MsgBox "no file!", vbExclamation, "Del Same Line QQ:171977759" End If