UC知道用vb对比两个文本
来源：百度知道 编辑：UC知道 时间：2024/05/16 10:02:57
用vb写一个程序 比如有两个文本文件d:\1.txt和d:\2.txt。现在要做的是把1.txt文件做为参照文件，用来对比2.txt的内容，如果2.txt的内容和1.txt的内容一致就不用弹出如何提示，当不同时就弹出提示“文件不相同”！请高手帮我写下代码 （最好不用在窗体输入内容或选择。直接运行程序就工作的）
Private Sub Form_Load()
Dim s As String, d As String, x As String
If Dir("d:\1.txt") = "" Or Dir("d:\2.txt") = "" Then MsgBox "其中1个不存在": Exit Sub
Open "d:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
d = d & s & vbCrLf
Loop
Close #1
Open "d:\2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
x = x & s & vbCrLf
Loop
Close #1
If Not d = x Then MsgBox "不相同"
End Sub