ABAP 怎样将XML和JSON格式转换为HTML格式显示

ABAP 怎样将XML和JSON格式转换为HTML格式显示

一、将JSON格式转换为HTML格式

1. BAP接口程序开发中时常会用到JSON格式来传输数据，在监控传输的JSON串内容时，把JSON转换为HTML格式来显示会很便利。
2. 下面提供一个简单例子来实现JSON转化为HTML并显示的功能。
   • 使用 /ui2/cl_json=>serialize来生成JSON串，
   • 调用 TRANSFORMATION sjson2html来转换HTML，
   • 使用 cl_abap_browser=>show_html显示HTML。
3. 代码：

   *&---------------------------------------------------------------------*
   *& Report ZDEMO_TEST
   *&---------------------------------------------------------------------*
   *&*&---------------------------------------------------------------------*
   REPORT zdemo_test.DATA:lv_json     TYPE string,lv_convert  TYPE string,lo_json_ser TYPE REF TO cl_trex_json_serializer,lv_err_text TYPE string,lt_ekpo     TYPE STANDARD TABLE OF ekpo.SELECT *INTO CORRESPONDING FIELDS OF TABLE lt_ekpoFROM ekpoUP TO 10 ROWS.* 将内表转化为JSON
   lv_json = /ui2/cl_json=>serialize( data = lt_ekpo[] ).TRY.
   *   将JSON转换为HTMLCALL TRANSFORMATION sjson2html SOURCE XML lv_jsonRESULT XML DATA(lv_html).CATCH cx_xslt_runtime_error INTO DATA(lo_err).lv_err_text = lo_err->get_text( ).WRITE: lv_err_text.RETURN.
   ENDTRY.* 显示HTML
   lv_convert = cl_abap_codepage=>convert_from( lv_html ).
   cl_abap_browser=>show_html( html_string = lv_convert ).
   

4. 运行后弹出一个窗口显示HTML也可以通过‘+’‘—’来收起或展开JSON，很方便。
   

二、将HTML格式转换为XML格式

1. 将xml字符串展示为格式化的XML格式

    SELECT *FROM maktINTO TABLE @DATA(carriers) up to 10 rows.CALL TRANSFORMATION id SOURCE carriers = carriersRESULT XML DATA(xml).cl_demo_output=>begin_section( `Some Text` ).cl_demo_output=>write_text( |blah blah blah \n| &&|blah blah blah| ).cl_demo_output=>next_section( `Some Data` ).cl_demo_output=>begin_section( `Elementary Object` ).cl_demo_output=>write_data( carriers[ 1 ]-matnr ).cl_demo_output=>next_section( `Internal Table` ).cl_demo_output=>write_data( carriers ).cl_demo_output=>end_section( ).cl_demo_output=>next_section( `XML` ).cl_demo_output=>write_xml( xml ).cl_demo_output=>display( ).“或者写为下列格式也可cl_demo_output=>new()->begin_section( `Some Text`)->write_text( |blah blah blah \n| &&|blah blah blah|)->next_section( `Some Data`)->begin_section( `Elementary Object`)->write_data( carriers[ 1 ]-matnr)->next_section( `Internal Table`)->write_data( carriers)->end_section()->next_section( `XML`)->write_xml( xml)->display( ).
   

2. 展示效果
   

3. 显示为默认的颜色的弹窗

   cl_demo_output=>new( 'TEXT')->display( carriers ).
   

4. 展示效果