String as_tab_accent[]
String as_tab_sortie[]
Long len_tab, ll_cpt


as_tab_accent = {'À' ,'Á','Â' ,'Ã' ,'Ä' ,&
            'Å' ,'Æ' ,'Ç' ,'È' ,'É' ,&
            'Ê' ,'Ë' ,'Ì' ,'Í' ,'Î' ,&
            'Ï' ,'Ð' ,'Ñ' ,'Ò' ,'Ó' ,&
            'Ô' ,'Õ' ,'Ö' ,'×' ,'Ø' ,&
            'Ù' ,'Ú' ,'Û' ,'Ü' ,'Ý' ,&
            'Þ' ,'ß' ,'à' ,'á' ,'â' ,&
            'ã' ,'ä' ,'å' ,'æ' ,'ç' ,&
            'è' ,'é' ,'ê' ,'ë' ,'ì' ,&
            'í' ,'î' ,'ï' ,'ð' ,'ñ' ,&
            'ò' ,'ó' ,'ô' ,'õ' ,'ö' ,&
            '÷' ,'ø' ,'ù' ,'ú' ,'û' ,&
            'ü' ,'ý' ,'þ' ,'ÿ', "'" ,"’","°"}

as_tab_sortie = {'À','Á','Â','Ã','Ä',&
          'Å','&Aelig ','Ç','È','É',&
          'Ê','Ë','Ì','Í','Î',&
          'Ï','ð','Ñ','Ò','Ó',&
          'Ô','Õ','Ö','×','Ø',&
          'Ù','Ú','Û','Ü','Ý',&
          'þ','ß','à','á','â',&
          'ã','ä','å','æ','ç',&
          'è','é','ê','ë','ì',&
          'í','î','ï','ð','ñ',&
          'ò','ó','ô','õ','ö',&
          '÷','ø','ù','ú','û',&
          'ü','ý','þ','ÿ', '’', '’','°'}

len_tab = upperbound(as_tab_accent)

FOR ll_cpt = 1 TO len_tab
  this.uf_remplace_chaine(as_source_html, as_tab_accent[ll_cpt], as_tab_sortie[ll_cpt])
NEXT

RETURN

string st_separateur = "~~'"
string ls_part1, ls_part2

int in_long_chaine_cherche
int in_long_chaine_rempl,&
  in_debut

in_debut = 1
in_long_chaine_cherche = Len(as_cherche)
in_long_chaine_rempl = Len(as_remplace)

// Recherche de la première occurence de la chaine cherchée
in_debut = Pos(as_source, as_cherche)

// Boucle de modification de la chaine
DO WHILE (in_debut > 0)

  as_source = Replace(as_source, in_debut, in_long_chaine_cherche, as_remplace)
  // Recherche de la prochaine occurence de la chaine cherchée
  in_debut = Pos(as_source, as_cherche)
LOOP

Return