QTP---VBS 读取XML中 对应标签的 值

先上一个简单的XML文档，如下
<?xml version="1.0"?> 
<book> 
<math> 
<grade>grade 1</grade> 
<name>math</name>
<price>$12.5</price> 
</math> 
<english> 
<grade>grade 2</grade> 
<name>english</name>
<price>$44.1</price> 
</english> 
</book> 


Dim objXML ' object to hold the xml document 
Dim objNode ' xml node object 
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.load("C:\Users\Conan\Desktop\111.xml") 
Set objNode = objXML.selectSingleNode("/book/english/price") 
print objNode.text


输出值：$44.1