Retirar determinado Caracter

Bom dia a Todos.

Estou com uma dúvida, procurei no forum e não encontrei. :mrgreen:

Tenho o campo estabelec.cgc e preciso imprimir em um txt somente os números, sem qualquer outro caracter (-).

Alguem saberia me informar como faço para tirar o -, ou qualquer outro caracter que não seja número?


Obrigado!

Saudações...

Tenta assim:

Código:

FUNCTION ToNumeric RETURN CHAR (str AS CHAR):           
                                                        
  DEF VAR i  AS INT.                                    
  DEF VAR rv AS CHAR.                                   
                                                        
  DO i = 1 TO LENGTH(str):                              
    IF SUBSTR(str,i,1) >= '0' AND SUBSTR(str,i,1) <= '9'
    THEN rv = rv + SUBSTR(str,i,1).                     
  END.                                                  
                                                        
  RETURN rv.                                            
                                                        
END FUNCTION.                                           

Aí é só usar assim:
ToNumeric(cgc)

Qualquer dúvida...
falow

Obrigado!