Flyman30 | Voila la bonne façon de faire :
Code :
- <%
- function remplace(txt)
- Dim temp, regEx
- temp = txt
- Set regEx = New RegExp
- regEx.IgnoreCase = False
- regEx.Global = true
- temp = replace(temp,VbCrLf,"<br />" )
- temp = Replace(temp, "", "<span class='TextGras'>" )
- temp = Replace(temp, "", "</span>" )
- temp = Replace(temp, "", "<span class='Textitalic'>" )
- temp = Replace(temp, "", "</span>" )
- temp = Replace(temp, "", "<span class='TextSouligne'>" )
- temp = Replace(temp, "", "</span>" )
- temp = Replace(temp, "[ul]", "<ul>" )
- temp = Replace(temp, "[/ul]", "</ul>" )
- temp = Replace(temp, "[x]", "<li>" )
- temp = Replace(temp, "[/x]", "</li>" )
- remplace = temp
- Set regEx = Nothing
- end function
- %>
|
Tu appelle la fonction par
Code :
- <%=remplace(ton-texte)%>
|
|