论坛 › 已解决问题区 › 删除重复行，为什么速度慢，帮看下代码(已解决)

nangua111111 发表于 2013-2-9 13:12:02

xuexi学习下

316861798 发表于 2013-4-28 14:54:01

学习下

netsmu 发表于 2013-12-7 11:26:42

看看。啊啊

gyxzhh 发表于 2013-12-16 10:37:29

都是高手，学习了！

yongge9999 发表于 2014-1-14 15:43:38

回复 4# binghc
学习一下。感谢分享

hnfeng 发表于 2014-1-29 22:37:47

学习一下
回帖看看4楼的代码

light_he 发表于 2014-3-18 11:57:02

回复 4# binghc

学习下代码

vteovi 发表于 2014-3-21 08:11:19

很好，值得学习

dhlhmgc 发表于 2014-3-27 00:51:14

用正则方式实现（速度还是有点慢，但代码很简单）：dim $text = FileRead( @ScriptDir & "\萌动校园.txt")
if stringinStr($text,@CRLF) Then
        $text = StringRegExpReplace( $text, "(?m)(^.*\r\n)(?=(?:^.*\r\n)*\1)", '')
Else
        $text = StringRegExpReplace( $text, "(?m)(^.*\n)(?=(?:^.*\n)*\1)", '')
Endif


dim $hFile = FileOpen('去重复行.txt',2+8)
FileWrite ($hFile, $text)
FileClose($hFile)

msgbox (48,0,"ok!")

zkjlcj911 发表于 2014-5-10 06:51:45

看看看
看看看
看看看

zxhou1 发表于 2014-5-10 18:30:05

好思路，学习一下

lvslvsl 发表于 2014-6-11 22:52:41

看了半天还是看不明白，那两个有多大区别啊？

chamlien 发表于 2014-8-12 00:09:51

长见识了，非相邻行重复也可以去重，正是我想要的！

chamlien 发表于 2014-8-12 00:19:10

回复 19# 3mile

这个代码十分有效，但是你后面的代码却没等出结果，这个代码运行12秒可以处理5W行的数据文本，强大

llllllxllllll 发表于 2014-8-19 16:21:58

回复 4# binghc

你太牛X了{:face (189):}

查看完整版本: 删除重复行，为什么速度慢，帮看下代码(已解决)