XML转JSON

lubyce · 发表于 2020-1-6 16:33:22

论坛逛了一圈，没有发现可用源码，可能是我不擅长搜索吧，有见过类似源码的朋友请及时指出，

本源码基于官方【xml支持库】和【精易模块775】写的，刚刚出炉，还是热乎的，本人菜鸟，不会优化代码，希望大佬们可以指点一下。

经过本人草草的测试，字符1-255中仅符号【_】和【$】可以用作json名称，故选用了$符号作为节点属性区别符。

已下为全部代码。目前已知bug，会丢失根节点，不知道该怎么处理。

子程序名	返回值类型	公开	备注
xml2json	文本型
参数名	类型	参考	可空	数组	备注
xml_str	字节集
起点	文本型

变量名	类型	静态	数组	备注
xml	XML树
json	类_json
子节点名	文本型		0
属性名	文本型		0
子属性名	文本型		0
计次
子节点	文本型

如果真 (是否为空 (起点))

起点＝ “@1”
xml.导入 (xml_str)
xml.取子节点名 (起点, 子节点名)

计次循环首 (xml.取子节点个数 (起点, ), 计次)

子节点＝起点＋ “/@” ＋到文本 (计次)

子属性名＝ xml.取所有属性名 (子节点, )

判断 (xml.取子节点个数 (子节点, ) ＞ 0 或取数组成员数 (子属性名) ＞ 0)

判断 (数组_取次数 (子节点名, xml.取节点名文本 (子节点, )) ＞ 1)

json.加成员 (xml2json (xml_str, 子节点), xml.取节点名文本 (子节点, ), 真)

json.置属性 (xml.取节点名文本 (子节点, ), xml2json (xml_str, 子节点), 真)

判断 (数组_取次数 (子节点名, xml.取节点名文本 (子节点, )) ＞ 1)

json.加成员 (xml.取节点值文本 (子节点, ), xml.取节点名文本 (子节点, ), )

json.置属性 (xml.取节点名文本 (子节点, ), xml.取节点值文本 (子节点, ), )

计次循环尾 ()
属性名＝ xml.取所有属性名 (起点, )

计次循环首 (取数组成员数 (属性名), 计次)

json.置属性 (“$” ＋属性名 [计次], xml.取属性值文本 (起点, 属性名 [计次], ), )

计次循环尾 ()
返回 (json.取xx文本 ())

i支持库列表	支持库注释
EXMLParser	XML解析支持库

.版本 2<br />
.支持库 EXMLParser<br />
<br />
.子程序 xml2json, 文本型<br />
.参数 xml_str, 字节集<br />
.参数 起点, 文本型, 可空<br />
.局部变量 xml, XML树<br />
.局部变量 json, 类_json<br />
.局部变量 子节点名, 文本型, , "0"<br />
.局部变量 属性名, 文本型, , "0"<br />
.局部变量 子属性名, 文本型, , "0"<br />
.局部变量 计次<br />
.局部变量 子节点, 文本型<br />
<br />
.如果真 (是否为空 (起点))<br />
    起点 ＝ “@1”<br />
.如果真结束<br />
xml.导入 (xml_str)<br />
xml.取子节点名 (起点, 子节点名)<br />
.计次循环首 (xml.取子节点个数 (起点, ), 计次)<br />
    子节点 ＝ 起点 ＋ “/@” ＋ 到文本 (计次)<br />
    子属性名 ＝ xml.取所有属性名 (子节点, )<br />
    .判断开始 (xml.取子节点个数 (子节点, ) ＞ 0 或 取数组成员数 (子属性名) ＞ 0)<br />
        .判断开始 (数组_取次数 (子节点名, xml.取节点名文本 (子节点, )) ＞ 1)<br />
            json.加成员 (xml2json (xml_str, 子节点), xml.取节点名文本 (子节点, ), 真)<br />
        .默认<br />
            json.置属性 (xml.取节点名文本 (子节点, ), xml2json (xml_str, 子节点), 真)<br />
        .判断结束<br />
<br />
    .判断 (数组_取次数 (子节点名, xml.取节点名文本 (子节点, )) ＞ 1)<br />
        json.加成员 (xml.取节点值文本 (子节点, ), xml.取节点名文本 (子节点, ), )<br />
    .默认<br />
        json.置属性 (xml.取节点名文本 (子节点, ), xml.取节点值文本 (子节点, ), )<br />
    .判断结束<br />
<br />
.计次循环尾 ()<br />
属性名 ＝ xml.取所有属性名 (起点, )<br />
.计次循环首 (取数组成员数 (属性名), 计次)<br />
    json.置属性 (“$” ＋ 属性名 [计次], xml.取属性值文本 (起点, 属性名 [计次], ), )<br />
.计次循环尾 ()<br />
返回 (json.取xx文本 ())

测试xml

<note>
<to>George</to>
<desc from="baidu.com" btn="search">
<logo>

</logo>
</desc>
<from>John</from>
<from>LiLei</from>
<from>Tom</from>
<from>HanMM</from>
<heading>Reminder</heading>
<body>Don't forget the meeting!</body>
</note>

转换结果

{"to":"George","desc":{"logo":"https://www.baidu.com/img/bd_logo1.png","$from":"baidu.com","$btn":"search"},"from":["John","LiLei","Tom","HanMM"],"heading":"Reminder","body":"Don't forget the meeting!"}

json.cn 结果对比图
TIM截图20200106163254.png

l1220020800 · 发表于昨天 22:19

感谢分享，很给力！~

dhrjgzs · 发表于 2024-11-26 10:08:34

高手萌新学习一下

zhyl8888 · 发表于 2024-10-4 03:49:03

☆.。.:*(嘿´Д｀嘿).。.:*☆

wyd168 · 发表于 2023-11-3 15:06:27

感谢分享

yinyee · 发表于 2023-5-18 09:06:08

感谢分享

yinyee · 发表于 2023-5-18 09:05:52

感谢分享

hy4962 · 发表于 2021-8-10 20:25:06

支持开源~！感谢分享

朱星宇 · 发表于 2021-8-10 17:15:41

正好需要，下来式试。

f100long · 发表于 2021-5-19 19:24:58

努力学习，天天向上

		自动登录	找回密码
密码			注册

[易语言纯源码] XML转JSON

评分