帮转化一个函数，XML函数

lsqiang

因原生XML有些BUG有时会闪退，所以想用zyxml模块，但是不会用这个插件。请帮忙把XML原生函数转成zyxml的。

  

文件路径 ＝ 取运行目录 () ＋ “/data/ItemList.xml”
如果真 (文件_取文本编码 (文件路径) ＝ 1)
写到文件 (文件路径, 到字节集 (编码_Utf8到Ansi (读入文件 (文件路径))))
' XML文件.导入 (文件路径)
XML文件.导入 (读入文件 (文件路径))
XML文件.取子节点数 (“@1/”, type数量)
i ＝ 1
x ＝ 1
计次循环首 (type数量, i)
XML文件.取子节点数 (“@1/@” ＋ 到文本 (i) ＋ “/”, index数量)
计次循环首 (index数量, x)
type ＝ 到整数 (XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/”, “Index”, ))
index ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Index”, )
物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [1] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Width”, )
物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [2] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Height”, )
物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [3] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Name”, )
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 EXMLParser<br /> <br />     文件路径 ＝ 取运行目录 () ＋ “/data/ItemList.xml”<br /> <br />     .如果真 (文件_取文本编码 (文件路径) ＝ 1)<br />         写到文件 (文件路径, 到字节集 (编码_Utf8到Ansi (读入文件 (文件路径))))<br />     .如果真结束<br />     ' XML文件.导入 (文件路径)<br />     XML文件.导入 (读入文件 (文件路径))<br />     XML文件.取子节点数 (“@1/”, type数量)<br />     i ＝ 1<br />     x ＝ 1<br />     .计次循环首 (type数量, i)<br />         XML文件.取子节点数 (“@1/@” ＋ 到文本 (i) ＋ “/”, index数量)<br />         .计次循环首 (index数量, x)<br />             type ＝ 到整数 (XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/”, “Index”, ))<br />             index ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Index”, )<br />             物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [1] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Width”, )<br />             物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [2] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Height”, )<br />             物品数据IGC [到整数 (type) ＋ 1] [到整数 (index) ＋ 1] [3] ＝ XML文件.取属性值文本 (“@1/@” ＋ 到文本 (i) ＋ “/@” ＋ 到文本 (x) ＋ “/”, “Name”, )<br />         .计次循环尾 ()<br />     .计次循环尾 ()

404错误

[Visual Basic] 纯文本查看 复制代码

.版本 2
.支持库 epugixml
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 xml, pugi文档
.局部变量 xmlArrLen, 整数型
.局部变量 物品数据IGC, 文本型, , "99,9999,3"
.局部变量 ItemArr, pugi节点, , "0"
.局部变量 Itmetype, 整数型
.局部变量 ItmeIndex, 整数型
.局部变量 i
.局部变量 ItmeName, 文本型
.局部变量 ItmeWidth, 文本型
.局部变量 ItmeHeight, 文本型

调试输出 (xmlArrLen)
.如果真 (xml.载入字节集 (#tp1, , #PUGI_编码_自动, ))
    ' xmlArrLen ＝ xml.取根节点 ().查找节点组 (xmlArr, “Section”, , , )
    xmlArrLen ＝ xml.选择节点组 (“/ItemList/Section/Item”, ItemArr)
    .计次循环首 (xmlArrLen, i)
        Itmetype ＝ ItemArr .取父节点 ().取属性 (“Index”).取整数值 () ＋ 1
        ItmeIndex ＝ ItemArr .取属性 (“Index”).取整数值 () ＋ 1
        ItmeName ＝ ItemArr .取属性 (“Name”).取值 ()
        ItmeWidth ＝ ItemArr .取属性 (“Width”).取值 ()

        ItmeHeight ＝ ItemArr .取属性 (“Height”).取值 ()
        物品数据IGC [Itmetype] [ItmeIndex] [1] ＝ ItmeName
        物品数据IGC [Itmetype] [ItmeIndex] [2] ＝ ItmeWidth
        物品数据IGC [Itmetype] [ItmeIndex] [3] ＝ ItmeHeight
    .计次循环尾 ()
    调试输出 (xmlArrLen)
    .计次循环首 (20, i)
        调试输出 (物品数据IGC  [1] [1])
    .计次循环尾 ()

.如果真结束

补充内容 (2024-11-12 18:55):
找不着易语言代码插入 用了别的支持库 https://bbs.125.la/forum.php?mod=viewthread&tid=14359846

404错误

你能不能发xml以及你要取的内容，我看不懂需求。

lsqiang

求需是给一个3维数组赋值。
比如：物品 type 0 index2 的物品名名是：西洋剑
因为xml 的属性值有0，数据没有，所以整体编号+1
赋值结果为：物品数据[1][3][3] = 西洋剑
最后1个纬度只有3个。1 =Width  ，2=Height，3=Name

lsqiang

404错误 发表于 2024-11-10 18:39
你能不能发xml以及你要取的内容，我看不懂需求。

我带了附件了

404错误

lsqiang 发表于 2024-11-10 23:23
求需是给一个3维数组赋值。
比如：物品 type 0 index2 的物品名名是：西洋剑
因为xml 的属性值有0，数据没 ...

大概懂了，但是你没发模块，而且你的附件还要1精币

404错误

lsqiang 发表于 2024-11-10 23:24
我带了附件了

我找到模块了，但是你这个xml里那个星座也要吗？

补充内容 (2024-11-12 18:21):
zyxml载入不了你的xml 应该是因为注释的缘故

补充内容 (2024-11-12 18:35):
不是因为注释，你的xml就是载入不了 怪怪的

lsqiang

404错误 发表于 2024-11-12 18:55
[mw_shl_code=vb,true].版本 2
.支持库 epugixml
.支持库 spec

提示：<i> 这个运算符号无效呢？