小孩 发表于 2008-8-13 12:09:23

利用脚本进行文件比较

呵呵很久没有发帖子了,下面的脚本是用来做文件比较用
Dim WshShell, oExec

Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("fc /b c:\test.jpg c:\test.jpg")

output = oExec.StdOut.ReadAll()

If Instr(1,output, "找不到相异处", 1) Then '这里的
MsgBox "Success"
Else
MsgBox "Failure"
End If

[ 本帖最后由 小孩 于 2008-8-13 18:12 编辑 ]

假装不在 发表于 2008-8-13 13:56:03

:hug: :lol
不会很久吧，昨天才看到。

kevin_swpi 发表于 2008-8-13 14:03:20

:lol
可以再扩充下
比如
把不一样的用颜色标记出来

这样我想就更加完美了呵呵

小孩 发表于 2008-8-13 18:12:50

原帖由 kevin_swpi 于 2008-8-13 14:03 发表 http://bbs.51testing.com/images/common/back.gif
:lol
可以再扩充下
比如
把不一样的用颜色标记出来

这样我想就更加完美了呵呵
满足你的需求 哈哈

kevin_swpi 发表于 2008-8-14 09:04:07

原帖由 小孩 于 2008-8-13 18:12 发表 http://bbs.51testing.com/images/common/back.gif

满足你的需求 哈哈
...

我是说 比较两个文本后
将不一样的文本内容进行标注出来...

centurystone 发表于 2008-8-14 10:01:28

对比*.JPG文件时，怎么运行的结果总是“Failure”啊？即使是复制两个完全相同的JPG文件，在对比.TXT文件时也是返回Failure。。。。

fc /b c:\test.jpg c:\test.jpg这句话里的 /b是什么意思啊？
页: [1]
查看完整版本: 利用脚本进行文件比较