获取abap字符串的最后N位

2021-09-11 11:01:44 阅读：203 来源： 互联网

标签：string lv 获取 abap str 字符串 DATA reverse

本文章为转载以秉的文章，转载备用。以秉博客园源
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.

结果图：
在这里插入图片描述

以上代码均已通过测试。

标签：string,lv,获取,abap,str,字符串,DATA,reverse
来源： https://blog.csdn.net/lmf496891416/article/details/120234397

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

获取abap字符串的最后N位