Extraer numeros de cadena alfanumerica

[Alfredosite]

hola compañeros quisiera saber si existe alguna función que me obtenga los numeros de una cadena alfanumérica. por ejemplo.

Tengo
511 (1) 3211133
533 (2) 4566564-3
....
..
.

Quisiera obtener
51113211133
533245665643
....
..
.

Haber si alguien se anima por alguna idea

Muchas gracias.

[cmacvicar]

*No Conozco Ninguna Función Pero Esto hace lo que quieres.

* Cambia los '(' por ' '.
TRANSLATE "Variable" using '( '.

* Cambia los ')' por ' '.
TRANSLATE "Variable" using ') '.

* Cambia los '-' por ' '.
TRANSLATE "Variable" using '-'.

* Condensa y elimina los espacios en Blanco
CONDENSE "Variable" NO-GAPS.

*Para que esto no se vea feo en el Código Encapsulado en una Rutina


Que Estes Bien Chauuu

[Alfredosite]

Bueno lo que yo hize fue esto:
Si fuese entrada: +57 (1) 4253008

DO.
REPLACE '.' INTO p0105-usrid WITH ''.
REPLACE '+' INTO p0105-usrid WITH ''.
REPLACE '-' INTO p0105-usrid WITH ''.
REPLACE '(' INTO p0105-usrid WITH ''.
REPLACE ')' INTO p0105-usrid WITH ''.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
condense p0105-usrid no-gaps.

Salida Saldria : 5714253008
^
Pero esta lógica no funcionaria en caso en ese campo tenga.

por ejemplo: 511 - 12A (1F) -14

Si fuese asi con caracteres no solo ( ),-,(,.,+) entonces seria poco mas de lineas por cada no caracter no numerico....tal haya alguna función por ahi??

Igual se agradece el aporte

[DavidXD_XD]

Hola, nunca he visto una funcion q haga eso, pero aqui va un pequeño algoritmo q puede servir


Ahi esta el parametro de entrada y salida, espero te pueda ayudar