ABAP 中JSON格式的轉換與解析

 

RT，JSON是當今十分流行的一種輕量數據格式，廣泛地應用於各種數據交換場景中。本文會介紹一種比較簡單的將ABAP中的數據轉換為JSON格式的方法。

（如果你是因為引號的問題搜索到了這篇文章，請直接拉到底部“其它部分”）

本文的正文內容中的轉換類cl_trex_json_serializer不建議使用，參看 其他部分

序列化

使用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

其它 (/ui2/cl_json)

眼尖的讀者也許注意到，這兩個對象返回的的JSON是{key: "value"}，而規范的JSON應該是{"key": "value"}的格式。如果使用它們來解析{"key": "value"}的話，會因為雙引號的問題導致出現異常，解析失敗。在這種情況下，推薦使用/UI2/CL_JSON：

types: begin of t_record,
         key1 type string,
         key2 type string,
       end of t_record.

data: json type string.
data: record type t_record.

json = '{"key1": "VALUE1",  "key2": "VALUE2"}'.

/ui2/cl_json=>deserialize( exporting json = json changing data = record ).

 

 

某些系統中可能沒有安裝相應的Add-on（UI2 Add-on，可以應用的版本是 SAP_BASIS 700 – 76X），因此找不到/UI2/CL_JSON類，我提取了相關代碼：ZUI2_JSON.zip，可以點擊下載，直接復制到系統中使用。也可以使用abapgit安裝。

 

本文鏈接：http://www.cnblogs.com/hhelibeb/p/6617488.html 

(本來想寫下最近學到的使用post方法調用restful api的方法，然而搜索一下發現這些百度也可以搜到..。所以后面就不繼續了。

 

參考閱讀：One more ABAP to JSON Serializer and Deserializer

　　　　  JSON2ABAPType：根據JSON數據結構生成ABAP類型定義