Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Exportar contenido de ListView de VB.Net a fichero CSV Excel
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Exportar contenido de ListView de VB.Net a fichero CSV Excel

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Exportar contenido de ListView de VB.Net a fichero CSV Excel Responder citando

Estoy desarrollando una aplicación con VB.Net Visual Basic .Net, uso la versión que viene con Visual Studio .Net 2010. Tengo un componente de tipo ListView con varias columnas donde muestro una serie de datos ¿cómo puedo exportar estos datos del ListView a un fichero CSV separado por comas o punto y coma? este tipo de ficheros CSV he leído que se abren con Microsoft Office Excel, con OppenOffice Calc o con LibreOffice Calc.
MensajePublicado:
Lun Abr 25, 2011 6:22 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Exportar contenido de ListView de VB.Net a fichero CSV E Responder citando



Anuncios



varios escribió:
Estoy desarrollando una aplicación con VB.Net Visual Basic .Net, uso la versión que viene con Visual Studio .Net 2010. Tengo un componente de tipo ListView con varias columnas donde muestro una serie de datos ¿cómo puedo exportar estos datos del ListView a un fichero CSV separado por comas o punto y coma? este tipo de ficheros CSV he leído que se abren con Microsoft Office Excel, con OppenOffice Calc o con LibreOffice Calc.


En el siguiente enlace tienes un procedimiento que exporta un ListView pasado como parámetro a fichero CSV:

http://www.ajpdsoft.com/modules.php?name=Content&pa=showpage&pid=251
MensajePublicado:
Lun Abr 25, 2011 6:38 pm
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Exportar contenido de ListView de VB.Net a fichero CSV E Responder citando



Anuncios



alonsojpd escribió:

En el siguiente enlace tienes un procedimiento que exporta un ListView pasado como parámetro a fichero CSV:

http://www.ajpdsoft.com/modules.php?name=Content&pa=showpage&pid=251


Lo he probado y funciona, pero no va bien si hay en el texto el carácter ";" ¿cómo puedo separarlos por comillas dobles y por punto y coma? sería algo así:

"campo1";"campo2";"campo3"
MensajePublicado:
Lun Abr 25, 2011 7:21 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Exportar contenido de ListView de VB.Net a fichero CSV E Responder citando



Anuncios



varios escribió:
Lo he probado y funciona, pero no va bien si hay en el texto el carácter ";" ¿cómo puedo separarlos por comillas dobles y por punto y coma? sería algo así:

"campo1";"campo2";"campo3"


Puedes usar esto:

Código:

    Private Sub exportarListViewCSV(ByVal lstview As ListView, ByVal ficheroCSV As String)
        Dim lineasCSV As New System.Text.StringBuilder
        Dim lineaActual As String = String.Empty

        'Escribir nombre de columnas y encabezados en la variable temporal
        For columnIndex As Int32 = 0 To lstview.Columns.Count - 1
            lineaActual &= (String.Format(Chr(34) & "{0}" & Chr(34) & ";", lstview.Columns(columnIndex).Text))
        Next

        'Quitar la coma final
        lineasCSV.AppendLine(lineaActual.Substring(0, lineaActual.Length - 1))
        lineaActual = String.Empty

        'Escribir los datos del ListView en la variable temporal
        For Each item As ListViewItem In lstview.Items
            For Each subItem As ListViewItem.ListViewSubItem In item.SubItems
                lineaActual &= (String.Format(Chr(34) & "{0}" & Chr(34) & ";", subItem.Text))
            Next

            'Quitar coma final
            lineasCSV.AppendLine(lineaActual.Substring(0, lineaActual.Length - 1))
            lineaActual = String.Empty
        Next

        'Guardar datos variable temporal a fichero CSV
        Dim Sys As New System.IO.StreamWriter(ficheroCSV)
        Sys.WriteLine(lineasCSV.ToString)
        Sys.Flush()
        Sys.Dispose()
    End Sub


En realidad sólo hemos cambiado (String.Format("{0};", por:

(String.Format(Chr(34) & "{0}" & Chr(34) & ";",
MensajePublicado:
Lun Abr 25, 2011 7:25 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A