2 responses to “Loading (.csv) file to listview”

• 

  Hernan November 3rd, 2009 at 17:09

  I used this one to load .cvs :

  Private Sub CargarInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CargarInfoToolStripMenuItem.Click

  ‘FUNCION PARA EL CARGAR DATOS O EL LOAD !!
  Dim TotalNombres, Cumpleanieros, HoyDia, HoyMes, HOY As String
  Dim elimextra, y As Integer
  Dim sPathCsv As String
  Dim sDelimitador As String

  Try ‘ ABRE EL DIALOG BOX

  Dim filename As String
  filename = “nada”

  ‘They want to do a SaveAs, so find out what they want to name the file

  Dim openFileDialog As OpenFileDialog = New OpenFileDialog()

  openFileDialog.Title = “Open File”
  openFileDialog.Filter = “Files (*.csv)|*.csv|All Files (*.*)|*.*”

  openFileDialog.DefaultExt = “csv”

  openFileDialog.AddExtension = True

  If openFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

  filename = openFileDialog.FileName

  ElseIf Windows.Forms.DialogResult.Cancel Then

  Exit Sub

  End If

  ListView1.Clear()
  ListView1.Columns.Add(”Nombres”).Width = 75
  ListView1.Columns.Add(”Apellidos”).Width = 75
  ListView1.Columns.Add(”Dia”).Width = 50
  ListView1.Columns.Add(”Mes”).Width = 50
  ListView1.Columns.Add(”Año”).Width = 50
  ListView1.Columns.Add(”Hora”).Width = 50
  ListView1.Columns.Add(”Minuto”).Width = 50
  ListView1.Columns.Add(”Email”).Width = 75
  ListView1.Columns.Add(”Email”).Width = 75
  ListView1.Columns.Add(”Web”).Width = 75
  ListView1.Columns.Add(”Telefono”).Width = 75
  ListView1.Columns.Add(”Celular”).Width = 75
  ListView1.Columns.Add(”Foto”).Width = 75
  ListView1.Columns.Add(”Info”).Width = 75
  ListView1.Columns.Add(”Fecha De Captura”).Width = 75

  With ListView1

  sPathCsv = filename
  sDelimitador = “,”
  ‘ recorre el vector y añade las cabeceras

  ‘ Abre el archivo para leer cada línea
  Dim sr As New IO.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

  ListView1.Items(0).Remove() ‘Elimina Primera Linea que es TITULO

  elimextra = ListView1.Items.Count - 1 ‘Linea Extra se añadió

  ListView1.Items(elimextra).Remove() ‘Se Elimina esta linea extra

  ‘ error

  Catch ex As Exception
  MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
  End Try

  ‘/ La funcion que pinta de colores las líneas
  ‘For i = 1 To ListView1.Items.Count Step 2
  ‘ListView1.Items(i).BackColor = Drawing.Color.LightGray
  ‘Next i

  ‘CONTADOR EN MAIN
  TextBoxPersonasCapturadas.Text = ListView1.Items.Count

  ‘AVISO DE CUMPLEAÑOS DE HOY
  HOY = DateTime.Now
  HoyDia = Mid(HOY, 1, 2)
  HoyMes = Mid(HOY, 4, 2)
  TotalNombres = ListView1.Items.Count

  For y = 1 To TotalNombres
  If HoyDia = ListView1.Items(y - 1).SubItems(2).Text And HoyMes = ListView1.Items(y - 1).SubItems(3).Text Then
  Cumpleanieros = “SI”
  End If
  Next

  If Cumpleanieros = “SI” Then
  MsgBox(”Cumpleaños Presentes Para Hoy “, MsgBoxStyle.Information, “Aviso De Cumpleaños”)
  End If
  End Sub

• 

  Hernan November 4th, 2009 at 16:06

  the code I place here its programmed in Visual Basic Express 2008 , works for me and has a few spanish languague .. jejeje