Estoy tratando de hacer un programa en Visual Basic que compare los datos de dos Sequential Text files. Pero necesito ayuda.
La mejor manera de hacer lo que pregunta es abrir ambos ficheros y recorrer byte a byte su contenido comparándolo hasta que haya uno distinto, así:
Dim b1 As Byte, b2 As Byte Open "archivo1.txt" For Binary As #1 Open "archivo2.txt" For Binary As #2 'Si ya no tienen la misma longitud es que no son iguales If LOF(1) <> LOF(2) Then Close #2 Close #1 MsgBox "¡Son distintos!" Exit Sub End If Do Get #1, , b1 Get #2, , b2 If b1 <> b2 Then MsgBox "¡Son distintos!" Exit Sub End If Loop Until (EOF(1) Or EOF(2)) MsgBox "¡Son iguales!" Close #2 Close #1 Nada más.
Échele un vistazo al manual o a la ayuda que es el mejor sitio para aprender y todo esto se puede ver allí. José M. Alarcón
No comments:
Post a Comment