SAP ABAP 和 Json 的转换

转载

sapLiuMeng 2022-07-27 06:35:58

文章标签 json xml json格式 文章分类 OpenStack 云计算

SAP ABAP 和 Json 的转换_json

JSON ：是一种简单的数据交换格式

格式：

{
        "structure": [
            {"name":"jim","age":23},
            {"name":"lily","年龄":24}
        ]
    }
一个对象以“{”（左括号）开始，“}”（右括号）结束
一个数组以“[”（左中括号）开始，“]”（右中括号）结束
1. cl_trex_json_serializer、cl_trex_json_deserializer方式
DATA: lo_json_ser TYPE REF TO cl_trex_json_serializer,
      lo_json_des TYPE REF TO cl_trex_json_deserializer.
DATA: json_string TYPE string.

DATA: lt_zxlth TYPE STANDARD TABLE OF zxlth.


SELECT * FROM zxlth INTO TABLE lt_zxlth UP TO 10 ROWS.

*内表-> JSON

CREATE OBJECT lo_json_ser
  EXPORTING
    data = lt_zxlth[].
CALL METHOD lo_json_ser->serialize.
CALL METHOD lo_json_ser->get_data
  RECEIVING
    rval = json_string.

*WRITE:/ json_string.

CLEAR:lt_zxlth[].
*JSON->内表
  CREATE OBJECT lo_json_des.

  CALL METHOD lo_json_des->deserialize
    EXPORTING
      json = json_string
    IMPORTING
      abap = lt_zxlth[].

WRITE:123.

注意：该种转换方式，生成的JSON，KEY关键字没有引号，字符串中包含空格，如果与第三方系统做接口时，就会因为JSON格式问题，导致接口失败。

这个时候，需要参照这2个类新建2个对应的新类 zcl_trex_json_serializer、zcl_trex_json_deserializer 来转换的时候加上引号

zcl_trex_json_serializer->RECURSE 加上如下图所示

SAP ABAP 和 Json 的转换_xml_02

CONCATENATE <abapcomp>-name c_colon INTO l_value 修改为

CONCATENATE '"' <abapcomp>-name '"' c_colon INTO l_value.

zcl_trex_json_deserializer->DESERIALIZE_OBJECT

SAP ABAP 和 Json 的转换_json格式_03 SAP ABAP 和 Json 的转换_json格式_04

2.  CALL TRANSFORMATION id

SELECT * FROM zxlth INTO TABLE lt_zxlth UP TO 10 ROWS.

* ABAP to JSON
lo_writer = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).

CALL TRANSFORMATION id
 SOURCE text = lt_zxlth[]
  RESULT XML lo_writer.

lv_jsonx = lo_writer->get_output( ).

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING
    buffer        = lv_jsonx
  IMPORTING
    output_length = lv_output_length
  TABLES
    binary_tab    = lt_binary_tab.

CALL FUNCTION 'SCMS_BINARY_TO_STRING'
  EXPORTING
    input_length  = lv_output_length
  IMPORTING
    text_buffer   = lv_json
    output_length = lv_output_length
  TABLES
    binary_tab    = lt_binary_tab.

* JSON to ABAP
CALL TRANSFORMATION id
   SOURCE XML lv_jsonx
    RESULT text = lt_zxlth.

WRITE:123.

注意：该种JSON转换生成的数据，比内表数据多了一部分“TEXT”字符串，也不是很满意

3. /UI2/CL_JSON方式（旧系统可能没有这个类）
DATA: lt_mara TYPE STANDARD TABLE OF mara,
      lrf_descr TYPE REF TO cl_abap_typedescr,
      lv_json   TYPE string.

SELECT * FROM mara INTO TABLE lt_mara UP TO 5 ROWS.

* serialize table lt_flight into JSON, skipping initial fields and converting ABAP field names into camelCase
lv_json = /ui2/cl_jsnotallow=>serialize(
                          data = lt_mara
                          compress = abap_true
                          pretty_name = /ui2/cl_jsnotallow=>pretty_mode-camel_case ).
WRITE / lv_json.

CLEAR lt_mara.

* deserialize JSON string json into internal table lt_flight doing camelCase to ABAP like field name mapping
/ui2/cl_jsnotallow=>deserialize( EXPORTING json = lv_json pretty_name = /ui2/cl_jsnotallow=>pretty_mode-camel_case CHANGING data = lt_mara ).

* serialize ABAP object into JSON string
lrf_descr = cl_abap_typedescr=>describe_by_data( lt_mara ).
lv_json = /ui2/cl_jsnotallow=>serialize( lrf_descr ).
WRITE / lv_json.