将文本内容中的数值读出

使用CONDENSE  text  [NO-GAPS]. 删除字符串中的空格。

DATA sum TYPE i VALUE 400.

DATA : NUMS TYPE STRING VALUE '12345678.09'.
DATA : LEN TYPE I.
DATA : POS TYPE I.
DATA : RESULT TYPE STRING.
DATA bezei LIKE tvm1t-bezei.
  bezei = '200Kg'.
  LEN = STRLEN( bezei ).
  POS = 0.
WHILE POS LT LEN.
   IF bezei+POS(1) CA NUMS.
     CONCATENATE RESULT bezei+POS(1) INTO RESULT.   
   ENDIF.
   POS = POS + 1.
ENDWHILE.
CONDENSE RESULT NO-GAPS.
sum = sum / RESULT.
WRITE / sum.