Comment analyser une chaîne de caractères, caractère par caractère.
Cet exemple recherche dans une chaîne toutes les balises materialisees par du texte entre le caractère « < » et le caractère « > ».
Cas par exemple du HTML :
PROCEDURE SupprimeBalise(sMessage)
//Variables
bDebutBalise est un booleen = Faux
bFinBalise est un booleen = 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