|
最近在写图片比较脚本时,遇到问题.
我的设计思路是如果两个文件二进制比较不同,则认为图片内容不同.
但是在测试过程中发现,我写的函数, 当图片不同时,二进制比较竟然相同.
脚本如下
'*********************************
Function Compare (arg1 ,arg2)
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile,MyFile1
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(arg1, ForReading, True)
Set MyFile1 = fso.OpenTextFile(arg2, ForReading, True)
Flag=0
Dim tmp ,tmp1
tmp=0
tmp1=0
While MyFile.AtEndofLine<>true and MyFile1.atendofline <>true
tmp=MyFile.readline
tmp1=MyFile1.readline
res=StrComp (tmp,tmp1,0)
If res<>0 Then
Flag=1
End If
Wend
MyFile.Close
MyFile1.Close
If Flag=0 Then
Compare=true
else
Compare= false
End If
End Function
path1="c:\back_icon1.bmp"
path2="c:\back_icon2.bmp"
msgbox compare (path1, path2)
补充一句:在debug过程中,我发现一个问题.
在set myfile 和myfile1 结束后, 查看变量发现,myfile 和myfile1都只有一行一列, 我很困惑 |
|