[语法探索]如何取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，所以这语法就显得不是很聪明的样子。　

以上代码均已通过测试。