SI SansEspace(XMLDonnée(xITM)) = "" ALORS
vl_c_Data =
XMLExtraitChaîne(sTemp,XMLNomElément(xITM),1,XMLIgnoreLaCasse)
SI Position(vl_c_Data,"<![CDATA[") <> 0 ALORS
vl_c_Data = Remplace(vl_c_Data,"<![CDATA[","")
vl_c_Data = Remplace(vl_c_Data,"]]>","")
FIN
SINON
vl_c_Data = XMLDonnée(xITM)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=6&topic_id=2584&post_id=10950