关于读取XML的问题？？？？

Question

我有一xml文件
  <?xml version="1.0" standalone="yes" ?> 
- <DATAPACKET Version="2.0">
- <METADATA>
+ <FIELDS>
  <FIELD attrname="PerUUID" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerName" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerSex" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerAge" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerJob" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerRole" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerMemo" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="UPassword" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="LoginName" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PerDept" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="PrjID" fieldtype="i4" /> 
  <FIELD attrname="DeptID" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="DeptName" fieldtype="string.uni" WIDTH="508" /> 
  <FIELD attrname="DeptMemo" fieldtype="bin.hex" SUBTYPE="Text" /> 
  </FIELDS>
  <PARAMS /> 
  </METADATA>
- <ROWDATA>
  <ROW PerUUID="001" PerName="aaa" PerSex="男" UPassword="d41d8cd98f00b204e9800998ecf8427e" LoginName="aaa" PerDept="0001" PrjID="0" DeptID="0001" DeptName="wewe" /> 
  <ROW PerUUID="002" PerName="bbb" PerSex="男" UPassword="d41d8cd98f00b204e9800998ecf8427e" LoginName="bbb" PerDept="0001" PrjID="0" DeptID="0001" DeptName="wewe" /> 
  <ROW PerUUID="003" PerName="ccc" PerSex="男" UPassword="d41d8cd98f00b204e9800998ecf8427e" LoginName="ccc" PerDept="0001" PrjID="0" DeptID="0001" DeptName="wewe" /> 
  <ROW PerUUID="004" PerName="ddd" PerSex="男" UPassword="d41d8cd98f00b204e9800998ecf8427e" LoginName="ddd" PerDept="0002" PrjID="0" DeptID="0002" DeptName="qqqq" /> 
  <ROW PerUUID="005" PerName="eee" PerSex="男" UPassword="d41d8cd98f00b204e9800998ecf8427e" LoginName="eee" PerDept="0002" PrjID="0" DeptID="0002" DeptName="qqqq" /> 
  </ROWDATA>
  </DATAPACKET>
我想读取<ROWDATA>下PerName的所有内容：
请高手解决！！！

Answer 1

你的文档读取进来了吗，如果已经读取且已经取到要结点，如下可以实现
For i = 0 To rootNode.childNodes.length - 1
  If rootNode.childNodes(i).nodeName = "ROWDATA" Then
    for j=1 to rootNode.childNodes(i).childNodes(j)
      if rootNode.childNodes(i).childNodes(j).nodeName="ROW"  then               
         msgbox rootNode.childNodes(i).getAttribute("PerName")
      end if
    next j
  end if 
next i

Answer 2

if rootNode.childNodes(i).childNodes(j).nodeName="ROW"  then '->提示我对象不支持该属性和方法