PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 2024 → caracteres especiales
caracteres especiales
Started by PEDROMANUEL / pedro, Nov., 14 2018 3:29 AM - 2 replies
#1
Registered member
26 messages
Posted on November, 14 2018 - 3:29 AM
Alguien ya tiene una función para sacar los caracteres especial de una palabra por favor una ayuda
#2
Registered member
795 messages
Popularité : +40 (42 votes)
Posted on November, 15 2018 - 3:30 PM
Hola, ¿puedes poner un ejemplo del tipo de texto que debes tratar y definirnos esos caracteres especiales?

Rubén
#3
Posted on December, 09 2018 - 7:56 AM
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
→ Go back to WINDEV 2024