程序代码：

 &&读取文件
oxmldoc=Createobject("Microsoft.XMLDOM")
oxmldoc.Load("C:\Users\Administrator\Desktop\ws\GRE3000完整词表.xml")
oRowtag=oxmldoc.getElementsByTagName("item")

?"共有子标签:",oxmldoc.documentElement.childNodes.length
oxmlHeader=oxmldoc.documentElement.childNodes.Item(0)

&&?oxmlHeader.text  &&里面的值 不包含子标签 但是包含子值
&&?oxmlHeader.xml  &&连同标签

word1=oxmldoc.documentElement.childNodes.Item(0).childNodes.Item(0) && word
?word1.text  
trans1=oxmldoc.documentElement.childNodes.Item(0).childNodes.Item(1) && trans1
?trans1.text  
pho=oxmldoc.documentElement.childNodes.Item(0).childNodes.Item(2) && pho
?pho.text
tags=oxmldoc.documentElement.childNodes.Item(0).childNodes.Item(5) && tags
?tags.text  
&&?oxmlHeader.nodename  &&标签名