Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Recorrer textos

Visual Basic.NET - Recorrer textos

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Recorrer textos

Publicado por Pablo Alboran (2 intervenciones) el 25/05/2016 17:26:35
Codial Saludos amigos de LWP,

Llevo poco tiempo en la programación y amablemente solicito su ayuda con lo siguiente,

Ahora estoy realizando una aplicación donde debo traer dos textos que contienen valores con algunos valores de diferencia lo que debo hacer es identificar cada una de sus posiciones estilo array y si encuentra diferencia marcar esa diferencia con un color diferente.

A modo practico lo que se debe hacer es lo siguiente

Ejemplo 1

Lorem Ipsum es el texto de relleno de archivos de texto.

Ejemplo2

Lorem Ipsum es simplemente el texto de relleno de las imprentas y archivos de texto.

Mil gracias por 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
sin imagen de perfil

Recorrer textos

Publicado por Pablo Alboran (2 intervenciones) el 25/05/2016 18:47:03
Hola



Tengo 2 cajas de texto en las cuales necesito validar que si hay palabras diferentes una con respecto de la otra la cambie de color para diferenciar sus contenidos.
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 Hugo
Val: 50
Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Recorrer textos

Publicado por Hugo (91 intervenciones) el 25/05/2016 19:40:03
Visita: http://vbpuntonet.blogspot.mx/

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
	Me.versionoriginal.Text = "abcdefg"
	Me.cambiosrealizados.Text = "acf"
 
	Dim v_cambios As String = Me.cambiosrealizados.Text.Trim
	Dim v_long As Integer = Me.versionoriginal.Text.Trim.Length
	Dim v_letra As String = ""
	For x = 1 To v_long
		v_letra = Mid(Me.versionoriginal.Text, x, 1)
		If v_cambios.Contains(v_letra) = True Then
		Else
			'este es un label

 
			Me.comentariocambios.Text = Me.comentariocambios.Text + v_letra
		End If
	Next
 
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