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"
Vbs判断两个txt文件的内容--将两个txt文件相同内容写入新建的Txt文件内
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 1、首先写一个函数，实现判断是否相等的功能，如下： def function(a, b): if a == b...
