none
Recorta texto en un listbox y texbox

    Pregunta

  • Tengo un listado de listado de códigos de números ejemplos:

    239283293#3f374=54

    209382398#3f374=54

    302948343#3f374=54

    283473433#3f374=54

    deseo quitar #3f374=54

    y solo dejarlos primeros números 

    -----------------------------------------------------

    de igual forma quitar en un texbox #3f374=54

    alguien puede ayudarme, saludos


    lunes, 6 de febrero de 2017 4:19

Respuestas

  • Cael1020,

    Basta con recorrer por los elementos de la lista y tomar los primeros caracteres de cada ítem hasta la posición donde se encuentra el carácter de #. 

    For index = 0 To ListBox1.Items.Count - 1
    	Dim Item As String = ListBox1.Items(index)
    
    	ListBox1.Items(index) = Item.Substring(0, Item.IndexOf("#"))
    Next

    De igual manera para el valor contenido en la propiedad Text de la caja de texto:

    TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf("#"))


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Cael1020 lunes, 6 de febrero de 2017 10:19
    lunes, 6 de febrero de 2017 5:04

Todas las respuestas

  • Cael1020,

    Basta con recorrer por los elementos de la lista y tomar los primeros caracteres de cada ítem hasta la posición donde se encuentra el carácter de #. 

    For index = 0 To ListBox1.Items.Count - 1
    	Dim Item As String = ListBox1.Items(index)
    
    	ListBox1.Items(index) = Item.Substring(0, Item.IndexOf("#"))
    Next

    De igual manera para el valor contenido en la propiedad Text de la caja de texto:

    TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf("#"))


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Cael1020 lunes, 6 de febrero de 2017 10:19
    lunes, 6 de febrero de 2017 5:04
  • muchas gracias me ayudo
    lunes, 6 de febrero de 2017 10:19