Extrae los números de una cadena

PROCEDURE StringToNum(LOCAL sCadena is string): int

i are int

sAux is string

WHILE i <= Length(sCadena)

       sAux += IsNumeric(sCadena[[i]])? sCadena[[i]] ELSE ""

       i++

END

RESULT Val(sAux)