Visual Basic.NET - Subrayar diferencias

   
Vista:

Subrayar diferencias

Publicado por Edwin (7 intervenciones) el 31/05/2016 23:33:13
Cordial Saludo,

Necesito de su ayuda

Tengo el siguiente código el cual compara dos cadenas de texto y muestra sus diferencias, y lo que necesito hacer es subrayar estilo highlights para evidenciar que se ha realizado un cambio


Imports System.Drawing

Public Class ControlCambios
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.VersionOriginal.Text = " Esto es una prueba para el comparador de textos"
Me.CambiosRealizados.Text = "Esto es una prueba del comparador de texto"


Dim txt1(VersionOriginal.Text.Split("").Length) As String
Dim txt2(CambiosRealizados.Text.Split("").Length) As String

txt1 = VersionOriginal.Text.Split(" ")
txt2 = CambiosRealizados.Text.Split(" ")

Dim diff1 As String = Me.VersionOriginal.Text
Dim diff2 As String = Me.CambiosRealizados.Text


For Each diff As String In txt1

If Array.IndexOf(txt2, diff.ToString) = -1 Then
diff2 += diff.ToString & "-"
ComentarioCambios.ForeColor = Color.DarkOrange

End If

Next

For Each diff As String In txt2

If Array.IndexOf(txt1, diff.ToString) = -1 Then

diff1 += diff.ToString & "-"

End If

Next

'Muestra la diferencia entre el segundo y primero y viceversa
'MsgBox("Difference in First To Second: " & diff1 & vbNewLine & "Difference in Second To First: " & diff2)

'Muestra la diferencia del segundo con respecto al primero
'MsgBox(" " & diff1 & "Difrencia del segundo frente al primero" & diff2)

'Muestra el resultado
ComentarioCambios.Text = diff1


End Sub
End Class


El resultado es el siguiente del-texto- y este resultado necesito que se vea reflejado de otro color con respecto a los demas caracteres de la cadena



Agradezco su ayuda.
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