- 'Décode un chaine de caractères encodé HTML
- Function HTMLDecode(ligne)
- ligne=Replace(ligne,"é","é")
- ligne=Replace(ligne,"è","è")
- ligne=Replace(ligne,"ê","ê")
- ligne=Replace(ligne,"ù","ù")
- ligne=Replace(ligne,"ç","ç")
- ligne=Replace(ligne,"à","à")
- ligne=Replace(ligne,"ô","ô")
- ligne=Replace(ligne,"î","î")
- ligne=Replace(ligne,"ë","ë")
- ligne=Replace(ligne,"ï","ï")
- ligne=Replace(ligne,"û","û")
- ligne=Replace(ligne," "," ")
- HTMLDecode=ligne
- end function
'Décode un chaine de caractères encodé HTML
Function HTMLDecode(ligne)
ligne=Replace(ligne,"é","é")
ligne=Replace(ligne,"è","è")
ligne=Replace(ligne,"ê","ê")
ligne=Replace(ligne,"ù","ù")
ligne=Replace(ligne,"ç","ç")
ligne=Replace(ligne,"à","à")
ligne=Replace(ligne,"ô","ô")
ligne=Replace(ligne,"î","î")
ligne=Replace(ligne,"ë","ë")
ligne=Replace(ligne,"ï","ï")
ligne=Replace(ligne,"û","û")
ligne=Replace(ligne," "," ")
HTMLDecode=ligne
end function