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

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

Je pensais fait comme ca :

Code:

---

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

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

Code:

---

<font*>

---

:oops:

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 >?

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

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

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

Code:

---

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!

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:

---

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

Voilà j'ai trouvé un chtit exemple

Code:

---

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

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

Code:

---

1 2 3 4 5

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

---

A la ligne regEx.Pattern = "<[font[^>]+>", on peut décider des balise qu'on veut enlever ;)

Merci beaucoup pour votre aide :P

Rajoute quand même la ligne

Code:

---

regEx.IgnoreCase = True

---

sinon ca va pas marcher quand tu auras une balise "<FONT..." mais seulement avec les balises "<font...>" à priori
A+
Seb