快捷導(dǎo)航

從XML文件中獲取信息的vbs代碼

更新時(shí)間：2011年12月25日 21:54:00 作者：

從XML文件中獲取信息的vbs代碼，這個(gè)腳本演示了如何通過MSXML從一個(gè)XML文件中的信息。示例XML文件是用于在網(wǎng)站上的相冊。此腳本將返回特定圖片的標(biāo)題。

 
'***************************************************************** 
'** 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 :

復(fù)制代碼代碼如下:

 
<?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> 