ABAP长文本读取&变成特殊字符<(>&<)>

使用READ_TEXT读取长文本时，发现字符串中&变成了<(>&<)>，使用函数CONVERT_ITF_TO_STREAM_TEXT可处理。

1、CONVERT_ITF_TO_STREAM_TEXT测试



2、程序代码

1.     gv_name = lwa_ALV-vbeln.
   
2.     PERFORM frm_read_text USING 'Z002' gv_name 'VBBK'
   
3.                               CHANGING lv_attn2.

复制代码

注意：name不可直接赋值，否则报类型不一致错误

1. FORM frm_read_text USING pi_id TYPE thead-tdid
   
2.                          pi_name TYPE thead-tdname
   
3.                          pi_object TYPE thead-tdobject
   
4.                     CHANGING pc_text.
   
5. 
   
6.   DATA:lt_tline TYPE TABLE OF tline WITH HEADER LINE.
   
7.   DATA:lt_text_stream TYPE TABLE OF tdline.
   
8. 
   
9.   CLEAR:pc_text.
   
10.   CALL FUNCTION 'READ_TEXT'
    
11.     EXPORTING
    
12.       client                  = sy-mandt
    
13.       id                      = pi_id
    
14.       language                = sy-langu
    
15.       name                    = pi_name
    
16.       object                  = pi_object
    
17.     TABLES
    
18.       lines                   = lt_tline
    
19.     EXCEPTIONS
    
20.       id                      = 1
    
21.       language                = 2
    
22.       name                    = 3
    
23.       not_found               = 4
    
24.       object                  = 5
    
25.       reference_check         = 6
    
26.       wrong_access_to_archive = 7
    
27.       OTHERS                  = 8.
    
28.   IF sy-subrc = 0.
    
29.     DELETE lt_tline WHERE tdline IS INITIAL.  "add by Twilight at 删除空行
    
30. 
    
31.     CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
    
32.       EXPORTING
    
33.         language    = sy-langu
    
34.       TABLES
    
35.         itf_text    = lt_tline
    
36.         text_stream = lt_text_stream.
    
37. 
    
38.     LOOP AT lt_text_stream ASSIGNING FIELD-SYMBOL(<fs_text_stream>) .
    
39.       REPLACE cl_abap_char_utilities=>CR_LF INTO <fs_text_stream> WITH ``.  "删除回车换行
    
40.       IF pc_text IS INITIAL.
    
41.         pc_text = <fs_text_stream>.
    
42.       ELSE.
    
43.         pc_text = pc_text && <fs_text_stream>.
    
44.       ENDIF.
    
45.     ENDLOOP.
    
46.   ENDIF.
    
47. 
    
48. ENDFORM.

复制代码

感谢分享