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]]
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2523&post_id=10820