Gambas Forge BETA

Espace Membres Connexion Inscription
Vous devez être connecté pour accéder au chat.

gb.html

À propos de ce code

Ce petit composant fait en C++ vous permet de manipuler des documents HTML pour créer des pages web, ou pour les lire depuis un site web. Vous pouvez le manipuler comme un arbre DOM, charger du HTML depuis un fichier texte ou une chaîne de caractères, rechercher des éléments via une règle CSS et plein d'autres choses encore.
Par ailleurs, ce composant est utilisé pour générer les pages web de GambasForge. ;)

Code source

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Sub Main()

Dim doc As New HtmlDocument 'Créons le document HTML sur lequel nous allons travailler
Dim element As HtmlElement 'Un élément HTML sur lequel nous travaillerons plus tard

Print doc.Content 'On affiche le contenu du document vierge
'On remarquera que celui-ci n'est pas totalement vide.
'Les éléments essentiels (Doctype, <html>, <head>, <body> et le charset UTF-8 sont ajoutés par défaut.

Print "===================================="

doc.Html5 = True 'Ici je modifie le doctype du document pour le rendre compatible avec la norme HTML5
'Par défaut, le document est en xHTML Strict 1.0

doc.Title = "Une belle page web !" 'Je mets un beau titre pour ma page web, qui apparaîtra dans le navigateur
doc.Favicon = "images/favicon.ico" 'Une petite icône pour faire joli
doc.StyleSheets.Add("css/main.css") 'Ici j'ajoute un fichier CSS à moi pour pas que ça soit trop moche
doc.StyleSheets.Add("css/mobile.css", "handheld") 'Je peux aussi choisir de le lier pour un média précis
doc.StyleSheets.AddIfIE("css/iecorrections.css") 'Et aussi le lier uniquement le CSS pour Internet Explorer (pratique !)

'À présent, occupons-nous un peu du contenu de notre page web (qui est pour l'instant toute blanche)

doc.Body.AppendFromText("<h1>Une page web !</h1>")
'Ici j'accède au corps de ma page (via la propriété Body) et j'y injecte directement du code HTML
'J'aurai donc un beau titre dans ma page web

doc.Body.AppendFromText("<p>Ceci est une page web <strong>extrêmement</strong> simpliste créée avec le magnifique "
"composant <em>gb.html</em>. Ça jette non ?</p>"
'De même, j'ajoute un paragraphe et un peu de blabla dedans

element = New HtmlElement("p") 'Je crée un nouvel élément de paragraphe
doc.Body.AppendChild(element) 'Ensuite je l'ajoute au corps du document
element.TextContent = "Hé vous avez vu ? "''Et je définis le texte qu'il contient
element.AppendFromText("<strong>Tous</strong> les caractères UTF-8 marchent tout seuls ! « àéèêëÀÉÈÊË »"
'Je peux aussi injecter du HTML dans l'élément comme je le faisais tout à l'heure

Print element.TextContent 'Ici je récupère uniquement le texte contenu dans le paragraphe (sans les balises HTML)

Print "===================================="
Print doc.Content 'On affiche le document final.

File.Save(User.Home &/ "test.html", doc.Content) 'On peut également le sauvegarder sur le disque
'Essayez donc de l'ouvrir dans votre navigateur pour voir le résultat !


End

Commentaires

Connexion