ABAP字符串翻转

就这个函数STRING_REVERSE

 

略显蛋疼，好搞那么复杂。。。。

 

简单的转换嘛：

FUNCTION ZSTRING_REVERSE.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(STRING)
*"  EXPORTING
*"     REFERENCE(RSTRING)
*"----------------------------------------------------------------------
  DATA:LV_I TYPE I.
  DATA:LV_J TYPE I.

  LV_I = STRLEN( STRING ).

  DO LV_I TIMES.
    CONCATENATE STRING+LV_J(1) RSTRING INTO RSTRING.
    LV_J = LV_J + 1.
  ENDDO.

ENDFUNCTION.

自己随便写了个，感觉比那个简单，方便，迅速。。。