vbs脚本删除相同行

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

'描述：直接将要筛选相同行的文件拖到这个vbs文件上即可'作者：sysdzw'邮箱：[e-mail]'QQ：171977759'12:51 2009-7-12Dim strFileSource, strFileResult,t1On Error Resume NextstrFileSource = 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