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即可。

本文出自 “高文龙” 博客，谢绝转载！