当前位置:我的异常网»  » ABAP 中JSON格式的变换与解析

ABAP 中JSON格式的变换与解析

  网友分享于：2013-05-09  浏览：0次

ABAP 中JSON格式的转换与解析

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

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

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

DATA: serializer cl_trex_json_serializer, lv_json TYPE string. DATA: BEGIN OF ls_kv, key1 TYPE string, value TYPE string, END OF ls_kv. ls_kv WITH UNIQUE KEY key1. ls_kv-key1 = . 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的解析，代码如下：

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它的更多信息，可以阅读这篇文章：

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

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

本文链接：