Error con VB.net 2008

[jgallego87]

Hola, estoy queriendo hacer una aplicacion que haga lo siguiente:
Lea un archivo .DEL y lo cargue en un DataGridView (Si... se que asignandole un Source es mucho mas facil, pero necesito que se cargue de esta manera).
El tema es que ya probe de varias formas y lo que me pasa es que solo carga una columna con las longitudes de los datos y no los datos :s

el .DEL tiene 27 campos separados por coma y aproximadamente 20 registros. Les adjunto el codigo:

Dim sLine As String
Dim valores() As String
Dim arrText As New ArrayList()


ofd1.InitialDirectory = "C:\"
ofd1.ShowDialog()
lblPath.Text = ofd1.FileName
'se lee el archivo
Dim objReader As New StreamReader(ofd1.FileName)
Dim z As Integer
'-------------------
z = -1
For
Try
'sLine = objReader.ReadLine()
'If Not sLine Is Nothing Then
' arrText.Add(sLine.Split(","))
' z = z + 1
' End If
'cargo el DataSheet
'valores = sLine.Split(",")
'dgv1.DataSource = arrText.Item(z)
dgv1.DataSource = Split(objReader.ReadLine(), ",")
'If Not sLine Is Nothing Then
'arrText.Add(sLine)
'End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Loop Until sLine Is Nothing
objReader.Close()


End Sub


Hay varias cosas comentadas de varios intentos que realice, alguien podria ayudarme por favor!!!??

[Aquaventus]

Hola jgallego87 Bienvenido al foro!, en una parte andas bien, pero para que leas linea por linea usa el peek, y mediante el array llenar el datagridview :

Asumo que tienes tus columnas hechas en tu datagridview

Código vb:

'El fullpath de tu archivo
        Dim archivo As String = "C:\Archivos de Programas\...."
 
        'Creo un arraypara almacenar los campos
        Dim campos() As String
 
        ' Comprobar que existe
        If System.IO.File.Exists(archivo) = False Then
            MessageBox.Show("Debes indicar un fichero que exista", _
                        "Leer fichero", _
                        MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        End If
 
        'Creo un StremReader para leer el archivo
        Dim sr As New System.IO.StreamReader(archivo)
 
        'Recorro con el peek mientras no llegue al final
        While sr.Peek() <> -1
            ' Leer una linea del fichero
            Dim s As String = sr.ReadLine()
            'Paso los campos separados por ',' al arreglo de cadenas
            campos = s.Split(",")
            'Paso los valores del arreglo al datagridview y agrego una fila
            DataGridView1.Rows.Add(campos(0), campos(1), campos(2), campos(3),..,campos(26))
 
        End While
        'Cierro el StreamReader
        sr.Close()
 

Espero leas y lo entiendas. Saludos!.

[jgallego87]

MUCHAS gracias por tu respuesta y tambien por tu bienvenida.... en cuanto a lo que decis, no, no tengo creadas las columnas por que pueden ser tanto 20 como 23 como 27 los registros. Conoces alguna forma para agregarlos a medida que va siendo necesario?

Nuevamente te agradezco mucho la respuesta!

[Aquaventus]

Haber... los registros no importan ya que se agregaran por filas, pero debes saber cuanta cantidad de columnas tiene para definir la estructura de tu grilla.

[jgallego87]

Perdon, quise decir columnas... puedo tener de 20 a 27 datos y a su vez entre 20 y 30 registros. Es por eso que no las creo en VB.

[Aquaventus]

Mmmm... pero esos registros que tienes como esta estructurado? muestrame el texto que tienes en tu archivo.

[jgallego87]

1234,91414,20100630,4,0001279610,,USUARIO,TIPO,0,N D,ND,ND,999,VE,0,141,0,20100528,15541,,110,ABC,426 ,,USUARIO,VE,N
9994,91414,20100331,4,0002564500,,USUARIO,,0,ND,ND ,ND,999,CA,0,141,0,20100121,3750,,45,DEF,171,,USUA RIO,CA,N
0835,91414,20100630,4,0002564500,,USUARIO,,0,ND,ND ,ND,999,CA,0,141,0,20100514,33312,,300,GHI,1161,,U SUARIO,CA,N
5300,91414,20100630,4,0002564500,,USUARIO,,0,ND,ND ,ND,999,CA,0,141,0,20100526,35129,,45000,JKL,302,, USUARIO,CA,N
2221,91414,20100630,4,0002564500,,USUARIO,,0,ND,ND ,ND,999,CA,0,141,0,20100526,35132,,50,MNO,195,,USU ARIO,CA,N,NUMERO_TELEFONICO, RELACION, SECTOR



Ese es un ejemplo, los primeros 4 registros tienen la misma cantidad de columnas, pero el ultimo tiene mas.... no me molestaria que queden en blanco si no tienen datos, pero si necesitaria que en caso de que un registro necesite mas columnas se puedan crear.

[Aquaventus]

bueno jgallego87 mañana me conecto y seguimos, ahora ando saliendo del trabajo, pero te adelanto que para ello debes saber toda la longitud que va a tener tu tabla todas las columnas y asi como está definido en tu texto lo veo alguito complicado, espero que los demas compañeros puedan seguir apoyandote. Conmigo hasta mañana! Saludos!.

[jgallego87]

Te agradezco mucho por la ayuda. veo cual es el total de campos y lo hago como me dijiste. Muchas Gracias!