EXPORTATION DU CODE SOURCE AVEC COLORATION SYNTAXIQUE EN HTML

Signaler
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Messages postés
6
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
23 novembre 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54983-exportation-du-code-source-avec-coloration-syntaxique-en-html

Salut Hackoo.

En effet, j'ai mis un "0" à la place du "1" à la ligne 269 et c'est parfait. C'est comme ça que j'aime qu'un programme me parle. :-)

Maintenant, je vais étudier le fait de créer ce même programme pour coller plus spécialement à un langage spécifique, car il semble que pour l'instant il décortique le VBS non ?. En effet, il serais intéressant de coller à d'autre langages en reprenant par exemple la façon dont Visual Studio affiche le code source Visual Basic. Tu comprend ?

Sur ce, bonne fin de journée.
Messages postés
6
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
23 novembre 2013
> vicmac
Salut Hackoo,

comme vicmac, j'ai été un peu embêté que le message qui dit "la conversion est terminée...." s'efface très vite (on a à peine le temps de lire le texte).
De plus, au lieu de l'affichage du résultat, j'ai eu le message
"Cette page Web est introuvable."
Donc je n'ai pu tester réellement la conversion.
j'utilise Chrome et Windows 7 .
D'après ce que j'ai lu ci-dessus, étant donné qu'un fichier HTA s'exécute à partir du navigateur web Internet Explorer 4.0 ou ultérieur, ce serait la raison de mes ennuis?
J'ai tenté de convertir un fichier de code d'un module VBA est-ce permis ?

Je trouve souhaitable d'inscrire ces 'limitations' dans le fichier readme.txt.

Merci de m'éclairer
Messages postés
92
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013

Salut VICMAC !
A propos du Message affiché après la conversion ce n'est pas surprenant car j'ai utilisé la méthode Ws.popup au lieu du MsgBox.

Syntaxe de la méthode Ws.popup :
intButton = objet.Popup(strText,[nSecondsToWait],[strTitle],[nType])
Objet : WshShell.
strText :
Valeur de chaîne contenant le texte que vous voulez faire apparaître dans une fenêtre de message contextuelle.
nSecondsToWait :
Facultatif. Valeur numérique indiquant la durée maximale (en secondes) pendant laquelle vous voulez que la fenêtre de message contextuelle soit affichée.
strTitle :
Facultatif. Valeur de chaîne contenant le texte que vous voulez voir apparaître comme titre de la fenêtre de message contextuelle.
nType :
Facultatif. Valeur numérique indiquant le type de boutons et d'icônes que vous voulez voir dans la fenêtre de message contextuelle. Cela détermine la façon dont la fenêtre de message est utilisée.
IntButton :
Nombre entier indiquant le nombre de boutons sur lesquels l'utilisateur a cliqué pour enlever la fenêtre de message. Il s'agit de la valeur renvoyée par la méthode Popup.

La méthode Popup affiche une fenêtre de message, quelque soit le fichier exécutable hôte en cours d'exécution (WScript.exe ou CScript.exe). Si nSecondsToWaitis équivaut à zéro (par défaut), la fenêtre de message contextuelle reste visible jusqu'à ce qu'elle soit fermée par l'utilisateur. Si nSecondsToWaitis est supérieur à zéro, la fenêtre de message contextuelle se ferme après nSecondsToWait secondes.

Un petit exemple de Code qui utilise la méthode ws.popup "Alarme.vbs" :
'*************************************************************************

Titre = "Alarme"
Set ws = CreateObject("wscript.Shell")
alarmDansMin = Trim ( InputBox( "Dans combien de minutes voulez-vous déclenchez l'alarme ?",Titre, "40") )
If alarmDansMin = "" Then Wscript.Quit
If Not IsNumeric(alarmDansMin) or alarmDansMin <= 1 Then
ws.Popup "Il faut Taper un Nombre strictement supérieur à 1 !","2",Titre,0+16 'Afficher un Popup durant 2 secondes puis quitte le script
Wscript.Quit
End if
sMessage = "Reste " & alarmDansMin/2 & " minutes !"
alarmDansmmsec = alarmDansMin*60*1000 'en millisecondes
alaramSecondes = alarmDansMin*60 'en secondes
nMinutes = alarmDansMin/2
WScript.sleep alarmDansmmsec/2
nSeconds = 0
sMessage = " ALARME "
' Open a chromeless window with message
with HTABox("lightBlue", 175, 450, 400,100)
.document.title = "Notification"
.msg.innerHTML = sMessage
do until .done.value or (nMinutes + nSeconds < 1)
.msg.innerHTML = sMessage & "
" & nMinutes & ":" & Right("0"&nSeconds, 2) _
& " restantes
"
wsh.sleep 1000 ' milliseconds
nSeconds = nSeconds - 1
if nSeconds < 0 then
if nMinutes > 0 then
nMinutes = nMinutes - 1
nSeconds = 59
end if
end if
loop
.done.value = true
.close
end with
ws.Popup "C'est FINI !","5",Titre,0+64 'Afficher un Popup durant 5 secondes puis quitte le script
'wscript.echo "process goes here ..."
' script ends here
Function HTABox(sBgColor, h, w, l, t)
Dim IE, HTA, sCmd, nRnd
randomize : nRnd = Int(1000000 * rnd)
sCmd = "mshta.exe ""javascript:{new " _
& "ActiveXObject(""InternetExplorer.Application"")" _
& ".PutProperty('" & nRnd & "',window);" _
& "window.resizeTo(" & w & "," & h & ");" _
& "window.moveTo(" & l & "," & t & ")}"""
Set WshShell = WScript.CreateObject("WScript.Shell")
with CreateObject("WScript.Shell")
.Run sCmd, 1, False
do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
end with 'WSHShell
For Each IE In CreateObject("Shell.Application").windows
If IsObject(IE.GetProperty(nRnd)) Then
set HTABox = IE.GetProperty(nRnd)
IE.Quit
HTABox.document.title = "HTABox"
HTABox.document.write _
"<HTA:Application contextMenu=no border=thin " _
& "minimizebutton=no maximizebutton=no sysmenu=no />" _
& "" _
& "" _
& "<center>
" _
& "<center>"
HTABox.btn1.focus
Exit Function
End If
Next
MsgBox "HTA window not found."
wsh.quit
End Function
Salut Hackoo. OK, j'ai tout compris. Je me souvient maintenant, j'ai beaucoup utilisé les fichiers HTA pour sauvegarder des pages html dans un seul fichier sans s'encombrer d'un dossier attaché. Depuis j'utilise surtout Chrome et malheureusement, il ne sais pas gérer le HTA on dirais, donc j'avais perdu de vue ce genre de fichier.

J'ai essayé avec divers sources (.vbs, .vb, .js...) ça marche sans problème.

Juste un truc, le message qui dit "la conversion est terminée...." tout d'un coup, saute à l'affichage du résultat. C'est un peux surprenant. Ne pourrais-il pas y avoir avec ce message un truc disant ""Entrée, pour voir le résultat. ?
Afficher les 7 commentaires