解析带运算符字符串的一个小算法

有时候会有些类似的字符串：A10010001-A10020001+A10020002+A41030001+A43990001 

需要解析为

+ A10010001

- A10020001

+ A10020002

+ A41030001

+ A43990001 

可以参考以下算法：

FORM zform_get_kemu_r      TABLES t_right_kemu_list STRUCTURE str_right_kemu_list
                            USING u_str_hkonts      .

  DATA:
      BEGIN OF zstr_kume_sign,
        bjh_hkont TYPE  zbjh_hkont,
        zoperator TYPE  zoperator,
      END OF zstr_kume_sign.

  DATA:
        l_tmp   TYPE string,
        l_move TYPE int4.

  DATA:
        lt_kemu LIKE TABLE OF zstr_kume_sign WITH HEADER LINE.
  DATA:
        l_wa_kemu_list  LIKE str_right_kemu_list.

  l_tmp = u_str_hkonts.                                    "临时保存

  REPLACE ALL OCCURRENCES OF '+'  IN u_str_hkonts WITH '$'."替换掉加减法符号
  REPLACE ALL OCCURRENCES OF '-'  IN u_str_hkonts WITH '$'.

  WHILE u_str_hkonts IS NOT INITIAL.

    FIND '$' IN u_str_hkonts                   
      MATCH OFFSET l_move.

    "获取科目
    IF sy-subrc <> 0.                               "如果只有一项，没有其他的项目加减
      lt_kemu-bjh_hkont = u_str_hkonts.
    ELSE.
      lt_kemu-bjh_hkont  = u_str_hkonts+0(l_move).  "如果有多项， 
    ENDIF.

    "第一个是正
    IF sy-index = 1.
      lt_kemu-zoperator = '+'.
      APPEND lt_kemu.
    ENDIF.

    "第一个之后
    IF sy-index > 1 AND u_str_hkonts IS NOT INITIAL.

      lt_kemu-zoperator = l_tmp(1).                     "获取符号
      APPEND lt_kemu.

      SHIFT:
        l_tmp           BY 1 PLACES.                    "左移一位，去掉符号

    ENDIF.

    SHIFT:
      u_str_hkonts           BY l_move PLACES.          "左移，去掉刚才计算过的项目
    SHIFT:
      l_tmp                  BY l_move PLACES.

    SHIFT:
      u_str_hkonts           BY 1 PLACES.
  ENDWHILE.

  "保存解析出的科目和对应的左边科目
  LOOP AT lt_kemu.
    l_wa_kemu_list-bjh_hkont      = lt_kemu-bjh_hkont.
    l_wa_kemu_list-operator       = lt_kemu-zoperator.
    APPEND l_wa_kemu_list TO t_right_kemu_list.
  ENDLOOP.

ENDFORM.                    "zform_get_kemu_r