Colorer automatiquement un code (comme dans ASPFR.Com par exemple ;o)

pi0up51 Messages postés 103 Date d'inscription vendredi 13 juillet 2001 Statut Membre Dernière intervention 26 août 2003 - 19 avril 2002 à 15:17
pi0up51 Messages postés 103 Date d'inscription vendredi 13 juillet 2001 Statut Membre Dernière intervention 26 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)

@tte et bonn' prog'
pi0up51

2 réponses

Seb_d_angers Messages postés 155 Date d'inscription vendredi 2 novembre 2001 Statut Membre Dernière intervention 19 mai 2011
19 avril 2002 à 23:15
Trouver sur
http://www.asp-php.net/asphp2/fr/tutorial/asp-php/complements/mise_en_page.asp?page=2#asp

<% ' 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*****
0
pi0up51 Messages postés 103 Date d'inscription vendredi 13 juillet 2001 Statut Membre Dernière intervention 26 août 2003
20 avril 2002 à 13:41
Merci !! ;o)
Tien toi aussi tu es sur efrance !! ;o)
Je vais voir ton site !!
Je le mets dans mes bookmark !!

@tte et bonn' prog'
pi0up51
http://www.infobox51.fr.st
0
Rejoignez-nous