Compara
(Comparar archivos y mostrar las diferencias)

Fecha: 26-Jun-97
Autor: Giovanni Rojas


Date sent: Thu, 12 Jun 1997 17:11:11 -0500
From: "Giovanni Rojas"
[email protected]

Esta rutina permite comparar dos archivos y encuentra sus diferencias
! NO ESTA TERMINADO ! cualquier ayuda o consejo sera bienvenida
todo en vb5

El c�digo de la rutina de comparaci�n, el proyecto completo puedes bajarlo pulsando aqu� (compara.zip 4.78 KB)

Option Explicit

Dim sep As String

Private Sub Command1_Click()
    Dim s1 As String
    Dim i1 As Long, l1 As Long
    Dim size As Long
    
    On Error GoTo res
    sep = Chr$(13)
    MousePointer = 11
    RTF1.Text = RTF1.Text & Chr$(13)
    RTF2.Text = RTF2.Text & Chr$(13)
    
    size = Len(RTF1.Text)
    
    i1 = 1
    Do
        l1 = InStr(i1, RTF1.Text, sep)
        s1 = Mid$(RTF1.Text, i1, l1 - i1)
        If (InStr(1, UCase(RTF2.Text), Trim(UCase(s1))) = 0) Then
            RTF1.SelStart = i1
            RTF1.SelLength = l1 - i1
            RTF1.SelBold = True
            i1 = l1 + 1
            RTF1.SelLength = 0
            RTF1.SelBold = False
        Else
            i1 = l1 + 1
        End If
    Loop While (i1 < size)
    
    i1 = 1
    Do
        l1 = InStr(i1, RTF2.Text, sep)
        s1 = Mid$(RTF2.Text, i1, l1 - i1)
        If (InStr(1, UCase(RTF1.Text), Trim(UCase(s1))) = 0) Then
            RTF2.SelStart = i1
            RTF2.SelLength = l1 - i1
            RTF2.SelBold = True
            i1 = l1 + 1
            RTF2.SelLength = 0
            RTF2.SelBold = False
        Else
            i1 = l1 + 1
        End If
    Loop While (i1 < size)
    
    MsgBox "La Comparaci�n a Finalizado"
    MousePointer = 0
res:
   'Resume Next
   MousePointer = 0
End Sub

ir al índice