ABAP 内表数据与 Json串相互转换

最新推荐文章于 2024-10-10 14:22:05 发布

weixin_30521649

最新推荐文章于 2024-10-10 14:22:05 发布

阅读量232

点赞数

CC 4.0 BY-SA版权

文章标签： json

原文链接：http://www.cnblogs.com/mingdashu/p/6601326.html

本文介绍了一个具体的ABAP编程实例，演示如何将ABAP内表转换为JSON字符串，以及如何从JSON字符串中读取数据并填充到ABAP内表中。通过创建并使用`CL_TREX_JSON_SERIALIZER`和`CL_TREX_JSON_DESERIALIZER`类的方法，实现了数据格式之间的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

内表：

A	B	C
IMINGZHA	HAIMINGZ	AIMINGZH
1	2	3
4	5	6

Json串： [{a: "IMINGZHA", b: "HAIMINGZ", c: "AIMINGZH"}, {a: "1", b: "2", c: "3"}, {a: "4", b: "5", c: "6"}]

 1   DATA: json_ser TYPE REF TO CL_TREX_JSON_SERIALIZER,
 2             json_des TYPE REF TO CL_TREX_JSON_DESERIALIZER.
 3   DATA: jsonstr TYPE string.
 4 
 5   DATA: BEGIN OF IT_TAB OCCURS 0,
 6             A TYPE CHAR10,
 7             B TYPE CHAR10,
 8             C TYPE CHAR10,
 9         END OF IT_TAB.
10 
11   IT_TAB-A = 'IMINGZHA' .
12   IT_TAB-B = 'HAIMINGZ' .
13   IT_TAB-C = 'AIMINGZH' .
14   APPEND IT_TAB.
15 
16   IT_TAB-A = '1' .
17   IT_TAB-B = '2' .
18   IT_TAB-C = '3' .
19   APPEND IT_TAB.
20 
21   IT_TAB-A = '4' .
22   IT_TAB-B = '5' .
23   IT_TAB-C = '6' .
24   APPEND IT_TAB.
25 
26 *内表 转 Json 串
27   CREATE OBJECT json_ser
28     EXPORTING
29       data = IT_TAB[].
30   CALL METHOD json_ser->SERIALIZE.
31   CALL METHOD json_ser->GET_DATA
32     RECEIVING
33       rval = jsonstr.
34 
35 
36 BREAK-POINT.
37 *Json 串 append 内表 
38   CREATE OBJECT json_des.
39   CALL METHOD json_des->DESERIALIZE
40     EXPORTING
41       json = jsonstr
42     IMPORTING
43       abap = IT_TAB[].
44 
45 
46 BREAK-POINT.