复制代码 代码如下:

'*****************************************************************

'** Script: getxmlelement.vbs

'** Version: 1.0

'** Created: 1/8/2009 10:58PM

'** Author: Adriaan Westra

'** E-mail:

'** Purpose / Comments:

'** Get an element from a xml file

'**

'**

'** Changelog :

'** 1/8/2009 10:58PM : Initial version

'**

'*****************************************************************

Dim objXML ' object to hold the xml document

Dim objNnode ' xml node object

'*****************************************************************

'** create the xml object

Set objXML = CreateObject("Msxml2.DOMDocument.6.0")

'*****************************************************************

'** Load the xml from file

objXML.load("album.xml")

'*****************************************************************

'** Set language for finding information to XPath

objXML.setProperty "SelectionLanguage", "XPath"

'*****************************************************************

'** Get a reference to the node

Set objNode = objXML.selectSingleNode("/album/DSC_2710/title")

'*****************************************************************

'** Output the requested text

wscript.echo "Title : " & objNode.text

The sample xml file used by the script :

复制代码 代码如下:

<?xml version="1.0"?>

<album>

<title>Bloemen</title>

<DSC_2710>

<alt>Pioenroos</alt>

<title>Pioenroos</title>

</DSC_2710>

<DSC_4777>

<alt>DSC_4777</alt>

<title>DSC_4777</title>

</DSC_4777>

<DSC_4787>

<alt>Vingerhoedskruid</alt>

<title>Vingerhoedskruid</title>

</DSC_4787>

<DSC_4899>

<alt>Lavendel</alt>

<title>Lavendel</title>

</DSC_4899>

<DSC_5003>

<alt>Zonnebloem</alt>

<title>Zonnebloem</title>

</DSC_5003>

</album>