Remover caracteres especiais

[Marcos Giufrida]

Bom Dia Pessoal !

Alguém tem um exemplo de programa que remove pontos ('.'), espaços ('
'), traços ('-') etc, de uma string?

Obrigado !

Ps: Aproveito para agradecer o amigo Jônatas Gardin pela atenção
sempre pronta à nós, Obrigado!

[DsCruz]

Segue uma função bem simples. Modifique a lista de caracteres que quer
retirar de acordo com sua necessidade.
A última posição da string v_Chars é um espaço em branco, se quiser
retirá-los também.

FUNCTION RetiraSimbolos RETURNS CHAR
( INPUT-OUTPUT p_Texto AS CHAR):

DEF VAR v_Chars AS CHAR INIT ".,:;/\?°ºª§¢!@#$%¨&*()+=<> ". /*
Lista de caracteres a retirar */
DEF VAR i AS INT.

DO i = 1 TO LENGTH(v_Chars):
ASSIGN p_Texto = REPLACE(p_Texto,SUBSTR(v_Chars,i,1),'').
END.

RETURN p_Texto. /* Retorna a nova string */
END.

É só chamar esta função passando como parâmetro a string com os símbolos.

Diógenes Cruz.
Analista de Sistemas
COCARI - PR.