WDForge.org - Forums

Re: Supprimer les balises HTML et ne garder que le texte ?

Sujet: Re: Supprimer les balises HTML et ne garder que le texte ?
par Totof sur 27/3/2007 0:59:36

Autre solution, une procédure qui convertit le HTML en Texte. La procédure suivante convertit le HTML en texte mais garde les balises concernant la couleur du texte, donc à adapter suivant vos besoins :

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

Bon dév.,

Totof