Colorer automatiquement un code (comme dans ASPFR.Com par exemple ;o)
pi0up51
Messages postés103Date d'inscriptionvendredi 13 juillet 2001StatutMembreDernière intervention26 août 2003
-
19 avril 2002 à 15:17
pi0up51
Messages postés103Date d'inscriptionvendredi 13 juillet 2001StatutMembreDernière intervention26 août 2003
-
20 avril 2002 à 13:41
VOilà presque tout est dans le sujet !! ;o)
J'aimerai savoir si qqn peut mettre un script qui ferai ça !! ;o) Merci d'avance !!! ;o)
<% ' je ne mets qu'une seule ligne pour l'exemple
Function FormeTexte(contenu)
FormeTexte = ""
Dim temp
temp = contenu
temp = REPLACE(temp,VbCrLf & VbCrLf,"") ' pour sauter une ligne
temp = REPLACE(temp,VbCrLf,"
") ' pour passer à la ligne
temp = REPLACE(temp,"[gras]","")
' on passe par un style qui nous permets d'utiliser la balise [stop] à la fin
' car sinon il aurait fallut faire une balise , , pour fermer,
' on peut donc mettre un pour fermer.
temp = REPLACE(temp,"[blanc]","")
temp = REPLACE(temp,"[stop]","") ' pour fermer le texte
temp = REPLACE(temp,"[agauche]","
")
temp = REPLACE(temp,"[astop]","
") ' pour fermer les attributs d'alignement
temp = REPLACE(temp,"[taille8]","")
temp = REPLACE(temp,"[helvetica]","")
FormeTexte = temp
End Function
%>
*********************************
J'espère t'avoir aider
A+
Seb
PS : Ce serait sympa si tu pouvais poser
une question sur le nouveau forum de
http://www.efrance.fr/programmez *****MERCI BEAUCOUP*****