PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV 2024 → caracteres especiales
caracteres especiales
Iniciado por PEDROMANUEL / pedro, 14,nov. 2018 03:29 - 2 respuestas
#1
Miembro registrado
26 mensajes
Publicado el 14,noviembre 2018 - 03:29
Alguien ya tiene una función para sacar los caracteres especial de una palabra por favor una ayuda
#2
Miembro registrado
795 mensajes
Popularité : +40 (42 votes)
Publicado el 15,noviembre 2018 - 15:30
Hola, ¿puedes poner un ejemplo del tipo de texto que debes tratar y definirnos esos caracteres especiales?

Rubén
#3
Publicado el 09,diciembre 2018 - 07:56
Aqui pongo una funcion para extraer una serie de caracteres

PROCEDURE utFiltra(sx is string,sCharsXP9N is string="P") // P->Caracteres Printables
sRet,sX1 is string
sCar is string
sLista is string="01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
nlj,k is 8-byte int
sX1=""
SWITCH sCharsXP9N
CASE "X"
CASE "x"
sLista+=Lower(sLista)
CASE "9","N"
sLista="0123456789"
CASE "P"
sLista=""
FOR k=32 TO 255
sLista+=Charact(k)
END
OTHER CASE
sLista=sCharsXP9N
END
nlj=Length(sx)
FOR k=1 TO nlj
sCar=sx[[k]]
IF Contains(sLista,sCar) THEN
sRet+=sCar
END

END
RESULT sRet
→ Volver a WINDEV 2024