Txt a visual Studio

[sagma]

que tal amigo, encontré este ejemplo en la red, pero no me acuerdo de donde lo baje.

Con esto cargas los datos a un ListView.

Código:

    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        ' inicializar el array para los encabezados de columna
        Dim aCol() As String = {"Nombre", "Apellido", "Teléfono"}
        ' cargar el archivo csv en el ListView 
        '( control listview, path csv, vector, delimitador)
        Cargar_Csv(lv, "datos.csv", aCol, ",")
    End Sub

Código:

Private Sub Cargar_Csv( _
        ByVal lv As ListView, _
        ByVal sPathCsv As String, _
        ByVal aColumnHeader As String(), _
        ByVal sDelimitador As String)
        Try

            ' verificar que la ruta sea correcta
            If File.Exists(sPathCsv) = False Then
                MsgBox("No se encontró el archivo: " & sPathCsv)
                Exit Sub
            End If

            With lv

                .Columns.Clear() ' eliminar todos los encabezados
                .Items.Clear() ' eliminar todos los items cargados

                ' recorre el vector y añade las cabeceras
                For i As Integer = 0 To UBound(aColumnHeader)
                    .Columns.Add(aColumnHeader(i)).ToString()
                Next
                .View = View.Details ' vista detalle

                ' Abre el archivo para leer cada línea
                Dim sr As New StreamReader(sPathCsv)
                Dim aDatos() As String ' vector para el cvs

                ' recorrer todas las líneas hasta el final del archivo
                Do While (sr.Peek >= 0)
                    ' leer la línea y separar los datos con split
                    aDatos = sr.ReadLine.Split(sDelimitador)

                    ' listview: Añadir los items y SubItems
                    ''''''''''''''''''''''''''''''''''''''''''''''''
                    Dim Item As New ListViewItem(aDatos(0).ToString)
                    For i As Integer = 1 To UBound(aDatos)
                        With Item
                            .SubItems.Add(aDatos(i).ToString)
                        End With
                    Next
                    .Items.Add(Item)
                Loop
                sr.Close() ' cierra el streamReader
            End With
            ' error
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub

Suerte