SAP Unicode编码下获取字符串长度

SAP提供了一个Class（CL_ABAP_LIST_UTILITIES）来解决这些问题。

1. DATA: length TYPE i,
   
2.       str TYPE string.
   
3. str = '测试'.
   
4. length = cl_abap_list_utilities=>dynamic_output_length( str ).
   
5. write: 'cl_abap_list_utilities:', length.
   
6. length = strlen( str ).
   
7. write: / 'strlen:', length.

复制代码

测试结果：


应用场景：每行显示25个字符，计算字符串占用行数

1. PERFORM frm_string_length USING <fs_item>-dummy40 25 CHANGING lv_line_cell.

复制代码

1. *&---------------------------------------------------------------------*
   
2. *& Form FRM_STRING_LENGTH
   
3. *&---------------------------------------------------------------------*
   
4. *& text
   
5. *&---------------------------------------------------------------------*
   
6. *&      --> <FS_ITEM>_SG_TEXT
   
7. *&      --> P_40
   
8. *&      <-- LV_LINES
   
9. *&---------------------------------------------------------------------*
   
10. FORM frm_string_length  USING    pi_str
    
11.                                  pi_item_num TYPE i
    
12.                         CHANGING pc_lines TYPE i.
    
13.   DATA:lv_len   TYPE i.
    
14.   DATA:lv_line1 TYPE i.
    
15.   DATA:lv_floor TYPE p DECIMALS 2.
    
16. 
    
17.   CLEAR:pc_lines.
    
18.   CHECK pi_item_num IS NOT INITIAL.
    
19.   CALL METHOD cl_abap_list_utilities=>dynamic_output_length
    
20.     EXPORTING
    
21.       field = pi_str
    
22.     RECEIVING
    
23.       len   = lv_len.
    
24. 
    
25.   lv_floor = floor( lv_len / pi_item_num ).
    
26.   pc_lines = lv_floor.
    
27.   lv_line1 = lv_len MOD pi_item_num.
    
28.   IF lv_line1 NE 0.
    
29.     pc_lines = pc_lines + 1.
    
30.   ENDIF.
    
31. 
    
32. ENDFORM.

复制代码