月光微博客 » 微网络 » 删除文本文件中重复行的VbScript脚本

删除文本文件中重复行的VbScript脚本

  今天AdSense的QQ广告越来越多了,一个一个删除屏蔽太慢了,好在有人在评论中提供了很多屏蔽域名列表,我就将其一起复制进来。

  问题就出来了,复制进来的域名有很多和我现有的屏蔽域名是重复的,一个一个挑选又太麻烦,上网找了一下,发现有一个用VBScript编写的脚本,对于删除TXT文本文档中重复数据很好用。

  以下是这个脚本的源代码,复制后另存为vbs后缀的文件,双击即可运行。文件要放在C盘根下的Text.TXT,请特别注意:文本中一行一条记录,不要有空行。

 Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathToTextFile = "C:\"
strFile = "Test.txt"

objConnection.Open "Provider=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

Set objFSO = CreateObject("Scripting.FileSystemObject")
     set Fp=objFSO.OpenTextFile("C:\test1.txt",8,True,0)
     fp.WriteLine objRecordSet.Fields.Item(0).Value
     fp.close
     set objFSO = nothing
     objRecordSet.MoveNext
Loop

相关文章

  1. 1. 炎藤 说道:
    还有一款软件叫做AM-DeadLink之类的
    也有删除重复行的功能
    对删除死链也有疗效

    Excel也有这种功能
    http://support.microsoft.com/kb/262277
  1. 2. petcon 说道:
    无语了

    这个用excel就可以实现啊

    复制到excel里面

    数据---筛选--高级筛选---选择不重复记录

  1. 3. petcon 说道:


    一楼的很强
  1. 4. lostens 说道:
    还是博主的好~ 其他的更麻烦 谢谢了
  1. 5. 说道:
    呵呵,很强大的脚本,谢谢月光分享!

发表留言