近期由于工作原因需要写一个vbs脚本来判断两个txt文件内容，写完后觉得不错，在此分享给有需要的朋友，具体见下：
自定义两个文件，然后分别在不同的文件内创建相同、不相同的内容，然后运行脚本，运行成功后，会在当前目录生成一个文件，该文件内的内容为：文件1和文件2内容的相同内容，得到该结果，意味着脚本运行成功。
实验结果：执行后，生成的文件如果只有zhangsan、wangwu既为准确。
脚本定义内容：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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即可。
本文转自 高文龙 51CTO博客，原文链接：http://blog.51cto.com/gaowenlong/1397245，如需转载请自行联系原作者
