Поиск номера телефона в строке

Burning

Добрый день! Есть строка, раннее полученная из файла, необходимо в ней найти и определить номер мобильного телефона.
Номер мобильного телефона задается маской yyy xxx xx xx, где yyy - код мобильного оператора. Я так понимаю это regular expressions, как их тут использовать не пойму.

Gustav

Code:

DATA:
  telestr TYPE string
          VALUE 'Номер телефона у него такой: 921 212 85 06. Ок?',
  pattern TYPE string
          VALUE '\d\d\d \d\d\d \d\d \d\d',
  moff    TYPE i,
  mlen    TYPE i.

START-OF-SELECTION.

  WRITE: 'Поиск телефона в строке "', telestr, '"'.

  FIND REGEX pattern IN telestr MATCH OFFSET moff
                                MATCH LENGTH mlen.

  IF sy-subrc = 0.
    WRITE: / 'Найден телефон:', telestr+moff(mlen).
  ELSE.
    WRITE: / 'Телефон не найден.'.
  ENDIF.

andry_moz

Так на мой взгляд нагляднее

Code:

pattern TYPE string
          VALUE '\d{3} \d{3} \d{2} \d{2}'

Правила форума

Поиск номера телефона в строке

Кто сейчас на конференции