quiaimeflash
Messages postés270Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention11 juillet 2007
-
25 sept. 2004 à 17:57
quiaimeflash
Messages postés270Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention11 juillet 2007
-
25 sept. 2004 à 18:45
Bonjour,
Je sais que sa doit etre tout bête, c'est de la manipulation de chaine, mais je sais pas faire...
J'aimerais pouvoir supprimer tous les tags (balises HTML) d'une chaine.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 25 sept. 2004 à 18:40
Bonjour
essaie ceci :
Dim i As Long, j As Long
Do
i = InStr(chaine, "<")
j = InStr(chaine, ">")
If i = 0 Then Exit Do
chaine = Left$(chaine, i - 1) & Mid$(chaine, j + 1)
Loop