Supréssion des balise html

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 171 fois - Téléchargée 29 fois

Contenu du snippet

ce code a pour but de supprimer toutes mes balises HTML du type < balise> </balise> en laissant ce qu'il y a entre les balisesevidament.

un petit exemple

"bonjour a vous <balise> mes amis </balise> je vous embrasse"

retournera :

"bonjour a vous mes amis je vous embrasse"

dans cette exemple la balise eurais pue etre une couleur un Gras ou un italic

en fait voici comment la fonction fonctionne :
elle prend le premier caracter , et regarde si s'est un "<" si s'en est pas un elle l'ajoute a une chaine temporaire sinon elle regarde les caracteres suivant j'usqu'a trouver un ">" ou la fin du texte

si elle trouve un ">" alors elle continue a ajouter a la chaine temporaire

Source / Exemple :


Function detag(strg)
'copie la chaine dans la variable u
u=strg

'ignisialise les variable de vérification et temporaire a chaine vide et 0
fin=""
x=0

'boucle sur la longueure de la chain  
for i=1 to len(u)

'prend le ieme caracter
te=mid (u,i,1)

'si le caracter ="<" ( debut de balise ) ou si x =1 (on verra au passage suivant)
if te="<" or x=1 then
'si c'est le premier passage x=0 donc il faut le metre a 1
 if te="<" then 
  x=1 
 else
'si x=1 alors on attend un ">"  et on remetra x a 0 a ce maument la 
  if te=">" then 
    x=0
  end if
 end if

' on n'est pas dans une balise
else

'on ajoute le caracter que l'on vien de prélever a la chaine temporaire
fin=fin&te

end if

' et on recomance avec le caracter suivant
next

' a la fin toutes les balises on etait viré on retourne alors la chaine temporaire qui
'contien touts les caracteres mis bout a bous

detag=fin

End Function

A voir également

Ajouter un commentaire

Commentaires

Messages postés
29
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
22 juin 2013

oui c vrais je te laisse le soin de faire évoluer le code, mon but est d'ouvrire des voie, a vous de corriger, amélioré ... (pour info il sufit de rajouter une variable et de faire le meme test sur :

If te="<" Then
x=1
Else

remplacer par

If te="<" Then
x=1
cote=0
Else


et

If te=">" Then
x=0
End If

remplacer par

If te=">" and cote=0 Then
x=0
else
if te=""" and cote =1 then
cote=0
end if
if te=""" and cote =0 then
cote=1
end if
End If


voila et le probleme est corriger.
més il y en a d'autre exemple les é è etc ... mais bon je vous laisse imaginer les solution ( restez simple ) examiner l'html vous trouverez
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

Salut,
Il pourrait y avoir un petit problème avec ce type de code (malformé) :
texte eur">texte texte
il faut que tu test si tu est dans des valeurs entre guillemets pour éviter de refermer prématurement la balise

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.