none
Recorrer TextBox hasta leer todo el contenido RRS feed

  • Pregunta

  • Igual mi pregunta esun poco tonta, pero no se como recorrer todo el textbox hasta que se haya leido todo el contenido..

    El formato de texto del textbox es el siguiente:

    Seat
    Ibiza
    Sport
    2003
    tdi
    16v
    66.000km

    Citroen
    xsara
    advantage
    2001
    gt
    12v
    120.000km

    Peugeot
    307
    fullequipe
    2006
    tdi
    16v
    90.000km

    Entonces tengo una funcion que pasa los datos del textbox a un datagridview, el problema esta en que solo se pasa un unico Row con el primer grupo, en este caso seat, ibiza, sport, 2003, tdi, 16v, 66.000km

    Asi es como lo estoy haciendo

    Dim row As Integer = DataGridView1.Rows.Count
            Dim array As String() = TextBox1.Text.Trim.Split(vbCrLf)
            DataGridView1.Rows.Add()
            For i As Integer = 0 To array.Length - 1
                DataGridView1.Rows(row - 1).Cells(i).Value = array(i)
            Next


    viernes, 13 de junio de 2014 16:58

Respuestas

  • Algo así

    Dim celdas(7) As String
    
    For index = 0 To TextBox1.Lines.Length Step 8
    	Array.Copy(TextBox1.Lines, index, celdas, 0, 7)
    	DataGridView1.Rows.Add(celdas)
    Next
    

    • Marcado como respuesta JaviPatch sábado, 14 de junio de 2014 8:23
    viernes, 13 de junio de 2014 23:52

Todas las respuestas

  • Hola si lo que quieres es pasar los datos de un textbox a un datagridview creo que te puede servir esto:

    For Each elemento As String In Textbox1.Lines
    
    Datagridview1.Rows.Add(elemento)
    
    Next

    Si te sirvió marcala como respuesta.




    • Editado LTNs viernes, 13 de junio de 2014 17:18
    viernes, 13 de junio de 2014 17:12
  • Gracias, pero creo que no me estas entendiendo..

    Te dejo una captura para que lo entiendas mejor:

    Como ves, en el textbox de la derecha tengo tres grupo de letras, pero solo se pasa correctamente el primer grupo al datagridview.. Necesito recorrer todo el textbox y que añada al datagrid todos los grupos.



    • Editado JaviPatch viernes, 13 de junio de 2014 18:05
    viernes, 13 de junio de 2014 17:56
  • Algo así

    Dim celdas(7) As String
    
    For index = 0 To TextBox1.Lines.Length Step 8
    	Array.Copy(TextBox1.Lines, index, celdas, 0, 7)
    	DataGridView1.Rows.Add(celdas)
    Next
    

    • Marcado como respuesta JaviPatch sábado, 14 de junio de 2014 8:23
    viernes, 13 de junio de 2014 23:52
  • Muchas gracias, funciona perfectamente!
    sábado, 14 de junio de 2014 8:23