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

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. 
    
19.   CHECK i_string IS NOT INITIAL AND i_strlen IS NOT INITIAL.
    
20.   lv_str = strlen( i_string ).
    
21. 
    
22.   DO.
    
23.     IF lv_str >= sy-index.
    
24.       lv_char = i_string+0(sy-index).
    
25.       CALL METHOD cl_abap_list_utilities=>dynamic_output_length
    
26.         EXPORTING
    
27.           field = lv_char
    
28.         RECEIVING
    
29.           len   = lv_len.
    
30.       IF lv_len > i_strlen.
    
31.         lv_st1 = strlen( lv_char ).
    
32.         lv_st1 = lv_st1 - 1.
    
33.         e_string1 = i_string+0(lv_st1).
    
34.         lv_st2 = lv_str - lv_st1.
    
35.         e_string2 = i_string+lv_st1(lv_st2).
    
36.         EXIT.
    
37.       ELSEIF lv_len = i_strlen.
    
38.         e_string1 = lv_char.
    
39. 
    
40.         lv_st1 = strlen( lv_char ).
    
41.         lv_st2 = lv_str - lv_st1.
    
42.         e_string2 = i_string+lv_st1(lv_st2).
    
43.         EXIT.
    
44.       ENDIF.
    
45.     ELSE.
    
46.       e_string1 = i_string.
    
47.       e_string2 = ''.
    
48.       EXIT.
    
49.     ENDIF.
    
50.   ENDDO.
    
51. 
    
52. ENDFUNCTION.

复制代码

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

E_STRING1：SAP顾
E_STRING2：问圈

一般需求应该截取个数的比较多，直接str+位置（个数），不过学习了。