BDL XML转JSON

Wed, 14 Oct 2026 00:00:00 +0000

通过base.typeinfo.create(object)将任意数据转为 JSON。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


 type demo record
 str string,
 dat date,
 bool boolean,
 varc varchar(100),
 inter interval DAY(5) TO MINUTE,
 datime datetime year to second,
 dec decimal(20,6),
 byt byte,
 txt text
 end record
 type lis dynamic array of demo
 define all record
 all1 string,
 all2 demo,
 all3 lis,
 all4 dynamic array with dimension 2 of demo,
 all5 record
 a string,
 b integer,
 c demo,
 d lis
 end record,
 all6 dynamic array of string
 end record
 define list lis
 define node om.DomNode
 define cnt integer

Record

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108


<?xml version='1.0' encoding='UTF-8'?>
<Record>
 <Field type="STRING" value="all1" name="all1"/>
 <Record name="all2">
 <Field type="STRING" value="all2.str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="all2.varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 14:14:17" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Array length="2" name="all3">
 <Record>
 <Field type="STRING" name="str"/>
 <Field type="DATE" name="dat"/>
 <Field type="BOOLEAN" name="bool"/>
 <Field type="VARCHAR(100)" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" name="datime"/>
 <Field type="DECIMAL(20,6)" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Record>
 <Field type="STRING" value="all3[2].str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="all3[2].varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 14:14:17" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 </Array>
 <Array length="1" name="all4">
 <Array length="2">
 <Record>
 <Field type="STRING" name="str"/>
 <Field type="DATE" name="dat"/>
 <Field type="BOOLEAN" name="bool"/>
 <Field type="VARCHAR(100)" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" name="datime"/>
 <Field type="DECIMAL(20,6)" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Record>
 <Field type="STRING" value="all4[1,2].str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="all4[1,2].varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 14:14:17" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 </Array>
 </Array>
 <Record name="all5">
 <Field type="STRING" name="a"/>
 <Field type="INTEGER" value="2" name="b"/>
 <Record name="c">
 <Field type="STRING" value="all5.c.str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="all5.c.varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 14:14:17" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Array length="2" name="d">
 <Record>
 <Field type="STRING" name="str"/>
 <Field type="DATE" name="dat"/>
 <Field type="BOOLEAN" name="bool"/>
 <Field type="VARCHAR(100)" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" name="datime"/>
 <Field type="DECIMAL(20,6)" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Record>
 <Field type="STRING" value="all5.d[2].str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="all5.d[2].varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 14:14:17" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 </Array>
 </Record>
 <Array length="2" name="all6">
 <Field type="STRING"/>
 <Field type="STRING" value="string"/>
 </Array>
</Record>

Array

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25


<?xml version='1.0' encoding='UTF-8'?>
<Array length="2">
 <Record>
 <Field type="STRING" name="str"/>
 <Field type="DATE" name="dat"/>
 <Field type="BOOLEAN" name="bool"/>
 <Field type="VARCHAR(100)" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" name="datime"/>
 <Field type="DECIMAL(20,6)" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
 <Record>
 <Field type="STRING" value="list[2].str" name="str"/>
 <Field type="DATE" value="06/01/02" name="dat"/>
 <Field type="BOOLEAN" value="0" name="bool"/>
 <Field type="VARCHAR(100)" value="list[2].varc" name="varc"/>
 <Field type="INTERVAL DAY(5) TO MINUTE" value=" 23423 12:34" name="inter"/>
 <Field type="DATETIME YEAR TO SECOND" value="2026-06-26 10:28:16" name="datime"/>
 <Field type="DECIMAL(20,6)" value="20.123450" name="dec"/>
 <Field name="byt"/>
 <Field name="txt"/>
 </Record>
</Array>

Filed

1
2


<?xml version='1.0' encoding='UTF-8'?>
<Field type="INTEGER" value="0"/>

Json on darcyjoven

BDL XML转JSON

Record

Array

Filed