VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 比较两个文件
发表评论(0)作者:, 平台:, 阅读:11013, 日期:2000-03-12
比较两个文件 98-7-04

Function CompFile(F1 as string, F2 as string) as boolean

Dim issame as boolean

Open F1 For Binary As #1

Open F2 For Binary As #2


issame = True

If LOF(1) <> LOF(2) Then

issame = False

Else

whole& = LOF(1) \ 10000 'number of whole 10,000 byte chunks

part& = LOF(1) Mod 10000 'remaining bytes at end of file

buffer1$ = String$(10000, 0)

buffer2$ = String$(10000, 0)

start& = 1

For x& = 1 To whole& 'this for-next loop will get 10,000

Get #1, start&, buffer1$ 'byte chunks at a time.

Get #2, start&, buffer2$

If buffer1$ <> buffer2$ Then

issame = False

Exit For

End If

start& = start& + 10000

Next

buffer1$ = String$(part&, 0)

buffer2$ = String$(part&, 0)

Get #1, start&, buffer1$ 'get the remaining bytes at the end

Get #2, start&, buffer2$ 'get the remaining bytes at the end

If buffer1$ <> buffer2$ Then

issame = False

End If

Close

CompFile = issame

End Function