xml文件为什么不用DOM呢?- set fso = CreateObject("Scripting.FileSystemObject")
- Set xmlDom = CreateObject("Microsoft.XMLDOM")
- xmlDom.async = "false"
- xmlDom.load "a.xml"
- set nodes = xmlDom.getElementsByTagName("material")
- for each node in nodes
- s = s & node.getAttribute("name") & vbCrLf
- next
- fso.OpenTextFile("material.txt",2,true).Write s
复制代码
|