ABAP字符串翻转

时间:2023-12-03 20:00:14

就这个函数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() RSTRING INTO RSTRING.
LV_J = LV_J + .
ENDDO. ENDFUNCTION.

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