ABAP文本编辑框操作详解编程语言

  1 * 1、创建文本框 
  2  
  3 DATA: g_container TYPE REF TO cl_gui_custom_container, 
  4         g_editor TYPE REF TO cl_gui_textedit. 
  5  
  6   IF g_container IS INITIAL. 
  7  
  8     "创建 协查处理需求 编辑框  
  9     CREATE OBJECT g_container 
 10       EXPORTING  
 11         container_name              = 'GC_CCTRL' 
 12       EXCEPTIONS  
 13         cntl_error                  = 1 
 14         cntl_system_error           = 2 
 15         create_error                = 3 
 16         lifetime_error              = 4 
 17         lifetime_dynpro_dynpro_link = 5 . 
 18     IF sy-subrc <> 0.  
 19       EXIT . 
 20     ENDIF . 
 21  
 22     CREATE OBJECT g_editor 
 23       EXPORTING  
 24         max_number_chars       = 255    "字数限制  
 25         parent                 = g_container 
 26         wordwrap_mode         = 0       "边框模式，设置为0可以去掉编辑框的滚动条 
 27         wordwrap_position     = 95     "换行宽度 
 28       EXCEPTIONS  
 29         error_cntl_create      = 1  
 30         error_cntl_init        = 2  
 31         error_cntl_link        = 3  
 32         error_dp_create        = 4  
 33         gui_type_not_supported = 5 
 34         OTHERS                 = 6.  
 35     IF sy-subrc <> 0.  
 36       MESSAGE e000(oo ) WITH '创建编辑框失败 ！' . 
 37     ENDIF . 
 38    ENDIF . 
 39 "wordwrap_mode：边框模式，设置为0可以去掉编辑框的滚动条设置为2可以自动换行 
 40  
 41  
 42  
 43 * 2、设置文本框的内容 
 44 * PS: set_text_as_stream 无法设置多行，需要设置多行，用 set_text_as_r3table 
 45  
 46 FORM frm_set_text  USING pi_text TYPE char100 . 
 47   DATA: 
 48     BEGIN OF ls_text , 
 49       line TYPE char255, 
 50       END OF ls_text , 
 51         lt_text LIKE TABLE OF ls_text . 
 52  
 53   CHECK pi_text IS NOT INITIAL . 
 54   ls_text-line = pi_text . 
 55  
 56   APPEND ls_text TO lt_text . 
 57  
 58   CALL METHOD g_editor->delete_text. 
 59  
 60   CALL METHOD g_editor->set_text_as_stream 
 61     EXPORTING  
 62       text            = lt_text 
 63     EXCEPTIONS  
 64       error_dp        = 1  
 65       error_dp_create = 2 
 66       OTHERS          = 3.  
 67  
 68 ENDFORM.    
 69  
 70 * 3、读取文本 
 71 FORM frm_get_text  CHANGING pc_text TYPE char100 . 
 72   DATA: 
 73     BEGIN OF ls_lines, 
 74       line (255) TYPE c, 
 75     END OF ls_lines, 
 76     lt_lines LIKE TABLE OF ls_lines. 
 77  
 78   DATA: ls_textlines TYPE tline,  
 79         lt_textlines TYPE STANDARD TABLE OF tline. 
 80  
 81   DATA: l_string TYPE string.  
 82  
 83   CALL METHOD g_editor->get_text_as_stream 
 84     IMPORTING  
 85       text                   = lt_lines 
 86     EXCEPTIONS  
 87       error_dp               = 1 
 88       error_cntl_call_method = 2 
 89       OTHERS                 = 3.  
 90  
 91   CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT' 
 92     EXPORTING  
 93       language    = sy-langu 
 94     TABLES  
 95       text_stream = lt_lines 
 96       itf_text    = lt_textlines. 
 97  
 98   CLEAR: l_string . 
 99   LOOP AT lt_textlines INTO ls_textlines. 
100     CONCATENATE l_string ls_textlines INTO l_string . 
101   ENDLOOP. 
102  
103   IF l_string IS NOT INITIAL . 
104     pc_text = l_string. 
105   ENDIF. 
106  
107 ENDFORM. 
108  
109  
110 * 4、清除文本内容 
111  
112      CALL METHOD g_editor_xcclxq->delete_text. 
113  
114 * 5、g_editor->set_statusbar_mode( 0 ).  "去除状态栏 
115         g_editor->set_toolbar_mode( 0 ).    "去除工具栏 
116         g_editor->set_readonly_mode ( 1 ).   "只读