ABAP中长文本处理的应用实例

我们在Dialog中绘制input/output输入输出框时，允许定义char最大长度是255，都显示在一行中，这种方法用户体验比较差。我们可以通过长文本的方法来满足客户的需求。
长文本在SAP的运用主要体现在一些notes的记录，或者一些比较长的文本的存取，比如工作流的审批意见，采购申请和采购订单的附加说明等等

1、se38创建可执行程序

1. DATA: line_length      TYPE i VALUE 254,
   
2.        editor_container TYPE REF TO cl_gui_custom_container,
   
3.        text_editor      TYPE REF TO cl_gui_textedit,
   
4.        text             TYPE string.
   
5. 
   
6. START-OF-SELECTION.
   
7.   CALL SCREEN '100'.
   
8. 
   
9. **&---------------------------------------------------------------------*
   
10. **&      Module  STATUS_0100  OUTPUT
    
11. **&---------------------------------------------------------------------*
    
12. **       text
    
13. **----------------------------------------------------------------------*
    
14. MODULE status_0100 OUTPUT.
    
15. 
    
16.   SET PF-STATUS 'STATUS_0100'.
    
17. 
    
18.   IF text_editor IS INITIAL.
    
19. 
    
20.     CREATE OBJECT editor_container
    
21.       EXPORTING
    
22.         container_name              = 'TEXTEDITOR'
    
23.       EXCEPTIONS
    
24.         cntl_error                  = 1
    
25.         cntl_system_error           = 2
    
26.         create_error                = 3
    
27.         lifetime_error              = 4
    
28.         lifetime_dynpro_dynpro_link = 5.
    
29. 
    
30.     CREATE OBJECT text_editor
    
31.       EXPORTING
    
32.         parent                     = editor_container
    
33.         wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
    
34.         wordwrap_position          = line_length
    
35.         wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
    
36. 
    
37. 
    
38. *3)HIDE TOOLBAR AND STATUSBAR 隐藏工具栏按钮
    
39. 
    
40.     CALL METHOD text_editor->set_toolbar_mode
    
41.       EXPORTING
    
42.         toolbar_mode = cl_gui_textedit=>false.
    
43. 
    
44.     CALL METHOD text_editor->set_statusbar_mode
    
45.       EXPORTING
    
46.         statusbar_mode = cl_gui_textedit=>false.
    
47. 
    
48.   ENDIF.
    
49. ENDMODULE.                 " STATUS_0100  OUTPUT
    
50. *&---------------------------------------------------------------------*
    
51. *&      Module  USER_COMMAND_0100  INPUT
    
52. *&---------------------------------------------------------------------*
    
53. *       text
    
54. *----------------------------------------------------------------------*
    
55. MODULE user_command_0100 INPUT.
    
56.   CASE sy-ucomm.
    
57.     WHEN 'EXIT'.
    
58.       LEAVE PROGRAM.
    
59.     WHEN 'SAVE'.
    
60.       CALL METHOD text_editor->get_textstream
    
61. *         EXPORTING
    
62. *             ONLY_WHEN_MODIFIED     = CL_GUI_TEXTEDIT=>TRUE
    
63.           IMPORTING
    
64.               text                   = text
    
65. *             IS_MODIFIED            =
    
66.           EXCEPTIONS
    
67.               error_cntl_call_method = 1
    
68.               not_supported_by_gui   = 2
    
69.               OTHERS                 = 3.
    
70. 
    
71.       IF sy-subrc <> 0.
    
72.         MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
73.                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
74.       ENDIF.
    
75. 
    
76.       CALL METHOD cl_gui_cfw=>flush
    
77.         EXCEPTIONS
    
78.           cntl_system_error = 1
    
79.           cntl_error        = 2
    
80.           OTHERS            = 3.
    
81.       MESSAGE text TYPE 'I'.
    
82.   ENDCASE.
    
83. ENDMODULE.                 " USER_COMMAND_0100  INPUT

复制代码

2、创建标准SCREEN '100'，定义ok_code

layout->绘制customer container区域，并命名TEXTEDITOR
3、定义工具栏，创建save保存按钮、exit退出按钮
4、执行程序，查看效果

点击保存

我们会发现，我们每按一些回车，那么就会出现## 这个字符，它是CL_ABAP_CHAR_UTILITIES=>CR_LF产生的回车符，不同于们手工输入普通的字符##

PS:长文本中常用的函数

• CONVERT_STREAM_TO_ITF_TEXT
• CONVERT_ITF_TO_STREAM_TEXT
  长文本中特殊符号&格式转换（<(>&<)>  ===> &）
• READ_TEXT
• DELETE_TEXT