vb对比txt文件内容的不同之处(好会奖50分）

来源：百度知道 编辑：UC知道 时间：2024/09/21 05:48:27
有两个文件,一个文件的内容为
aa
bb
cc
另一个文件的内容为
aa
cc
bb
dd
当点一个按纽后,label1会出现:多了dd,多了bb(若只有一个不同,显示多了某某行)(要的是名字)

Dim flg As Boolean
fc = ""
fname1 = "c:\1.txt"
fname2 = "c:\2.txt"
fn1 = FreeFile

Open fname1 For Input As fn1
Do While Not EOF(fn1)
Line Input #fn1, temp
fc = fc & temp & "#%"
Loop
Close fn1
c1 = Split(fc, "#%")
fc = ""
fn2 = FreeFile
Open "c:\2.txt" For Input As fn2
Do While Not EOF(fn1)
Line Input #fn2, temp
fc = fc & temp & "#%"
Loop
Close fn2
c2 = Split(fc, "#%")

For i = 0 To UBound(c1)
flg = False
For j = 0 To UBound(c2)
If c1(i) = c2(j) Then
flg = True
Exit For
End If
Next j
If Not flg Then lblmsg = lblmsg & fname1 & "中，第" & (i + 1) & "行：" & c1(i) & ",在" & fname2 & "中未出现" & vbCrLf
Next i

For i = 0 To UBound(c2)
flg = False
For j = 0 To UBound(c1)
If c2