Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Progress » Código de Progress - Funciones CHR y Replace

Código de Progress - Funciones CHR y Replace

Volver
Agregar Código Fuente
<<>>
Imágen de perfil
Val: 50
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

Funciones CHR y Replacegráfica de visualizaciones


Progress

Publicado el 3 de Octubre del 2019 por Ana Zelideth
653 visualizaciones desde el 3 de Octubre del 2019
Buenos días hay veces que necesitamos o remover o agregar códigos especiales a nuestros programas para eso tenemos la función CHR, les comparto un ejemplo sencillo de como utilizarla en conjunto con la función Replace

Requerimientos

Progress 4gl versión 10 o 11

1.0

Publicado el 3 de Octubre del 2019gráfica de visualizaciones de la versión: 1.0
654 visualizaciones desde el 3 de Octubre del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

para más detalles les dejó la liga de mi blog
https://www.programacionparatodos.com/2019/10/codigo-ascii.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s5564