Identificacion de numeros en una cadena

[Breew]

Hola.
Me estoy rompiendo la cabeza y no lo consigo.

Leo sequencialmente un fichero de texto , y necesito identificar numeros consecutivos de 9 cifras, en concreto telefonos.

No logro el algoritmo para conseguirlo.

Alguna ayuda?

Gracias

[JCantero]

Algo sencillo, si el fichero de texto que estas leyendo lo lees enuna variable por ejemplo.....


01 linea-fichero pix x(200).


Puedes hacer un bucle con cada linea leida tal como :



Perform varying i from 1 by 1 until i > 200 - 9

if linea-fichero(i:9) is numeric then
display ' Numero encontrado ' linea-fichero(i:9)
end-if

end-perform



---------- Post añadido : 18:08 ---------- Post anterior : 17:57 ----------

la declarcion es

01 linea-fichero pic x(200)

y no

01 linea-fichero pix x(200)

[Breew]

jope

Funciona perfecto :ps::ps::ps: