Generer des fichiers html

Télécharger le projet
Commenter

Description

bon ce matin on ma demander si c'etait possible d'avoir une sorte de bilan final après un taitement de calcul sur un prog en VB, mais que ce soit lisible, imprimable, sauvegardable, qu'on puisse n y envoyé par courrier, etc... j'ai donc choisie le HTML pour çà.

J'ai donc crée un bout de Module pour générer des fichiers HTML simplement mais ne vous emballez pas, c'est très loin d'etre evoluer !

Mais çà peut très bien servir pour un debutant ou etre un debut de projet !

Bon Code

Damien.

Source / Exemple : 


Option Explicit

'----------------------------------------------------------
'                      /
' ^   ^               /
' |   | <-----> |    |   ^
' |   |    |    |\  /|   |
' <--->    |    <-\/->   |
' |   |    |    |/   |   |
' |   |    |    |    |   |____
' ^   ^        /
'             /
'
' Module de création de fichiers HTML
' LEVEUGLE Damien (c) 2005.
' mailto:elguevel@free.fr
'
'----------------------------------------------------------

'*************************
'* Creer le fichier HTML *
'*************************
Public Function CreateHTML(fichier As String, Optional Titre As String = "Bilan") As Integer

    Dim NumFichier As Integer
    NumFichier = FreeFile

    Open fichier For Output As NumFichier

    Print #NumFichier, "<HTML>"
    ' ENTETE HTML
    Print #NumFichier, "<HEAD>"
    Print #NumFichier, "<TITLE>" & Titre & "</TITLE>"
    ' STYLE (CSS)
    Print #NumFichier, "<STYLE type=""text/css"">"
    Print #NumFichier, "td { font: 12px Verdana, Arial, Helvetica, sans-serif; color: #000000; border-top: 1px none #666666; border-right: 1px none #666666; border-bottom: 1px inset #666666; border-left: 1px none #666666; }"
    Print #NumFichier, ".First { color: #000000; background: #00CC66; border: #333333; text-align: center; }"
    Print #NumFichier, ".Normal{ color: #000000; background: #CCCCCC; }"
    Print #NumFichier, "h1 { font-size: 24px; font-weight: bold; }"
    Print #NumFichier, "h2 { font-family: Arial, Helvetica, sans-serif; font-size: 36px; text-align: center; }"
    Print #NumFichier, "</STYLE>"
    Print #NumFichier, "</HEAD>"
    ' BODY
    Print #NumFichier, "<BODY>"

    CreateHTML = NumFichier

End Function

'********************
'* Creer un tableau *
'********************
Public Sub CreateTableau(ID As Integer, entete As String, Optional NombreColonne As Integer = 1)

    Print #ID, "<TABLE border=""1"">"
    Print #ID, "<TR class=""First""><TD colspan=""" & CStr(NombreColonne) & """ >" & entete & "</TD></TR>"
 
End Sub

'********************************
'* Ajouter un titre sur la page *
'********************************
Public Sub AddTitle(ID As Integer, Titre As String, Optional TitreDePage As Boolean = False)
    
    If TitreDePage = False Then
        Print #ID, "<p><h1>" & Titre & "</h1></p>"
    Else
        Print #ID, "<p><h2>" & Titre & "</h2></p>"
    End If
End Sub

'********************************
'* Ajouter un titre sur la page *
'********************************
Public Sub AddComment(ID As Integer, Commentaire As String)

    Print #ID, "<br><p>" & Commentaire & "</p><br>"
    
End Sub

'*************************************
'* Ajoute des lignes dans un tableau *
'*************************************
Public Sub AddLine(ID As Integer, FirstColor As Boolean, ParamArray StructLigne() As Variant)
    
    Dim X As Integer

    Print #ID, "<TR>"

    For X = 0 To UBound(StructLigne)
        
        If (X = 0) And (FirstColor = True) Then
            Print #ID, vbTab & "<TD Class = "" & First & "">" & CStr(StructLigne(X)) & "</TD>"
        Else
            Print #ID, vbTab & "<TD Class = "" & Normal & "">" & CStr(StructLigne(X)) & "</TD>"
        End If
    
    Next

    Print #ID, "</TR>"
    
End Sub

'********************
'* Ferme le tableau *
'********************
Public Sub CloseTableau(ID As Integer)

    Print #ID, "</TABLE>"
    Print #ID, "<BR><BR>"
    
End Sub

'*************************
'* Ferme le fichier HTML *
'*************************
Public Sub CloseHTML(ID As Integer)

    Print #ID, "</BODY>"
    Print #ID, "</HTML>"
    Close #ID

End Sub

Conclusion :


Ba laissez vos questions si vous en avez ...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (elguevel)