正文

 

RT,JSON是当今十分流行的一种轻量数据格式,广泛地应用于各种数据交换场景中。本文会介绍一种比较简单的将ABAP中的数据转换为JSON格式的方法。

(如果你是因为引号的问题搜索到了这篇文章,请直接拉到底部“其它部分”)

回到顶部

序列化

使用cl_trex_json_serializer类来将结构转为JSON格式:

复制代码
DATA:
  serializer TYPE REF TO cl_trex_json_serializer,
  lv_json     TYPE string.

DATA: BEGIN OF ls_kv,
        key1  TYPE string,
        value TYPE string,
      END OF ls_kv.

DATA: lt_kv LIKE HASHED TABLE OF ls_kv WITH UNIQUE KEY key1.

ls_kv-key1 = 'key'.
ls_kv-value = ''.
INSERT  ls_kv INTO TABLE lt_kv.

CREATE OBJECT serializer
  EXPORTING
    data = ls_kv.

serializer->serialize( ).

lv_json = serializer->get_data( ).

WRITE / lv_json.
复制代码

 

运行这段代码,输出结果,可以得到:

 

回到顶部

反序列化

使用cl_trex_json_deserializer来实现JSON的解析,代码如下:

复制代码
DATA: deserializer TYPE REF TO cl_trex_json_deserializer.

CLEAR ls_kv.


CREATE OBJECT deserializer.

deserializer->deserialize(
    EXPORTING json = lv_json
    IMPORTING abap = ls_kv  ).

WRITE: / ls_kv-key1, / ,ls_kv-value.
复制代码

 

运行程序,可以看到结果:

 

以上就是ABAP中转换JSON数据的方法。当然,cl_trex_json_serializer与cl_trex_json_deserializer并不是唯一可以使用的类,SAP也为我们提供了CL_FDT_JSON, /UI2/CL_JSON等来进行JSON的序列化与反序列化,关于/UI2/CL_JSON它的更多信息,可以阅读这篇文章:

One more ABAP to JSON Serializer and Deserializer

回到顶部

其它

 

眼尖的读者也许注意到,这两个对象返回的的JSON是{key: "value"},而规范的JSON应该是{"key": "value"}的格式。如果使用它们来解析{"key": "value"}的话,会因为双引号的问题导致出现异常,解析失败。在这种情况下,推荐使用/UI2/CL_JSON:

 

/ui2/cl_json=>deserialize( EXPORTING json = json
                           CHANGING  data = data ).

 


正文

 

RT,JSON是当今十分流行的一种轻量数据格式,广泛地应用于各种数据交换场景中。本文会介绍一种比较简单的将ABAP中的数据转换为JSON格式的方法。

(如果你是因为引号的问题搜索到了这篇文章,请直接拉到底部“其它部分”)

回到顶部

序列化

使用cl_trex_json_serializer类来将结构转为JSON格式:

复制代码
DATA:
  serializer TYPE REF TO cl_trex_json_serializer,
  lv_json     TYPE string.

DATA: BEGIN OF ls_kv,
        key1  TYPE string,
        value TYPE string,
      END OF ls_kv.

DATA: lt_kv LIKE HASHED TABLE OF ls_kv WITH UNIQUE KEY key1.

ls_kv-key1 = 'key'.
ls_kv-value = ''.
INSERT  ls_kv INTO TABLE lt_kv.

CREATE OBJECT serializer
  EXPORTING
    data = ls_kv.

serializer->serialize( ).

lv_json = serializer->get_data( ).

WRITE / lv_json.
复制代码

 

运行这段代码,输出结果,可以得到:

 

回到顶部

反序列化

使用cl_trex_json_deserializer来实现JSON的解析,代码如下:

复制代码
DATA: deserializer TYPE REF TO cl_trex_json_deserializer.

CLEAR ls_kv.


CREATE OBJECT deserializer.

deserializer->deserialize(
    EXPORTING json = lv_json
    IMPORTING abap = ls_kv  ).

WRITE: / ls_kv-key1, / ,ls_kv-value.
复制代码

 

运行程序,可以看到结果:

 

以上就是ABAP中转换JSON数据的方法。当然,cl_trex_json_serializer与cl_trex_json_deserializer并不是唯一可以使用的类,SAP也为我们提供了CL_FDT_JSON, /UI2/CL_JSON等来进行JSON的序列化与反序列化,关于/UI2/CL_JSON它的更多信息,可以阅读这篇文章:

One more ABAP to JSON Serializer and Deserializer

回到顶部

其它

 

眼尖的读者也许注意到,这两个对象返回的的JSON是{key: "value"},而规范的JSON应该是{"key": "value"}的格式。如果使用它们来解析{"key": "value"}的话,会因为双引号的问题导致出现异常,解析失败。在这种情况下,推荐使用/UI2/CL_JSON:

 

/ui2/cl_json=>deserialize( EXPORTING json = json
                           CHANGING  data = data ).

 


GitHub 加速计划 / js / json
41.72 K
6.61 K
下载
适用于现代 C++ 的 JSON。
最近提交(Master分支:1 个月前 )
960b763e 4 个月前
8c391e04 6 个月前
Logo

旨在为数千万中国开发者提供一个无缝且高效的云端环境,以支持学习、使用和贡献开源项目。

更多推荐