开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 153|回复: 7
收起左侧

[完成] 帮转化一个函数,XML函数

 关闭 [复制链接]
结帖率:40% (2/5)
发表于 2024-11-10 13:25:13 | 显示全部楼层 |阅读模式   四川省成都市
5精币
因原生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支持库列表   支持库注释   
EXMLParserXML解析支持库

最佳答案

查看完整内容

[mw_shl_code=vb,true].版本 2 .支持库 epugixml .支持库 spec .子程序 __启动窗口_创建完毕 .局部变量 xml, pugi文档 .局部变量 xmlArrLen, 整数型 .局部变量 物品数据IGC, 文本型, , "99,9999,3" .局部变量 ItemArr, pugi节点, , "0" .局部变量 Itmetype, 整数型 .局部变量 ItmeIndex, 整数型 .局部变量 i .局部变量 ItmeName, 文本型 .局部变量 ItmeWidth, 文本型 .局部变量 ItmeHeight, 文本型 调试输出 (xmlArrLen) .如果真 ...
结帖率:100% (4/4)

签到天数: 17 天

发表于 2024-11-10 13:25:14 | 显示全部楼层   山西省晋中市
[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

评分

参与人数 1荣誉 +1 收起 理由
笨潴 + 1 热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻!

查看全部评分

回复

使用道具 举报

结帖率:100% (4/4)

签到天数: 17 天

发表于 2024-11-10 18:39:40 | 显示全部楼层   山西省晋中市
你能不能发xml以及你要取的内容,我看不懂需求。
回复

使用道具 举报

结帖率:40% (2/5)

签到天数: 13 天

 楼主| 发表于 2024-11-10 23:23:41 | 显示全部楼层   四川省成都市
求需是给一个3维数组赋值。
比如:物品 type 0 index2 的物品名名是:西洋剑
因为xml 的属性值有0,数据没有,所以整体编号+1
赋值结果为:物品数据[1][3][3] = 西洋剑
最后1个纬度只有3个。1 =Width  ,2=Height,3=Name

ItemList.rar

81.2 KB, 下载次数: 1, 下载积分: 精币 -1 枚

回复

使用道具 举报

结帖率:40% (2/5)

签到天数: 13 天

 楼主| 发表于 2024-11-10 23:24:02 | 显示全部楼层   四川省成都市
404错误 发表于 2024-11-10 18:39
你能不能发xml以及你要取的内容,我看不懂需求。

我带了附件了
回复

使用道具 举报

结帖率:100% (4/4)

签到天数: 17 天

发表于 2024-11-12 18:06:58 | 显示全部楼层   山西省晋中市
lsqiang 发表于 2024-11-10 23:23
求需是给一个3维数组赋值。
比如:物品 type 0 index2 的物品名名是:西洋剑
因为xml 的属性值有0,数据没 ...

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

使用道具 举报

结帖率:100% (4/4)

签到天数: 17 天

发表于 2024-11-12 18:17:53 | 显示全部楼层   山西省晋中市

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

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

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

使用道具 举报

结帖率:40% (2/5)

签到天数: 13 天

 楼主| 发表于 2024-11-14 00:23:34 | 显示全部楼层   四川省成都市
404错误 发表于 2024-11-12 18:55
[mw_shl_code=vb,true].版本 2
.支持库 epugixml
.支持库 spec

提示:<i> 这个运算符号无效呢?

评分

参与人数 1精币 +1 收起 理由
404错误 + 1 39行内容不是代码,我找不着插入易语言代码,用的别的代码格式,出错了了.

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表