获取abap字符串的最后N位

本文章为转载以秉的文章，转载备用。以秉博客园源
ABAP提供了字符串截取语法，但是只支持从某位起取N位，不支持取后几位。
方法一

DATA lv_str TYPE string VALUE 'abcdefghigk'.
DATA(lv_len) = strlen( lv_str ) - 5.
DATA(lv_str_out1) = lv_str+lv_len(5).　

这无疑是最常规的方式，也很容易看懂，代码也很简洁，不过要注意，offset本身的语法是会有异常的，尤其是用变量之后，我们首先要确保长度是大于等于5的，这样才是有效的offset，不然会dump掉。

方法二（来自群友句号大佬）：

CALL FUNCTION 'STRING_REVERSE'
  exporting
     string = lv_char
     lang     = sy-langu
   importing
     rstring = lv_char.
 
DATA(lv_str_out2) = lv_char+(5).
 
CALL FUNCTION 'STRING_REVERSE'
  exporting
     string = lv_str_out2
     lang   = sy-langu
   importing
     rstring = lv_str_out2.

这语法看起来…也很容易懂，就是反转再取值再反转。

注意点有两个，第一个同上，lv_char长度小于5会炸，第二…这坑FM虽然叫’STRING_REVERSE’， 但是不支持string类型，只支持char，所以如果是长度不定的字符串，如下代码可以代替该FM（也是抄来的）：

DATA:lv_str  TYPE string VALUE 'abc',
     lv_i    TYPE int4,
     lv_j    TYPE int4,
     rstring TYPE string.
 
lv_i = strlen( lv_str ).
 
DO lv_i TIMES.
  CONCATENATE lv_str+lv_j(1) rstring INTO rstring.
  lv_j = lv_j + 1.
ENDDO.　　

该LOOP实现了字符串的反转，所以结论是，我们只需要三步，先loop反转，再取值，再loop反转，即可得到结果，这样一来，我们只用了十几行代码，就实现了最上面2行代码能实现的功能。

经过群里另一位大佬（宝宝）的提醒，该语法可以简单写为：

DATA(lv_str_out5) = reverse( lv_str ).
lv_str_out5 = reverse( lv_str_out5+(5) ).

原理是一样的，但是reverse直接替换掉了FM和LOOP的功能（依然要注意字符串本身长度的问题），而且这两句其实也可以写在一起，如下：

lv_str_out5 = reverse( reverse( lv_str_out5+(5) ) ).

方法三：

DATA(lv_str_out3) = lv_str.
DO.
  IF strlen( lv_str_out3 ) <= 5.
    EXIT.
  ENDIF.
  SHIFT lv_str_out3 BY 1 PLACES LEFT.
ENDDO.　

代码也易懂，就不停干掉最前面一位，直到符合我们的需求。

该代码无需考虑字符串位数，干就完事了，缺点就是…如果字符串很长，那效率可能会稍微有点问题。

所以做了如下优化：

SHIFT lv_str_out4 BY strlen( lv_str_out4 ) - 5 PLACES LEFT.

OK , 这样一来，我们只需要一行代码就解决了问题，而且本以为如果字符串长度小于5会炸，结果实测并没有。

看来shift的语法，如果by n 的n是负数，那么该语法会默认为0，什么都不做。

反观str+n(m)，如果n是负数，那么就会dump，如果n位后不足m位，也会dump，所以这语法就显得不是很聪明的样子。

补充一个例子，去掉string类型字符串的最后一位

DATA str TYPE string VALUE 'ABCD'.
WRITE str.
str = reverse( str ).
SHIFT str by 1 PLACES.
str = reverse( str ).
WRITE str.

结果图：

以上代码均已通过测试。