Je veux faire un genre de convertisseur TXT2HTML ou bien CODE2HTML et je veux ajouter un lien ou bien un bouton pour sélectionner tout le code source après la génération de la page en HTML voici l'idée initiale
Alors, ma question est : comment ajouter un lien ou bien un bouton pour sélectionner tout le code source de cette page en HTML après sa génération ?
C'est comme le lien du Sélectionner tout de la balise [ code ] [ \code ] du BBcode

Voici un exemple après sa génération en HTML :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
<HTML>
<HEAD><TITLE>Export au format HTML</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<style type='Text/css'>
<!--
BODY {background:lightcyan;
margin-top:10; margin-left:10; margin-right:0;
font-family: Lucida Console, Tahoma, Verdana, Arial, Helvetica, sans-serif;
font-size: 14px;
}
.commentaire {
color: #669933;
}
.chaine {
color: Red
}
.key {
color: #0033BB;
}
.type {
font-weight: bold;
color: #3366CC;
}
-->
</style>
</HEAD>
<BODY>
<pre class="alt2" dir="ltr"><table cellspacing="0" cellpadding="0"><tr><td valign="top" width="33"><div style="border: 1px dashed red; padding-left: 5px; padding-right: 5px; margin-right: 5px; text-align: center; font-family: monospace"><font color="Red">1</font>.<br /><font color="Red">2</font>.<br /><font color="Red">3</font>.<br /><font color="Red">4</font>.<br /><font color="Red">5</font>.<br /><font color="Red">6</font>.<br /><font color="Red">7</font>.<br /><font color="Red">8</font>.<br /><font color="Red">9</font>.<br /><font color="Red">10</font>.<br /><font color="Red">11</font>.<br /><font color="Red">12</font>.<br /><font color="Red">13</font>.<br /><font color="Red">14</font>.<br /></div></td><td valign="top"><pre style="margin: 0"><span class=key>Dim</span> oFSO
<span class=key>Set</span> oFSO = CreateObject(<span class=chaine>"Scripting.FileSystemObject"</span>)
CheminFichier = <span class=chaine>"C:\Documents and Settings\Administrateur\Bureau\Dossier\monprogram.exe"</span>
CheminRaccourci = <span class=chaine>"C:\Documents and Settings\Administrateur\Bureau\monprogram.lnk"</span>
<span class=key>If</span> oFSO.FileExists(CheminFichier) <span class=key>Then</span>
    oFSO.DeleteFile CheminFichier,<span class=key>True</span>
<span class=key>Else</span>
    MsgBox <span class=chaine>"Le fichier n'existe pas"</span>,16,<span class=chaine>"Le fichier n'existe pas"</span>
<span class=key>End</span> <span class=key>If</span>
<span class=key>If</span> oFSO.FileExists(CheminRaccourci) <span class=key>Then</span>
    oFSO.DeleteFile CheminRaccourci,<span class=key>True</span>
<span class=key>Else</span>
    MsgBox <span class=chaine>"Le fichier n'existe pas"</span>,16,<span class=chaine>"Le fichier n'existe pas"</span>
<span class=key>End</span> <span class=key>If</span>
</td></tr></table></pre>
</BODY>
</HTML>