拆分拼接的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.