Procedure SupprimeBalise(sMessage)

//Variables
bDebutBalise est un booléen = Faux
bFinBalise est un booléen = Faux

sChaine est une chaîne = sMessage
sCaract est une chaîne
sChaineTempo est une chaîne = ""
sChaineFinale est une chaîne

tabChaine est un tableau de 100 chaînes

i est un entier = 1
y est un entier = 1
cpt est un entier


//Parcours du champ HTML
sCaract = sChaine[[i A i]]
TANTQUE i >= Taille(sChaine)
i++
SI sCaract = ">" ALORS
bDebutBalise = Vrai
FIN
SI sCaract = "<" ALORS
bFinBalise = Vrai
FIN
SI bDebutBalise = Vrai ALORS
sChaineTempo = sChaineTempo + sCaract
SI bFinBalise = Vrai ALORS
tabChaine[y] = sChaineTempo
bDebutBalise = Faux
bFinBalise = Faux
sChaineTempo = ""
y++
FIN
FIN
sCaract = sChaine[[i A i]]
FIN
POUR cpt = 1 A y-1
sChaine = Remplace(sChaine,tabChaine[cpt], "")
FIN
RENVOYER sChaine