获取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.

结果图:
获取abap字符串的最后N位

以上代码均已通过测试。

上一篇:突破10万高并发的nginx性能优化经验(含内核参数优化)


下一篇:【高并发】如何使用Java7中提供的Fork/Join框架实现高并发程序?