Précédent   Forum des professionnels en informatique > Webmasters - Développement Web > Langages serveur > ASP
ASP Forum sur la programmation ASP. Avant de poster : Cours ASP, FAQ ASP
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 27/11/2006, 14h51   #1
Invité régulier
 
Inscription : mars 2006
Messages : 23
Détails du profil
Informations forums :
Inscription : mars 2006
Messages : 23
Points : 7
Points : 7
Par défaut regex et bbcode

Bonjour voici un code pour transformer le bbcode en lecture html
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<%
function remplace(txt)
Dim temp, regEx
temp = txt
        Set regEx = New RegExp
        regEx.IgnoreCase = False
        regEx.Global = true
 
        regEx.Pattern = "\[url\](.*?)\[/url\]"
        temp = regEx.replace(temp,"<a href ='http://$1' target=""_blank"" & title='$1'>$1</a>")
        regEx.Pattern = "\[email\](.*?)\[/email\]"
        temp = regEx.REPLACE(temp,"<a href='mailto:$1'>$1</a>")
     temp = replace(temp,VbCrLf,"<br />")
        temp = Replace(temp, "[gras]", "<strong>")
        temp = Replace(temp, "[/gras]", "</strong>")
        temp = Replace(temp, "[italic]", "<em>")
        temp = Replace(temp, "[/italic]", "</em>")      
remplace = temp
Set regEx = Nothing
end function
%>
je voudrais placer un mot à la place de l'url entre <a href> et </a>je pense qu'il faut ajouter la valeur $2 mais je vois pas trop comment de plus dans mon form que dois-je avoir comme syntaxe
merci pour votre aide
xclear
xclear est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/11/2006, 15h16   #2
Invité régulier
 
Inscription : mars 2006
Messages : 23
Détails du profil
Informations forums :
Inscription : mars 2006
Messages : 23
Points : 7
Points : 7
Par défaut trouvé

Pour ceux qui cherche
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<%
function remplace(txt)
Dim temp, regEx
temp = txt
        Set regEx = New RegExp
        regEx.IgnoreCase = False
        regEx.Global = true
        regEx.Pattern = "\[url=(.*?)\](.*?)\[/url\]"
        temp = regEx.replace(temp,"<a href ='$1' & target='_blank'>$2</a>")
        regEx.Pattern = "\[email\](.*?)\[/email\]"
        temp = regEx.REPLACE(temp,"<a href='mailto:$1' & title='$1'>$1</a>")
     temp = replace(temp,VbCrLf,"<br />")
        temp = Replace(temp, "[gras]", "<strong>")
        temp = Replace(temp, "[/gras]", "</strong>")
        temp = Replace(temp, "[italic]", "<em>")
        temp = Replace(temp, "[/italic]", "</em>")      
remplace = temp
Set regEx = Nothing
end function
%>
xclear est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h38.


 
 
 
 
Partenaires

Hébergement Web