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

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.

巴特西

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

最新文章

热门文章