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