Les Snippets

Connexion

Exporter le contenu d'une listview au format html

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 03/03/2007 00:39:53 et initié par PCPT [Liste]
Vue : 2418
Catégorie(s) : Chaîne de caractères, Divers, Control
Langages dispo pour ce code :
- VB6, VBA



Langage : VB6 , VBA
Date ajout : 03/03/2007
Posté par PCPT [Liste]
Public Function GetHtmlFromListView(LV As ListView) As String
    Dim As Integer, j As Integer, sTemp As String
    GetHtmlFromListView = "<TABLE  WIDTH=""95%"" BORDER=""1"" BORDERCOLORLIGHT=""#CCCCCC""  BORDERCOLORDARK=""#66CCFF"">" & vbCrLf
    
'    headers
    GetHtmlFromListView = GetHtmlFromListView & "  <TR BGCOLOR=""#CCCCFF"">" & vbCrLf
    For i = To LV.ColumnHeaders.Count
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""3""><B>" & LV.ColumnHeaders(i).Text & "</B></FONT></TD>" & vbCrLf
    Next i
    GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
'    data
    For i = To LV.ListItems.Count
        GetHtmlFromListView = GetHtmlFromListView & "  <TR>" & vbCrLf
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & LV.ListItems(i).Text & "</FONT></TD>" & vbCrLf
        For j = To LV.ColumnHeaders.Count - 1
            sTemp = LV.ListItems(i).SubItems(j)
            If LenB(sTemp) = Then sTemp = "&nbsp;"
            sTemp = Replace(sTemp, "<""&lt;")
            sTemp = Replace(sTemp, ">""&gt;")
            GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & sTemp & "</FONT></TD>" & vbCrLf
        Next j
        GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
    Next i
    
'    fin
    GetHtmlFromListView = GetHtmlFromListView  & "</TABLE>" & vbCrLf
End Function

Remarque :
la listview doit avoir au moins une celulle
la fonction retourne la chaîne à enregistrer.
voir sur codyx pour transformer une couleur OLE en HTM et comment enregistrer un fichier, pour personnaliser cette fonction selon vos besoins

Snippets en rapport avec : Html, Listview, Exporter



Codes sources en rapport avec : Html, Listview, Exporter

{C / C++ / C++.NET} TUPEUPASTEPLANKER1.0
Un petit programme de recherche de fichier par système de pile type FIFO (conteneur standard deque)a...

{C / C++ / C++.NET} GESTION DES ENTREES/ SORTIES AVEC CODEBARRE
Mon programme permet de gerer les equipements en utilisant la base de données MYSQL avec le code bar...

{C# / C#.NET} [WPF]LINQUERY - INTERFACE DE GESTION DE DATABASE
LinQuery est une interface de gestion de base de donnée Access et SQL Server, écrit en C# via WPF. ...

{C# / C#.NET} LISTVIEW : TRI MONO OU MULTICOLONNES PROGRAMMÉ OU PAR CLICK DE COLONNE TENANT COMPTE DU TYPE DE DONNÉES À TRIER
Ayant pas mal cherché des sources pour faire des tris de colonnes de ListView, j'ai réalisé mon gest...

{Visual Basic, VB6, VB.NET, VB 2005} EXTRACTION CODE HTML, EDITION DYNAMIQUE DE FICHIER HTML (MARCHE EN VB6)
A plusieurs reprises, j'ai trouvé des questions sur le forum portant sur la possibilité d'extraire l...

{PHP} VALIDER AUTOMATIQUEMENT UNE PAGE AVEC W3C (STANDARDS HTML XHTML)
Ce script permet de valider automatiquement une page HTML depuis votre site. Voici sa structure : ...

{Delphi} EDITER HTML AVEC TEMBEDDEDED + 2 DEMOS
Compo gratuit qui n' est plus mis à jour d' édition de code HTML basé sur le TWebBrowser. !!! AT...

{Visual Basic, VB6, VB.NET, VB 2005} GESTION HEURE DE GARDE
Bien voila, c'est une petite appli sans prétention, qui permet de gerer les heures de garde de nos c...

{PHP} AFFICHER LA BALISE DESCRIPTION D'UN SITE, C'EST SI FACILE !
Ce code vous permet d'afficher la balise meta d'un site au choix ! J'explique un peut le principe ...

{PHP} CLASSE DE COUPAGE DE TEXTE HTML AVEC CONSERVATION DES BALISES
Bonjour, Cette classe permet de couper une chaîne de caractère à une longueur donnée. La chaîne s...