VB TO HTML

El Manipulator - 4 juil. 2001 à 12:10
 icem@n - 30 juil. 2001 à 10:43
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/1432-vb-to-html

max12 : je les prends en charge mais je ne les colorise pas car VB dans sa version 6 du moins ne le fait pas non plus si cependant tu veux le faire tu peut enlever les commentaire des ligne suivante et changer la constante par une nouvelle du choix de tacouleur :
Case Chr(34) ' les strings (")
strBufferOut = strBufferOut & M_Color_Comments ' cette ligne
strBufferOut = strBufferOut & strCaractere
i = i + 1

Do While Mid(strBufferIn, i, 1) <> Chr(34)
strCaractere = Mid(strBufferIn, i, 1)
' caractere reserve au HTML
If strCaractere "&" Then strCaractere "&"
If strCaractere "<" Then strCaractere "<"
If strCaractere ">" Then strCaractere ">"
strBufferOut = strBufferOut & strCaractere
i = i + 1
Loop

strBufferOut = strBufferOut & """"
strBufferOut = strBufferOut & M_Color_End & vbCrLf ' cette ligne
Cool mais ce derais mieux si sa prennait en charge les mot entre "" mais ces bon tout de même
Il est vrai que c'est puissant.. programmé de façon claire en plus :))
El Manipulator
4 juil. 2001 à 12:10
Excellent, en plus ça marche! c'est cool
Rejoignez-nous