psy 爸爸高清1080p:帮我编一个程序(有现成的直接给我也行)是数据库类的

http://k4me.myrice.com/2_not_in_1.exe
一次回答<回答者：k4me - 进士出身 九级 8-7 20:13>
---------
补充.
1)空格也是一种格式.
2)此贴VBS回答中处理序列速度很快.不过有点缺陷,可以被"陷阱序列"欺骗.
比如1.txt中使用某行:
"1 2"(1空格2)
2.txt中用某行:
"2"
程序即掉进陷阱,因为使用的是INstr整序列,也就是说文件2中某行内容存在于1文件中某行中的部分区块既会造成失误.但,处理较规则的列表时不会出错.具有一定实用性.

Me的程序刚自己测了下600K的6000行1.TXT和4M的30000行2.TXT,效能实在不高,七八分钟还没完事让我关了.嘻嘻.不过对付小文件很轻松啦.今晚打算对它进行一些优化.
二次补充<回答者：k4me - 进士出身 九级 8-10 22:34>
---------------------------
三次回答: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秒.

把下面的内容复制下来,保存为 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

fc one.txt two.txt > 3st.txt 对比二个文件并把不同之处输出到3st.txt文件中，"> "和"> >" 是重定向命令

参考一下吧

k4me好强好。本来我也想编的，现在就不现丑了

K4ME这种怪物我们一定要捉起来杀掉大家才有出头的机会啊！

还是VBS写的脚本不错，执行效率高，k4me的程序数据有空格的话会不行，不知楼主用了没有，如果数据很整齐的话两个程序都很好用。