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 ).
运行后弹出一个窗口显示HTML也可以通过‘+’‘—’来收起或展开JSON,很方便。
如果不想把HTML显示在窗口中,可以利用一下show_html中的参数CONTAINER,将HTML显示在自己画的屏幕中。
其他:TRANSFORMATION sjson2html可以通过Tcode STRANS来查看。
以上。
标签:www,16,lv,JSON,HTML,2019,uploads,wp,格式
来源: https://www.cnblogs.com/datie/p/11428416.html