杭州交通信息网斗破苍穹之重新开始:200+200帮我编一个程序(有现成的直接给我也行)是数据库类的
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/11 04:02:03
我现在搜集的一批代理服务器的地址,都寸在饿E:/1.txt下,文本里是一行一个,还有一批都寸在E:/2.txt,也都是一行一个,但是中间有重复的。我想生成一个3.txt的文件,3.txt就是把整理过的2.txt输出一下,要求是：如果2.txt的代理地址（也就是一行）在1.txt中有相同，则自动删除，整理完毕后输出一下就行了（千万不要把1.txt中的内容混到3.txt中）
把下面的内容复制下来,保存为 cc.vbs 双击运行就可以了。
文件要和1.txt 2.txt放在一起，不然会出错
Dim fso,f1,f2,f3,str,f1all
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("1.txt",1)
f1all = f1.ReadAll
f1.Close
Set f2 = fso.OpenTextFile("2.txt",1)
Set f3 = fso.CreateTextFile("3.txt",true)
Do While Not f2.AtEndOfStream
str = Trim(f2.ReadLine)
If (str<>"") Then
If (InStr(f1all,str)<=0) Then
f3.WriteLine str
End If
End If
Loop
f2.Close
f3.Close
Set fso = Nothing
V2加速版
http://k4me.myrice.com/2_not_in_1_v2.exe
已经做了初级优化.上面提到的[600K的6000行1.TXT和4M的30000行2.TXT]处理用了17秒,同样文件,此帖VBS版本处理用77秒.
----
V2新测试结果.AMD2500+超频到3800+,处理dir /s生成的80873行2.txt与83776行1.txt,对比耗时254秒.
一行一个是怎样一种形式，贴一点上来，我试试！
这个都不会，艾，给钱我编