[代码]比较XML文件差异[cl_proxy_ui_utils=>show_xml_diff]详解编程语言

REPORT ztest_compare_xml. 
DATA: lv_original TYPE xstring, 
lv_changed  TYPE xstring. 
* get xml 
PERFORM frm_get_file_binary USING 'C:/temp/1.xml' 
CHANGING lv_original. 
PERFORM frm_get_file_binary USING 'C:/temp/2.xml' 
CHANGING lv_changed . 
* compare xml 
CALL METHOD cl_proxy_ui_utils=>show_xml_diff 
EXPORTING 
doc1 = lv_original 
doc2 = lv_changed. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_GET_FILE_BINARY 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*      -->P_0014   text 
*      <--P_LV_ORIGINAL  text 
*----------------------------------------------------------------------* 
FORM frm_get_file_binary  USING    i_path 
CHANGING c_xml. 
CONSTANTS c_linelen TYPE i VALUE 255. 
DATA: wa_data(c_linelen) TYPE x, 
it_data            LIKE TABLE OF wa_data, 
converter          TYPE REF TO cl_abap_conv_in_ce, 
lv_xstring         TYPE xstring, 
lv_length          TYPE i. 
CALL METHOD cl_gui_frontend_services=>gui_upload 
EXPORTING 
filename                = i_path 
filetype                = 'BIN' 
IMPORTING 
filelength              = lv_length 
CHANGING 
data_tab                = it_data 
EXCEPTIONS 
file_open_error         = 1 
file_read_error         = 2 
no_batch                = 3 
gui_refuse_filetransfer = 4 
invalid_type            = 5 
no_authority            = 6 
unknown_error           = 7 
bad_data_format         = 8 
header_not_allowed      = 9 
separator_not_allowed   = 10 
header_too_long         = 11 
unknown_dp_error        = 12 
access_denied           = 13 
dp_out_of_memory        = 14 
disk_full               = 15 
dp_timeout              = 16 
not_supported_by_gui    = 17 
error_no_gui            = 18 
OTHERS                  = 19. 
IF sy-subrc <> 0. 
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
ENDIF. 
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' 
EXPORTING 
input_length = lv_length 
IMPORTING 
buffer       = lv_xstring 
TABLES 
binary_tab   = it_data 
EXCEPTIONS 
failed       = 1 
OTHERS       = 2. 
IF sy-subrc  <> 0. 
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
ENDIF. 
c_xml = lv_xstring. 
ENDFORM.