ABAP字符串处理

 

要激活，就能成功运行。

 

REPORT  ZTEST.
data: l_s type string.
data: l_rule type string.
Parameters : workoder type string,
             MacNo type String.

 

l_s = '11,112,Abc,630*504,_800,300'.
PERFORM GET_RULE_FROM_STRING using l_s changing l_rule.
write l_rule.

form GET_RULE_FROM_STRING USING value(s)  CHANGING rule.
  types ts type table of string.
  data li_ts type ts.
  data l_s type string.

  SPLIT s at ',' into table li_ts.
  loop at li_ts into l_s.
    write l_s.
    find '*' in l_s.
    if sy-subrc = 0.
      rule = l_s.
      exit.
    endif.
  endloop.
ENDFORM.