PROCEDURE Gbl_HTMLVersTexte(_TexteHTML)
//*** Procédure permettant de récupérer le texte d'une chaine HTML avec gestion de la couleur ***//
chTexte est une chaîne
chTemp est une chaîne
i est un entier
j est un entier
bDebutBalise est un booléen = Faux
ePosDebutBalise est un entier = 0
ePosRecherche est un entier
chCouleurTexte est une chaîne = ""
chTexte = Remplace(_TexteHTML,"<br />",RC) //Support du XHTML
i = Position(chTexte,"<")
TANTQUE i>0
bDebutBalise = Vrai
ePosDebutBalise = i
chTemp = ExtraitChaîne(chTexte[[ i A ]], 1, ">")
SELON Gauche(chTemp,6)
CAS "<font " :
ePosRecherche = Position(chTemp," color=")
SI ePosRecherche>0 ALORS
chCouleurTexte = "###"+ chTemp[[ (ePosRecherche + 8) A (ePosRecherche + 13) ]] + "##"
SINON
chCouleurTexte = ""
FIN
CAS "</font" :
chCouleurTexte = ""
AUTRES CAS :
chCouleurTexte = ""
FIN
ePosRecherche = Position(chTexte,">", i)
SI ePosRecherche>0 ALORS
SI ePosDebutBalise>1 ALORS
chTexte = Milieu(chTexte,1, ePosDebutBalise - 1) + "$$$" + chCouleurTexte + Milieu(chTexte, ePosRecherche + 1)
SINON
chTexte = chCouleurTexte + Milieu(chTexte, ePosRecherche+1)
FIN
i = 0
ePosDebutBalise = 0
FIN
i = Position(chTexte,"<")
FIN
chTexte = Remplace(chTexte,RC, "<BR>") //Support du XHTML
chTexte = Remplace(chTexte,"###","<FONT COLOR=#")
chTexte = Remplace(chTexte,"##",">")
chTexte = Remplace(chTexte,"$$$","</FONT>")
RENVOYER chTexte
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5019&post_id=20710