二维码

ABAP自定义截取字符串长度函数

Twilight发表于 2016-08-02 14:40zhongguomao 最后回复于 2017-09-23 09:01 [复制链接] 5259 1

SAP ABAP中strlen()只能计算字符串的个数,不能计算含有中文字符串的长度,如字符串“SAP顾问全”,strlen('SAP顾问全') = 6,其实真实长度为3+3*2 = 9。
我们可以通过cl_abap_list_utilities=>dynamic_output_length来精确获取字符串长度,下面我写了一个截取字符串长度的函数,供参考:
  1. FUNCTION zotfm001.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口
  4. *"  IMPORTING
  5. *"     VALUE(I_STRING) TYPE  STRING
  6. *"     VALUE(I_STRLEN) TYPE  I
  7. *"  EXPORTING
  8. *"     VALUE(E_STRING1) TYPE  STRING
  9. *"     VALUE(E_STRING2) TYPE  STRING
  10. *"----------------------------------------------------------------------
  11. *strlen()计算字符串的个数,不能计算含有中文字符串的长度
  12. *1个中文是占两位字符
  13.   DATA:lv_char TYPE string,
  14.        lv_len  TYPE i,
  15.        lv_st1  TYPE i,
  16.        lv_st2  TYPE i,
  17.        lv_str  TYPE i.

  18.   CHECK i_string IS NOT INITIAL AND i_strlen IS NOT INITIAL.
  19.   lv_str = strlen( i_string ).

  20.   DO.
  21.     IF lv_str >= sy-index.
  22.       lv_char = i_string+0(sy-index).
  23.       CALL METHOD cl_abap_list_utilities=>dynamic_output_length
  24.         EXPORTING
  25.           field = lv_char
  26.         RECEIVING
  27.           len   = lv_len.
  28.       IF lv_len > i_strlen.
  29.         lv_st1 = strlen( lv_char ).
  30.         lv_st1 = lv_st1 - 1.
  31.         e_string1 = i_string+0(lv_st1).
  32.         lv_st2 = lv_str - lv_st1.
  33.         e_string2 = i_string+lv_st1(lv_st2).
  34.         EXIT.
  35.       ELSEIF lv_len = i_strlen.
  36.         e_string1 = lv_char.

  37.         lv_st1 = strlen( lv_char ).
  38.         lv_st2 = lv_str - lv_st1.
  39.         e_string2 = i_string+lv_st1(lv_st2).
  40.         EXIT.
  41.       ENDIF.
  42.     ELSE.
  43.       e_string1 = i_string.
  44.       e_string2 = ''.
  45.       EXIT.
  46.     ENDIF.
  47.   ENDDO.

  48. ENDFUNCTION.
复制代码

测试:
I_STRING:SAP顾问圈
I_STRLEN:5

E_STRING1:SAP顾
E_STRING2:问圈
回复

使用道具 举报

zhongguomao
一般需求应该截取个数的比较多,直接str+位置(个数),不过学习了。
回复 支持 反对

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表