none
Saltar linea al cargar un CSV RRS feed

  • Pregunta

  • Hola estimados, tengo un DataGridView en donde estoy cargando un archivo de tipo csv, funciona perfectamente, pero quiero al archivo quitarle la primera linea, donde esta el encabezado de cada columna, ya que las columnas las asigne manualmente al DataGridView, les dejare el código a ver si puede alguien ayudarme a solucionar esto, muchas gracias.

     Private Sub btnCargarArchivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargarArchivo.Click
            Try
                Dim NombreArchivo As String = ""
                'DIRECTORIO INICIAL "Temp" DONDE CARGARA DESDE EL ULTIMO DIRECTORIO QUE SE UTILIZO.
                OpenFileDialog1.InitialDirectory = "c:\temp\"
                'INDICAMOS EL TIPO DE ARCHIVO (EXTENSIÓN) A CARGAR EN EL DATA GRID ".csv|.CSV".
                OpenFileDialog1.Filter = "CSV files (*.csv)|*.CSV"
                OpenFileDialog1.FilterIndex = 2
                OpenFileDialog1.RestoreDirectory = True
    
    
                'AL DAR CLICK EN EL BOTON GUARDA LA RUTA DEL ARCHIVO SELECCIONADO
                If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                    NombreArchivo = OpenFileDialog1.FileName
                End If
    
                'VARIABLES
                Dim TextLine As String = ""
                'VARIABLE DE ARREGLO TIPO STRING PARA GUARDAR LA LINEA SEPARADA DEL DELIMITADOR
                Dim SplitLine() As String
    
                'HACEMOS COMPROBACION QUE SI LA RUTA DEL ARCHIVO EXISTE, QUE REALICE LO SIGUIENTE
                If System.IO.File.Exists(NombreArchivo) = True Then
                    'CREA UN OBJETO PARA LEER EL ARCHIVO
                    Dim objReader As New System.IO.StreamReader(NombreArchivo)
                    'RECORREO EL ARCHIVO
                    Do While objReader.Peek() <> -1
                        'GUARDA EN LA VARIABLE TextLine LA LINEA QUE LEE ACTUALMENTE
                        TextLine = objReader.ReadLine()
                        'INDICAMOS QUE SEPARE LAS LINEAS DE TEXTO, INDICANDO QUE CONTIENE ;
                        SplitLine = Split(TextLine, (";"))
                        'AGREGA AL DATAGRIDVIEW LOS DATOS-
                        Me.DataGridViewX1.Rows.Add(SplitLine)
                    Loop
                Else
                    MsgBox("El archivo no existe!.", MsgBoxStyle.Information)
                End If
            Catch Ex As Exception
                MsgBox("Error al cargar el archivo!.", MsgBoxStyle.Critical + Ex.ToString)
            End Try
        End Sub

    Al cargar en la grilla queda asi;

    

    Pero como mencione, ya tengo las columnas y me gustaría que no agregara el encabezado del archivo csv, y que quede de la siguiente manera;

    A lo mejor la solución es básica pero estoy aprendiendo a usar vb.net

    GRACIAS..


    • Editado DaviBar viernes, 24 de noviembre de 2017 18:56
    jueves, 23 de noviembre de 2017 14:49

Respuestas

Todas las respuestas