◆◆0

如何将JSON转换为HTML格式并显示

石头 6月 12, 2019 ABAP, 其他 8,665 views 0

ABAP接口程序开发中时常会用到JSON格式来传输数据，在监控传输的JSON串内容时，把JSON转换为HTML格式来显示会很便利。

下面提供一个简单例子来实现JSON转化为HTML并显示的功能。

其中：

1，使用 /ui2/cl_json=>serialize来生成JSON串，

2，调用 TRANSFORMATION sjson2html来转换HTML，

3，使用 cl_abap_browser=>show_html显示HTML。

代码：

REPORT ztest_display_json.

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_ekpo
  FROM ekpo
  UP TO 10 ROWS.

* 将内表转化为JSON
lv_json = /ui2/cl_json=>serialize( data = lt_ekpo[] ).

TRY.
*   将JSON转换为HTML
    CALL TRANSFORMATION sjson2html SOURCE XML lv_json
                                   RESULT 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 ).