Question

我需要查出txt文件里的重复行并去掉，文件很大，有没有好的遍历方法，vb的，好用的我会在给分

While Not stream.AtEndOfStream
Line = stream.ReadLine
If Not dict.Exists(Line) Then
Call dict.Add(Line, Null)
Call stream2.WriteLine(Line)
为什么不比较最后一行 万分感谢，急！！

Answer 1

你下载个EditPlus,里面就有去除重复行的功能,so easy

追问

额。。我也想啊，但我不能跟客户说“你去下个东西就能去掉了”，这 经理会气死地，我得用代码实现，没怎么学过VB，娘的

追答

……
你告诉他，这个软件很强大，完全可以替记事本，HOHO，而且打开大文本非常的快，他就会喜欢你了

Answer 2

你的文件一般多大？你现在用的方法速度是多少？说清楚嘛，这样我们测试的比你的慢就不用发啦，不然你还要测试。

追问

100多M 速度上只要不出现卡死 在5s以内都行 您能不能帮我解决不能查末尾行的问题啊
比如中间有一行是0000041044083140000026602660000004104408 末尾有两行都是它 我上面的方法之删掉了末行前一个 中间行和末尾行都保留了 怎么回事

追答

100M 5S 怕是不行。
就几句代码，还是call的 ，看不出什么。

追问

Dim Line As String
Set fso = CreateObject("scripting.filesystemobject")
Set stream = fso.OpenTextFile(Text1.Text, 1, False)
Set stream2 = fso.OpenTextFile(Text2.Text, 2, True)
Set dict = CreateObject("scripting.dictionary")
+上面
End If
Wend
Call stream.Close
Call stream2.Close

追答

看不出，你这个我觉得还是找其他办法好，比如在源头控制不让重复，或者分成几个文件等。100M 按你上面的数据格式基本上有三百万行，一般的方法肯定没有效率。

Answer 3

留个QQ我传你个代码

追问

我给您发邮件了，谢谢

追答

哪个邮件？

追问

gxydyq@bift.edu.cn

追答

百度真不是东西，没经过我许可竟然公开了我的信箱

追问

...您收到了吗？我也是因为现在百度的问题取消不了了 才不敢给您留QQ ，又HI不到您，所已给您发邮件了，爱慕骚瑞

追答

你怕骚扰，俺就不怕？

追问

额。。是您的资料里的，我以为您公开了，直接点进去就能看见。