SUPRÉSSION DES BALISE HTML

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