Visual Basic - Comparar contenido de dos archivos

Life is soft - evento anual de software empresarial
 
Vista:

Comparar contenido de dos archivos

Publicado por Juan Carlos (3 intervenciones) el 31/01/2002 20:06:20
Que tal como le puedo hacer para comparar el contenido de dos archivos, lo que pasa es que estoy haciendo un notepad pero quisiera que cuando haga un cambio sobre el archivo y me quiera salir sin salvarlo pueda ya enviarle un mensaje al usuario.

Gracias
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

RE:Comparar contenido de dos archivos

Publicado por Harold Valdivia (104 intervenciones) el 02/02/2002 20:31:18
'Espero que esto te ayude!!
'
'Ejecuta esto en un formulario nuevo
'"para que lo pruebes"
'Necesitas:
' 1 CommonDialog
' 2 Botones : Propiedad Nombre=cmdAbrirArchivo
' Nombre=cmdCerrar
' 1 Textbox : Propiedad MultiLine=true
' ScrollBars=Vertical
'luego pega el codigo siguiente y ya!!
'Harold Valdivia : [email protected]

Option Explicit
Dim cadena, cad, Ncad As String
Dim temp, temp2 As Variant
Private Sub cmdAbrirArchivo_Click()

With CommonDialog1
.DialogTitle = "Abrir Archivo de texto ..."
.Filter = "*.txt|*.txt|"
.InitDir = "D:\Mis Documentos"
.ShowOpen

Open .FileName For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, cadena ' Obtiene una cadena
temp = cadena & vbCrLf 'muestra la primera linea y luego enter
temp2 = temp2 & temp
Text1 = temp2 'contenido del archivo
Loop
Close #1
cad = Text1
End With
End Sub

Private Sub cmdCerrar_Click()
Dim r As Integer
If Len(Text1.Text) <> Len(temp2) Then
r = MsgBox("Desea guardar los cambios antes de salir?", vbInformation + vbOKCancel, "Seguridad de Datos")
If r = vbOK Then
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output
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