elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Comparativa y análisis mejores sistemas de videollamadas


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Leer y quitar repetidos de un Label
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Leer y quitar repetidos de un Label  (Leído 119 veces)
SlayerBur

Desconectado Desconectado

Mensajes: 43



Ver Perfil
Leer y quitar repetidos de un Label
« en: 30 Junio 2020, 18:17 »

Buenas tardes.


Quisiera saber como podría hacer para comprar el texto de 4 labels, y quitar los duplicados, y el resultado mostrarlo en otro label, no se si me explico..

Tengo esto:

Una Public Function, con 4 Oledbcommand para obtener Tipo1,2,3 y 4.

Código:
Dim Cmd As New OleDbCommand("SELECT Tipo FROM Campeon WHERE Champ = @Champ", ConBD)
        Cmd.Parameters.AddWithValue("@Champ", TxtBuscar.text)
        Dim Cmd2 As New OleDbCommand("SELECT Tipo2 FROM Campeon WHERE Champ = @Champ", ConBD)
        Cmd2.Parameters.AddWithValue("@Champ", TxtBuscar.Text)
        Dim Cmd3 As New OleDbCommand("SELECT Tipo3 FROM Campeon WHERE Champ = @Champ", ConBD)
        Cmd3.Parameters.AddWithValue("@Champ", TxtBuscar.text)
        Dim Cmd4 As New OleDbCommand("SELECT Tipo4 FROM Campeon WHERE Champ = @Champ", ConBD)
        Cmd4.Parameters.AddWithValue("@Champ", TxtBuscar.Text)

Luego de ello, en la misma funcion:

(Tengo varios if encima de ello, para verificar si tienen texto, pero en definitiva siempre termina así)

Código:
               LblTexto.Text = Cmd.ExecuteScalar().ToString.Trim + "," + Cmd2.ExecuteScalar().ToString.Trim + "," + Cmd3.ExecuteScalar().ToString.Trim + "," + Cmd4.ExecuteScalar().ToString.Trim
 

Y por ultimo, en un boton:

Código:
        Dim Top, Jungla, Mid, Adc, Sup As New Label ' Creo Label para guardar información

        ' Establezco sus textos a ""
        Top.Text = ""
        Jungla.Text = ""
        Mid.Text = ""
        Adc.Text = ""
        Sup.Text = ""
        ' ---

        BuscarTipos(CbTop, Top)
        BuscarTipos(CbJg, Jungla)
        BuscarTipos(CbMid, Mid)
        BuscarTipos(CbAdc, Adc)
        BuscarTipos(CbSup, Sup)

        LblComentario.Text = Top.Text + Jungla.Text + Mid.Text + Adc.Text + Sup.Text ' + Jungla + Mid + Adc + Sup

Mi problema ahí, es que me muestra por ejemplo, 3 veces tanque, o 2 iniciaciones, etc. Intente armar un for each, pero no logo leer el texto para comprarar

Es meramente un programa que estoy creando para armar composiciones en lol, por si se lo preguntan  :xD

Espero que puedan ayudarme  ;D


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines