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

最新推荐文章于 2024-08-13 16:38:01 发布

SAP剑客

最新推荐文章于 2024-08-13 16:38:01 发布

阅读量5.1k

点赞数 1

分类专栏：程序人生 ABAPer

程序人生 ABAPer 专栏收录该内容

1330 篇文章 170 订阅

订阅专栏

SAP 中strlen()只能计算字符串的个数，不能计算含有中文字符串的长度，如字符串“SAP大波霸”，strlen('SAP大波霸') = 6,其实真实长度为3+3*2 = 9。
我们可以通过cl_abap_list_utilities=>dynamic_output_length来精确获取字符串长度，下面我写了一个截取字符串长度的函数，供参考：

FUNCTION zotfm001.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_STRING) TYPE  STRING
*"     VALUE(I_STRLEN) TYPE  I
*"  EXPORTING
*"     VALUE(E_STRING1) TYPE  STRING
*"     VALUE(E_STRING2) TYPE  STRING
*"----------------------------------------------------------------------
  DATA:lv_char TYPE string,
       lv_len  TYPE i,
       lv_st1  TYPE i,
       lv_st2  TYPE i,
       lv_str  TYPE i.

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

  DO.
    IF lv_str >= sy-index.
      lv_char = i_string+0(sy-index).
      CALL METHOD cl_abap_list_utilities=>dynamic_output_length
        EXPORTING
          field = lv_char
        RECEIVING
          len   = lv_len.
      IF lv_len >= i_strlen.
        e_string1 = lv_char.

        lv_st1 = strlen( lv_char ).
        lv_st2 = lv_str - lv_st1.
        e_string2 = i_string+lv_st1(lv_st2).
        EXIT.
      ENDIF.
    ELSE.
      e_string1 = i_string.
      e_string2 = ''.
      EXIT.
    ENDIF.
  ENDDO.

ENDFUNCTION.

测试：
I_STRING：SAP大波霸
I_STRLEN：5

E_STRING1：SAP大
E_STRING2：波霸