[Erlang] 纯文本查看 复制代码
函数 提取XML信息(xmlPath)
文件.读入文本(xmlPath, "UTF-8")
如果 文件.末尾 <> 0 则
文件.内容 +="\r\n" + 字符串.读入(文件.文件句柄, 文件.末尾)
结束如果
XMLDOM = 对象.创建("Microsoft.XMLDOM")
如果 XMLDOM <> 0 则
XMLDOM.async = 假
XMLDOM.loadXML(文件.内容)
如果 XMLDOM.parseError.errorCode <> 0 则
返回 "解析XML错误:" + XMLDOM.parseError.reason
结束如果
根节点 = XMLDOM.documentElement
所有ImgDir = XMLDOM.getElementsByTagName("imgdir")
对象.销毁(XMLDOM)
对象.销毁(文件)
结果 = ""
对象数 = 对象.取项目数(所有ImgDir)
对象数2 = 对象.取项目数(对象.取项目(所有ImgDir, 0).getElementsByTagName("imgdir"))
对象.添加项目(结果, "ID:000001")
对象.添加项目(结果, "NAME:STR : +#incSTR")
对象.添加项目(结果, "LEVEL:[1,1,2,2,3,3,4,4,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6]")
对象.添加项目(结果, "")
对象.添加项目(结果, "ID:000002")
对象.添加项目(结果, "NAME:DEX : +#incDEX")
对象.添加项目(结果, "LEVEL:[1,1,2,2,3,3,4,4,5,5,6,6,6,6,6,6,6,6,6,6]")
返回 结果
否则
文件.关闭文件
返回 "创建XMLDOM对象失败"
结束如果
结束函数
xml内容 = 提取XML信息("your_xml_file.xml")
如果 左边(xml内容, 6) = "解析XML错误" 则
系统API.弹出消息框("无法解析XML文件:\r\n" + xml内容)
否则
系统API.弹出消息框("成功提取XML信息:\r\n" + xml内容)
结束如果