Problème de <font...> dans un Replace

**roots_man** · 05/04/2005, 08h22

Question sur le replace.. alors voila j'aimerais faire un replace en supprimant toutes les balise <font...></font>

Je pensais fait comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var1 = replace(request.form("contenu"), "<font...>", " ")
var2 = replace(var1, "</font>", " ")

Le problème est dans le premier replace... comment dire de tout selectionner le <font jusqu'a sa balise de fermeture >. ??

Merci d'avance

**pmboutteau** · 05/04/2005, 10h31

le * çà marche pas? Je pense pas mais bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<font*>

**pmboutteau** · 05/04/2005, 10h34

sinon il existe pas des fonctions comme en C où tu recherche toutes les chaines de caractères commençant par <font et terminant par >?

**roots_man** · 05/04/2005, 10h40

le font* ne fonctionne pas... pis pour les fonctions.. c'est ca ke j'aimerais trouvé mais je ne sais pas lakelle c'est !!!

**pmboutteau** · 05/04/2005, 10h56

peut-être sur
http://www.devguru.com/Technologies/...functions.html

**amar00** · 05/04/2005, 11h30

Tu vas être obligé de faire une fonction de manipulation de chaine de caractères.Dans l'idée ça pourrait donner ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function EliminerTag(strNomTag,strContenu)
    'chaine dans la quelle on va recopier au fur et à mesure le resultat voulu
    dim strResulat
'#####debut  boucle
'ici on traite l'élimination du tag <tag.....>    et de </tag>
    'renvoie la position du tag
    idx = [b]InStr[/b](strContenu, "<" & strNomTag) 
    'extraction de la chaine
    strResulat = strResulat & [b]Left[/b](strContenu,idx)
    'puis on cherche le prochain">"
    'voire aussi ce qu'on peut faire avec la fonction Right,InstrRev
 etc.........
'#####fin boucle
 
 
End function

Et oui c'est laborieux , mais faut parfois mettre les mains dans le cambouis!

**nussi** · 05/04/2005, 11h45

Je pense que la vraie solution serait en fait d'utiliser des expressions régulières.
En ASP VBScript tu as l'objet RegExp qui te permet de faire un peu tout ce que tu veux en ce qui concerne les manipulations de chaînes de caractères
En gros ca devrait se passer comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim oRegExp
Set oRegExp = New RegExp
oRegExp.Pattern = "expression régulière pour trouver tes tags font"
oRegExp.IgnoreCase = true
chaine_nettoyee = oRegExp.Replace("string à vérifier", "string de remplacement")
Set oRegExp = Nothing

Je suis pas un pro des expressions régulières donc faudrait faire un peu de recherche là-dessus. Mais en gros si tu veux pas mettre les mains dans le camboui et avoir un truc propre je pense que c'est la seule solution
+
Seb

**nussi** · 05/04/2005, 12h09

Voilà j'ai trouvé un chtit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<%
Option Explicit
 
Dim s1
Dim s2
Dim oRegExp
 
s1 = "blabla<font color='red'>blabla</font>blabla"
Set oRegExp = new RegExp
oRegExp.IgnoreCase = true
oRegExp.Global = true
oRegExp.Pattern = "<[^>]*>"
s2 = oRegExp.Replace(s1, "")
 
Response.Write s1 & "<br>"
Response.Write s2
%>

exécute et tu verras que la partie en rouge devient noire
Par contre l'expression que je t'ai mise enlève TOUS les tags HTML de ton code, pas seulement les "font", donc faudra peut être vérifier pour mettre ce qu'il faut si ce n'est pas ce que tu veux

**roots_man** · 05/04/2005, 13h39

Voili voila.. j'ai fait un peu de recherche pis j'ai trouvé cela et ca marche nickel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   Set regEx = New RegExp
   regEx.Global = True
   regEx.Pattern = "<[font[^>]+>"
   notag = regEx.replace(request.form("test"),"")
   response.write(notag)