实现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.
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
      
      

用了一个全局变量

• 
  
• 
  
• 
  
• 
  

登录后复制

      
      

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

       
       
1.
       
       
2.
      
      

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