PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 28 → caracteres especiales
caracteres especiales
Débuté par PEDROMANUEL / pedro, 14 nov. 2018 03:29 - 2 réponses
Membre enregistré
26 messages
Posté le 14 novembre 2018 - 03:29
Alguien ya tiene una función para sacar los caracteres especial de una palabra por favor una ayuda
Membre enregistré
794 messages
Popularité : +40 (42 votes)
Posté le 15 novembre 2018 - 15:30
Hola, ¿puedes poner un ejemplo del tipo de texto que debes tratar y definirnos esos caracteres especiales?

Rubén
Posté le 09 décembre 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