DEF VAR lvc-name AS CHAR Initial "" .
DEF VAR lvc-name2 AS CHAR INITIAL "".
lvc-name = "M" + CHR(233) + "xico" .
DISPLAY "Antes" lvc-name FORMAT "X(10)" SKIP.
lvc-name2 =REPLACE(lvc-name,CHR(130),"e").
lvc-name2 = REPLACE(lvc-name,CHR(233,SESSION:CPINTERNAL,"ISO8859-1"),"e").
lvc-name2 = REPLACE(lvc-name,CHR(201,SESSION:CPINTERNAL,"ISO8859-1"),"e").
DISPLAY "Desp" lvc-name2 FORMAT "X(30)" SKIP.
No hay comentarios
https://www.programacionparatodos.com/2019/10/codigo-ascii.html