XML转JSON - 精易论坛 - Powered by Discuz!

子程序名	返回值类型	公开	备注
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文本 ())