Procedure RenvoieEntreBalise(sHtmlSource est une chaine, sBaliseNom est une chaine, sBaliseFinNom est une chaine)
//sHTMLSource : Source de la page à analyser
//sBaliseNom  : Nom de la balise à trouver dans la source
//sBaliseFinNom : nom de la balise à trouver  après la position de sBaliseNom
 
nPos est un entier
nDebut est un entier
nFin est un entier

//On cherche la postion de la premiere balise
nPos = Position(sHtmlSource, sBaliseNom, 1)
//Si pas trouvé alors on sort
Si nPos = 0 Alors renvoyer ""
//on se positionne sur le premier caractère après la balise
nDebut = nPos + Taille(sBaliseNom)
//On cherche la balise de fin en partant de la balise précédente
nPos = Position(sHtmlSource, sBaliseFinNom, nPos)
//Si on ne la trouve pas on sort
Si nPos = 0 Alors renvoyer ""
nFin = nPos --
//On renvoie le code situé entre ces deux balises
Renvoyer sHtmlSource[[ nPos A nFin]]