实现ABCD字母递增

因为要填充excel。一列一列写挺麻烦的。

想直接用个递增就得了。

原理就是把转为asc码后 递增就行。

至于 A加多少等于B，直接用  B = A + （ B -  A ） 这种就得了。

FUNCTION*"----------------------------------------------------------------------*"*"本地接口：*"*"     VALUE(IV_START_LETTER) TYPE  CHAR1 OPTIONAL*"*"     REFERENCE(EV_NEXT) TYPE  CHAR1*"----------------------------------------------------------------------*& 码农干货铺 sapliumeng
DATA:lettera  TYPE char1 VALUE 'A'.DATA:letterb  TYPE char1 VALUE 'B'.
  FIELD-SYMBOLS: <fs_start> TYPE x.  FIELD-SYMBOLS: <fs_next> TYPE x.  FIELD-SYMBOLS: <fs_xa> TYPE x.  FIELD-SYMBOLS: <fs_xb> TYPE x.

IF    gv_start_letter = iv_start_letter.  ENDIF.
IF'A'.
'A'.  ELSE."    ASSIGN ev_next         TO <fs_next>  CASTING. "
"    ASSIGN letterb TO <fs_xb> CASTING. "
    <fs_next> =  <fs_start> + ( <fs_xb> - <fs_xa> ).
  ENDIF.  gv_start_letter = ev_next.
ENDFUNCTION.

用了一个全局变量

DATA lv TYPE char1.
DO 26 TIMES.CALL FUNCTION 'ZLM_GET_NEXT_LETTER'IMPORTINGev_next = lv.WRITE lv.ENDDO.

至于26列以后，自己鼓捣去吧，我暂时够用了。