Vbs判断两个txt文件的内容--将两个txt文件相同内容写入新建的Txt文件内

近期由于工作原因需要写一个vbs脚本来判断两个txt文件内容，写完后觉得不错，在此分享给有需要的朋友，具体见下：
自定义两个文件，然后分别在不同的文件内创建相同、不相同的内容，然后运行脚本，运行成功后，会在当前目录生成一个文件，该文件内的内容为：文件1和文件2内容的相同内容，得到该结果，意味着脚本运行成功。
实验结果：执行后，生成的文件如果只有zhangsan、wangwu既为准确。
脚本定义内容：

currentFolder=CreateObject("wscript.shell").currentDirectory&"\"
filename1=currentFolder&"1.txt"
filename2=currentFolder&"2.txt"
filename3=currentFolder&"3.txt"
Set fso=CreateObject("scripting.filesystemobject")
Set f1=fso.OpenTextFile(filename1,1)
Set f2=fso.OpenTextFile(filename2,1)
Set f3=fso.OpenTextFile(filename3,2,True)
Set dic=CreateObject("scripting.dictionary")
Do While Not f1.AtEndOfStream
content=f1.ReadLine
If Not dic.Exists(content) Then
dic.Add content,content
End If
Loop
f1.Close
Do While Not f2.AtEndOfStream
content=f2.ReadLine
If dic.Exists(content) Then
f3.WriteLine content
End If
Loop
f3.Close
f2.Close
Set f1=Nothing
Set f2=Nothing
Set f3=Nothing
Set dic=Nothing
Set fso=Nothing
MsgBox "finish"

1. 准备好两个对比文件
文件命令建议使用以下名称：1和2



1.txt内容：



2.txt内容：



2. 然后将脚本放入文件同一目录，双击执行



3. 双击执行，提示Finish，然后会在当前目录生成命名为：执行后的生成文件



4. 打开生成的文件，查看结果：



附件中有脚本源文件，下载后，将后缀名更改vbs即可。
本文出自 “高文龙” 博客，谢绝转载！