拆分拼接的Excel位置，如A11拆分成A和11，即A列11行

拆分拼接的Excel位置，如A11拆分成A和11，即A列11行

 

*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_STRING) TYPE  STRING
*"  EXPORTING
*"     REFERENCE(EV_STRING_CHAR) TYPE  STRING
*"     REFERENCE(EV_STRING_NUM) TYPE  STRING
*"----------------------------------------------------------------------


  DATA : nums TYPE string VALUE '0123456789'.
  DATA : len TYPE i.
  DATA : pos TYPE i.

  len = strlen( iv_string ).
  pos = 0.

  WHILE pos LT len.

    IF iv_string+pos(1) CA nums.
      CONCATENATE ev_string_num iv_string+pos(1) INTO ev_string_num.
      CONDENSE ev_string_num NO-GAPS.
    ELSE.
      CONCATENATE ev_string_char iv_string+pos(1) INTO ev_string_char.
      CONDENSE ev_string_char NO-GAPS.
    ENDIF.
    pos = pos + 1.
  ENDWHILE.