Create or replace function sansaccent( machaine IN VARCHAR2
) return varchar2
IS
/* Variables */
rchaine VARCHAR2(1000);
/* Corps*/
BEGIN
rchaine:=UPPER(TRIM(machaine));
rchaine:=REPLACE(rchaine,' ','-');
rchaine:=REPLACE(rchaine,'.','');
rchaine:=REPLACE(rchaine,'''','-');
rchaine:=REPLACE(rchaine,'','');
rchaine:=Translate(rchaine,'ÀÁÂÃÄÅÆ','AAAAAAA');
rchaine:=Translate(rchaine,'Ç','C');
rchaine:=Translate(rchaine,'Ç','C');
rchaine:=Translate(rchaine,'ÈÉÊË','EEEE');
rchaine:=Translate(rchaine,'ÌÍÎÏ','IIII');
rchaine:=Translate(rchaine,'Ñ','N');
rchaine:=Translate(rchaine,'ÒÓÔÕÖØ','OOOOOO');
rchaine:=Translate(rchaine,'ÙÚÛÜ','UUUU');
rchaine:=Translate(rchaine,'ÝY','YY');
return rchaine;
END;
/
Partager