神马品牌网人事分配制度改革:vb如何编写文本比较器
来源：百度文库 编辑：神马品牌网 时间：2024/05/10 11:24:40
刚写完一个简单的例子，给你作个参考吧。希望对你有帮助。
Private Function compFile(strName1 As String, strName2 As String) As Integer
Dim i As Long, j As Long
Dim A1 As Byte, A2 As Byte
Dim FNO1 As Integer, FNO2 As Integer
Dim LNo As Long
FNO1 = FreeFile()
Open strName1 For Binary As FNO1
FNO2 = FreeFile()
Open strName2 For Binary As FNO2
If LOF(FNO1) <= LOF(FNO2) Then '取文件小的那个文件的大小作为标准
LNo = LOF(FNO1)
Else
LNo = LOF(FNO2)
End If
For i = 1 To LNo
Get FNO1, i, A1
Get FNO2, i, A2
'读出了数据，可以开始比较并加入相映的处理操作了。
'这里是例子
If A1 <> A2 Then
MsgBox "在两个文件的第 " & i & "字节处不匹配"
Close
compFile = 1
Exit Function
End If
Next i
End Function
需要什么功能
基本原则：
1、打开两个需要比较的文件
2、逐个字节对比
3、如果相同，Pass；如果不同，分别输出两个文件的当前位置字节内容
4、继续比较，知道某个文件结束
代码还是自己编写吧，不同人的要求形式不同，通过实践，能够大幅度提高编程水平的。