none
separar datos por signo intermedio RRS feed

  • Pregunta

  • Saludos tengo un ejemplo de separación de datos por algún carácter, me da la separación del dato que esta antes del carácter lo pone en donde uno desea los resultados, ahora busco me de el listado de los datos antes y después del carácter

    1#ES UNO

    2#ES DOS

    0#ES CERO

    Deseo en 2 ListBox me de los resultados, en uno solo los números y en otro sus nombres

        Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
            TextBox3.Lines = TextBox3.Text.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
    
            For Each Linea As String In TextBox3.Lines
                ListBox2.Items.Add(Linea.Split("#"c)(0))
    
                For Each Linea As String In TextBox3.Lines
                    ListBox3.Items.Add(Linea.Split("#"c)(1))
    
                Next
        End Sub

    lunes, 18 de diciembre de 2017 19:52

Respuestas

  • "Cael1020" preguntó:

    > 1#ES UNO
    >
    > 2#ES DOS
    >
    > 0#ES CERO
    >
    > Deseo en 2 ListBox me de los resultados, en uno solo los números y en otro sus nombres

    Hola:

    Si he entendido bien, deseas que en los controles ListBox te aparezcan los valores como se muestra en la siguiente imagen:

    Si es así, ejecuta el código como indico a continuación:

        Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
            TextBox3.Lines = TextBox3.Text.Split(New String() {ControlChars.CrLf}, StringSplitOptions.RemoveEmptyEntries)
    
            For Each linea As String In TextBox3.Lines
    
                ' Obtener las subcadenas que están delimitadas por el carácter #.
                Dim values As String() = linea.Split("#"c)
    
                ' En el primer ListBox mostramos el primer elemento de la matriz.
                ListBox2.Items.Add(values(0))
    
                ' En el segundo ListBox mostramos el segundo elemento de la matriz.
                ListBox3.Items.Add(values(1))
            Next
    
        End Sub
    

    Un saludo


    Enrique Martínez Montejo
    [MS MVP - Visual Studio y Tecnologías de Desarrollo]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.

    • Marcado como respuesta Cael1020 martes, 19 de diciembre de 2017 3:41
    lunes, 18 de diciembre de 2017 22:29
    Moderador