Visual Basic - Comparar 2 txt

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 16
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Juan (6 intervenciones) el 29/01/2020 14:26:37
Hola quisiera saber si alguien me puede ayudar con esto, tengo 2 archivos 1.txt y 2.txt quisiera comparar lo escrito dentro de los dos y si no coinciden que me de un alerta, les agradeceria la ayuda

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.886
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Andres Leonardo (1594 intervenciones) el 29/01/2020 16:07:19
Hola

Si haces un
1
2
3
If text1.text <> text2.text then
  msgbox "Los textos son diferentes"
end if

Pero esto te sirve solo para saber si son diferente mas no que tener
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 16
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Juan (6 intervenciones) el 29/01/2020 17:40:53
Hola gracias por la respuesta, pero son 2 achivos de texto diferentes, uno en la unidad C: t1.txt y otro en la unidad D: t2.txt y no me compara el contenido, ejemplo: adentro de t1.txt tengo x informacion y en tx2.txt tengo otra, yo necesitaria compararlas y que me avise si son diferentes.

1
2
3
4
5
6
7
8
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If "C:\t1.txt" <> "D:\t2.txt" Then
 
        MsgBox("Los textos son diferentes")
 
    End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 16
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Juan (6 intervenciones) el 30/01/2020 15:59:53
Aguien podria ayudarme?

Desde ya gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.138
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Antoni Masana (401 intervenciones) el 30/01/2020 17:48:02
Esto te compara dos ficheros si no son muy grandes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Comparar()
    Dim Reg_1 As String, Reg_2 As String
 
    Open "C:\Tmp\Prueba.txt" For Binary As #1
    Reg_1 = Space(LOF(1))
    Get #1, , Reg_1
    Close #1
 
    Open "C:\Tmp\Prueba2.txt" For Binary As #1
    Reg_2 = Space(LOF(1))
    Get #1, , Reg_2
    Close #1
 
    If Reg_1 = Reg_2 Then
        MsgBox "Los ficheros son IGUALES"
    Else
        MsgBox "Los ficheros son DISTINTOS"
    End If
End Sub

Lo he probado con ficheros hasta 50MB , seguramente tenga un límite de tamaño, no se cual es.
Para ficheros más grandes hay que hacerlo de otra forma.


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 16
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Juan (6 intervenciones) el 30/01/2020 18:31:17
Gracias Antonio, son pocos caracteres, crees que funcionara e visual studio. cuando llegue a casa lo probare, desde ya muchas gracias por tu tiempo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 16
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Comparar 2 txt

Publicado por Juan (6 intervenciones) el 31/01/2020 18:14:49
Antonio, mil gracias por tu tiempo me a funcionado de maravilla, te super agradezco

Un saludo grande
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar