51Testing软件测试论坛

标题: 有没有更好的方法比较两个文本文件？ [打印本页]

作者: xjmen 时间: 2006-3-23 11:37
标题: 有没有更好的方法比较两个文本文件？
我需要在教本里比较两个文本文件（XM文件）的内容是否一致，就偷懒写了个简单的VBS的脚本:

// 比较两个文本文件（文件名）
Public Function CompTwoFiles(FileName1,FileName2)

Const ForReading = 1, ForWriting = 2, ForAppending = 8,vbTextCompare =1

Dim fso1, obj_file1,fso2, obj_file2
Dim FileContents1, FileContents2

Set fso1 = CreateObject("Scripting.FileSystemObject")

Set obj_file1 = fso1.OpenTextFile(FileName1, ForReading)

FileContents1 = obj_file1.ReadAll

Set fso2 = CreateObject("Scripting.FileSystemObject")

Set obj_file2 = fso2.OpenTextFile(FileName2, ForReading)

FileContents2 = obj_file2.ReadAll

obj_file1.Close
obj_file2.Close

CompTwoFiles= StrComp(FileContents1,FileContents2,vbTextCompare)

End Function

一方面直接share给大家，另外有更好的办法做到比较两个文本文件吗？

作者: Horus_Ra 时间: 2006-3-23 13:19
用别的工具很方便，比如windiff……

作者: millionaire 时间: 2006-3-23 13:24
Horus_Ra,能介绍一下windiff吗,或者share给我一个! 万分感谢了!!!!!!! ---已改正，多谢！

[ 本帖最后由 millionaire 于 2006-3-23 17:18 编辑 ]

作者: Horus_Ra 时间: 2006-3-23 14:58
1：这东西网上一搜到处都是
2：不要随便把信箱写出来

这东西是微软操作系统的安装盘里自带的工具，不是很强大……这类工具还有很多，你可以搜一下~~

东西放在附件里了~~

作者: millionaire 时间: 2006-3-23 17:19
收下，谢了！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)