Visual Basic.NET - [VB.NET] Eliminar strings iguales pero dejar sólo una en RichTextBox

 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

[VB.NET] Eliminar strings iguales pero dejar sólo una en RichTextBox

Publicado por Lucas (1 intervención) el 05/08/2019 03:56:20
Buenas noches, he buscado por varios lugares pero no he podido encontrar algo.
Estoy usando VB.NET 2017 y necesito saber cómo puedo hacer para eliminar Strings dentro de un RichTextBox pero solamente dejar una.

Por ejemplo, escribiendo al azar:

Tengo esto:

1
mascota automovil inmueble cocina baño mascota cocina estrella

Y necesito que eso quede así:
1
mascota automovil inmueble cocina baño estrella

Es posible?

Si me pudieran orientar, se los agradecería.

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 Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

[VB.NET] Eliminar strings iguales pero dejar sólo una en RichTextBox

Publicado por Phil Rob (1546 intervenciones) el 05/08/2019 18:03:48
Hola,

Tienesq que probar el codigo siguiente :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class FSegundario   ' Este es el formulario ...   :D)))
 
    Dim SeparadorSplit As Char() = {" "}
    Dim LasPalabras() As String   ' Este es un tabla de String
 
    Private Sub BEliminarDuplicados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BEliminarDuplicados.Click
 
        Dim LasPalabrasSinDuplico As New Hashtable
        LasPalabras = RichTextBox1.Text.Split(SeparadorSplit)
 
        For i = 0 To LasPalabras.Length - 1
            Try
                LasPalabrasSinDuplico.Add(LasPalabras(i), Nothing)
            Catch ex As Exception
            End Try
        Next
 
        RichTextBox1.Clear()
 
        For Each Palabra As String In LasPalabrasSinDuplico.Keys
            RichTextBox1.Text &= Palabra & " "
        Next
 
        LasPalabrasSinDuplico.Clear()
        LasPalabrasSinDuplico = Nothing
    End Sub
End Class

Saludos


EliminarDuplicados
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