在VBScript中使用XMLDOM打印结束标记

Question

我在VBScript中使用XMLDOM对象来读取整个XML文件并返回所有标记和值。我目前能够读取所有父节点和子节点，但我无法找到父标签关闭的位置。我需要将xml存储在一个数组中。这样，如果我知道层次结构和节点值，我可以在以后创建一个新对象（不仅是XML），但是当我读取xml时，我松开了XML的层次结构。有什么方法可以用XMLDOM做到这一点吗？

这将打印所有打开标签：

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False" 
xmlDoc.Load(Records.xml) 
Set NodeList = xmlDoc.selectNodes ("//")

For Each objNode in NodeList
  value = objNode.nodeName
  msgbox value
Next

示例XML：

<Records>
  <Person>
    <First>Jon</First>
    <Last>Doe</Last>
  </Person>
  <Car>
    <Color>Blue</Color>
    <Year>2010</Year>
    <Miles>19000</Miles>
  </Car>
</Records>

当前输出：

Records
Person
First
Last
Car
Color
Year
Miles

需要输出：

Records
Person
First
Last
/Person
Car
Color
Year
Miles
/Car
/Records