XML树类模块

易语言 2021-03-04 10:21:01

n = 寻找字节集 (XML源码, 到字节集 (“.如果 (n = -1)
返回 ({ })
.否则
字节集 = 取字节集右边 (XML源码, 取字节集长度 (XML源码) - n + 1)
.如果结束
字节集 = 子字节集替换 (字节集, { 13, 10 }, { 32 }, , )
字节集 = 子字节集替换 (字节集, { 9 }, { 32 }, , )
n = 寻找字节集 (字节集, 到字节集 (“encoding=”), )
.如果真 (n ≠ -1)
m = 寻找字节集 (字节集, 到字节集 (“?>”), n)
.如果真 (m ≠ -1)
字符集属性 = 到文本 (取字节集中间 (字节集, n + 10, m - n - 10))
n = 寻找文本 (字符集属性, #引号, , 假)
.如果真 (n ≠ -1)
字符集属性 = 取文本左边 (字符集属性, n - 1)
XML树类模块开源。