Find the number of consecutive numeric digits in string

Question

I am trying to see if a string has say 9 consecutive numeric digits in it but it will only work if the long string of numbers is the first string of numbers.
e.g.
This would recongnise the following string (if p_len = 9)
Tel number 20 20 30 369 for 2nd meeting
     but would not recongnise the following
For 2nd meeting tel [phone]
Could anyone give guidance on how to proceed / a better way of find consecutive numbers in a string?
Thanks
Simon
Code sample -
    LOOP AT TLINETAB.
Remove blank spaces
      CONDENSE TLINETAB-TDLINE NO-GAPS.
Find first number and its position *
      IF TLINETAB-TDLINE CA '0123456789'.
        pos = sy-fdpos.
Does the next x characters contain only numbers?
        IF TLINETAB-TDLINE+pos(p_len) CO '0123456789'.
          append i_report.
        endif.
      ENDIF.
    ENDLOOP.

Answer 1

Dear Simon,
you want to check for consecutive numbers in a string. Then you may do the following -
1. Get all the numbers in the given string into a table in a sequencial order, that is the order in which they appear in the string
2. Once you have all the numbers you may find out if the numbers are consecutive or not. The following is the code which is not tested
lv_len = 1.
lv_pos = 1.
lv_strlen = strlen ( lv_str ).
do lv_strlen times.
  lv_alpha = lv_str+lv_pos(lv_len).
  if lv_alpha co '0123456789'.
   append lv_alpha to lt_number.
  endif.
  lv_pos = lv_pos + 1.
enddo.
loop at lt_number into ls_number.
  if lv_no is initial.
   lv_no = ls_number.
   lv_no = lv_no + 1.
  else.
   if ls_number eq lv_no and
      lv_consec is initial.
    lv_consec = c_x.
   else.
    clear lv_consec.
   endif.
  endif.
endloop.
if lv_consec eq c_x.
*  !!! string has consecutive numbers
endif.
Hope it helps. Thank you.
Regards,
kartik