/* 
   bh_StringToHtml.ch
   Convertir les caractères spéciaux d'une chaîne en html.

   Dernière modification : 2022-10-11
*/

#ifndef _bh_StringToHtml_ch_
#define _bh_StringToHtml_ch_

function bh_StringToHtml( cStringe )

   local wString := cStringe   // Ne pas modifier la variable passée.

   wString := strtran( wString, "&", "&"    ) // En premier.
   wString := strtran( wString, " ", " "   )
   wString := strtran( wString, "<", "&lt;"     )
   wString := strtran( wString, ">", "&gt;"     )
   wString := strtran( wString, '"', "&quot;"   )
   wString := strtran( wString, "'", "&#039;"   )
   wString := strtran( wString, "-", "&ndash;"  )

   wString := strtran( wString, "á", "&aacute;" )
   wString := strtran( wString, "â", "&acirc;"  )
   wString := strtran( wString, "à", "&agrave;" )
   wString := strtran( wString, "ã", "&atilde;" )
   wString := strtran( wString, "ç", "&ccedil;" )
   wString := strtran( wString, "é", "&eacute;" )
   wString := strtran( wString, "ê", "&ecirc;"  )
   wString := strtran( wString, "í", "&iacute;" )
   wString := strtran( wString, "ó", "&oacute;" )
   wString := strtran( wString, "ô", "&ocirc;"  )
   wString := strtran( wString, "õ", "&otilde;" )
   wString := strtran( wString, "ú", "&uacute;" )
   wString := strtran( wString, "ü", "&uuml;"   )

   wString := strtran( wString, "Á", "&Aacute;" )
   wString := strtran( wString, "Â", "&Acirc;"  )
   wString := strtran( wString, "À", "&Agrave;" )
   wString := strtran( wString, "Ã", "&Atilde;" )
   wString := strtran( wString, "Ç", "&Ccedil;" )
   wString := strtran( wString, "É", "&Eacute;" )
   wString := strtran( wString, "Ê", "&Ecirc;"  )
   wString := strtran( wString, "Í", "&Iacute;" )
   wString := strtran( wString, "Ó", "&Oacute;" )
   wString := strtran( wString, "Ô", "&Ocirc;"  )
   wString := strtran( wString, "Õ", "&Otilde;" )
   wString := strtran( wString, "Ú", "&Uacute;" )
   wString := strtran( wString, "Ü", "&Uuml;"   )

   wString := strtran( wString, "€", "&euro;" )
   wString := strtran( wString, "£", "&pound;"   )

   return wString

#endif // _bh_StringToHtml_ch_