近期由于工作原因需要写一个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即可。
转载于:https://blog.51cto.com/gaowenlong/1397245