有没有更好的方法比较两个文本文件？

xjmen

我需要在教本里比较两个文本文件（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

用别的工具很方便，比如windiff……

millionaire

Horus_Ra,能介绍一下windiff吗,或者share给我一个! 万分感谢了!!!!!!!  ---已改正，多谢！

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

Horus_Ra

1：这东西网上一搜到处都是
2：不要随便把信箱写出来

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

东西放在附件里了~~

millionaire

收下，谢了！