Question

我试图使用临时表将XML文件转换为JSON。我可以从我的XML中获取每个数据并保存它，但我还需要额外的关系字段，这对我来说是不必要的。我可能会失明，但我没有看到解决方案。

OUTPUT（json）：

 {"employees": {   
"employee": [
     {
       "relation_id": null,
       "id": 1,
       "firstname": "aaa",
       "lastname": "bbb",
       "role": 1,
       "photo": "smile.jpg"
     },
     {
      "relation_id": null,
       "id": 2,
       "firstname": "ccc",
       "lastname": "ddd",
       "role": 1,
       "photo": "smile.jpg"
     },
     {
       "relation_id": null,
       "id": 3,
       "firstname": "www",
       "lastname": "bbb",
       "role": 0,
       "photo": "smile.jpg"
     },
     {
       "relation_id": null,
       "id": 4,
       "firstname": "kkk",
       "lastname": "sdfsdf",
       "role": 2,
       "photo": "smile.jpg"
     },
     {
       "relation_id": null,
       "id": 5,
       "firstname": "sdfsdf",
       "lastname": "gsdg",
       "role": 2,
       "photo": "smile.jpg"
     }   ],   "roles": [
     {
       "relation_id": null,
       "role": [
         {
           "relation_id": null,
           "id": 1,
           "name": "Actor"
         },
         {
           "relation_id": null,
           "id": 2,
           "name": "Student"
         }
       ]
     }   ] }}

所以我想删除所有＆＃34; relation_id＆＃34;字段所以我的输出没有它们，但我需要它们在临时表之间建立关系以获取所有数据。有什么想法吗？

这是我的代码。

DEFINE VARIABLE start AS LOGICAL NO-UNDO.
DEFINE VARIABLE zapisz AS LOGICAL NO-UNDO.
DEFINE VARIABLE typ AS CHARACTER NO-UNDO.
DEFINE VARIABLE doPliku AS CHARACTER NO-UNDO.
DEFINE VARIABLE wartosc AS LOGICAL NO-UNDO.

DEFINE TEMP-TABLE employee NO-UNDO XML-NODE-NAME "employee"
    FIELD relation_id AS RECID XML-NODE-TYPE "Hidden"
    FIELD id AS INTEGER
    FIELD firstname AS CHARACTER  
    FIELD lastname AS CHARACTER
    FIELD role AS INTEGER 
    FIELD photo AS CHARACTER.

DEFINE TEMP-TABLE roles NO-UNDO XML-NODE-NAME "roles"
    FIELD relation_id AS RECID XML-NODE-TYPE "Hidden".

DEFINE TEMP-TABLE role NO-UNDO XML-NODE-NAME "role"
    FIELD relation_id AS RECID XML-NODE-TYPE "Hidden"
    FIELD id AS INTEGER
    FIELD name AS CHARACTER.

DEFINE DATASET employees
FOR employees, employee, roles, role
DATA-RELATION dr3 FOR roles, role RELATION-FIELDS(relation_id, relation_id) NESTED. 


start = DATASET employees:READ-XML("FILE","D:\USERS\DANIELH\zadanie testowe\relacje2_zmiana\testInputFile2.xml","APPEND", ?, ?, ?, ?).

    ASSIGN
  typ = "FILE"
  doPliku = "D:\USERS\DANIELH\Zadanie testowe\relacje2_zmiana\ZadanieeeWOW.json"
  wartosc  = TRUE.

zapisz = DATASET employees:WRITE-JSON(typ, doPliku, wartosc).

Answer 1

将json文件中不需要的字段设置为'PanelEffectsResults' object has no attribute 'bse'。 SERIALIZE-HIDDEN仅定义如何将它们作为xml处理，而不是json。

XML-NODE-TYPE "Hidden"但适用于所有序列化格式，因此您可以删除SERIALIZE-HIDDEN。

像这样：

XML-NODE-TYPE = "Hidden"

Progress 4GL：使用临时表将XML导出为JSON

1 个答案: