PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 2024 → caracteres especiales
caracteres especiales
Iniciado por PEDROMANUEL / pedro, nov., 14 2018 3:29 AM - 2 respostas
#1
Membro registado
26 mensagems
Publicado em novembro, 14 2018 - 3:29 AM
Alguien ya tiene una función para sacar los caracteres especial de una palabra por favor una ayuda
#2
Membro registado
794 mensagems
Popularité : +40 (42 votes)
Publicado em novembro, 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
Publicado em dezembro, 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
→ Voltar para WINDEV 2024