如何快速比较两个文本的不同？

zhang5913

whQ4BYKS.txt (4.88 KB, 下载次数: 52)

2005-9-9 11:11 上传

点击文件名下载附件
如何快速比较两个文本的不同？

我该如何快速比较出上面两个文本的相同部分和不同部分。

sdbbsdbb

我所知道的二种方法：

一、利用WORD自带的‘比较合并文档’功能，但不能很直观地同时见到“甲文”与“乙文”，只能见到‘甲文’与两者比较后的差异部分的乙文。

二、利用第三方软件，本来想上传几个共享版的软件，但由于论坛限制，我也懒得分卷压缩了，就报几个名字吧！A、Compare It!　B、TextDiff　C、UltraCompare Pro ，不过他们都有一个致命的缺点，就是连全角的双引号与半角的引号都无法在显示屏上正确区分（当然，在机器内部是应该可以的），因此，并不直观。

　　这个问题也是我刚上这儿的首选问题，本来以为跟老大学点皮毛级的VBA，就能轻松搞定这个东东。但刚学了个头，就被VBA的博大精深所吓退；又因为VBA只能作一些后台工作，要产生比较复杂的界面就很难了，因此，我早就死心了。

　　顺便问问老大，是否是这么回事？我可不想误导人家。

守柔

不知楼主想如何比较？逐字符比较的话，手动换行之类如何处理？

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-10 5:55:02 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00012^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub TxtCompare() Dim InputData As String, MyFolder As String, MyString1 As String, MyString2 As String Dim i As Long, CharCount As Long, Sameness As String, Differ As String MyFolder = "D:\DownLoads\ExcelHome\" '定义一个文件夹位置 Open MyFolder & "TXT1.TXT" For Input As #1 ' 为输入打开文件。 Open MyFolder & "TXT2.TXT" For Input As #2 Do While Not EOF(1) ' 检查文件尾。 Line Input #1, InputData ' 读入一行数据 MyString1 = MyString1 & InputData '内存中累加 Loop Do While Not EOF(2) Line Input #2, InputData '读入一行数据 MyString2 = MyString2 & InputData '内存中累加 Loop Close ' 关闭所有打开的二个文件。 '取得字符数较少的文件长度 CharCount = VBA.IIf(Len(MyString1) > Len(MyString2), Len(MyString2), Len(MyString1)) For i = 1 To CharCount '循环以比较 If Mid(MyString1, i, 1) = Mid(MyString2, i, 1) Then Sameness = Sameness & Mid(MyString1, i, 1) '如果相同,则写入此变量 Else Differ = Differ & Mid(MyString2, i, 1) '如果不同,则写入此变量(以文件1为基准) End If Next If Len(MyString1) > Len(MyString2) Then Differ = Differ & Mid(MyString1, CharCount + 1, Len(MyString1)) Else Differ = Differ & Mid(MyString2, CharCount + 1, Len(MyString2)) End If If Sameness = "" Then Sameness = "没有相同的文本部分" If Differ = "" Then Differ = "没有不同的文本部分" ActiveDocument.Content.InsertAfter "相同的文本部分:" & Chr(13) & _ Sameness & Chr(13) & "不同的文字部分:" & Chr(13) & Differ End Sub '----------------------

wangwei

守柔斑竹的代码又够我学几天了，搭车向斑竹的有问必答的精神致意！