使用VBScript查询XML数据

时间:2013-12-13 14:39:44

标签: xml vbscript

我是XML数据和VBScript的新手 - 我发现的资源对我没用。我想在一个国家/地区匹配时从XML中获取值。

E.g。搜索联合王国并检索价值。

有人可以帮我解决这个问题吗?谢谢!

我的XML文件位于...

之下
<root>

<!-- 
************************
::List:: COUNTRY::
************************
 -->

<COUNTRY>
    <Name>UNIED KINGDOM</Name>
    <Region>E</Region>
    <SETTING>I want this value</SETTING>
    <COUNTRYCODE>GB</COUNTRYCODE>
</COUNTRY>

这是我在TechNet上尝试过的代码

Set xmlDoc = CreateObject( "Microsoft.XMLDOM" )
xmlDoc.Async = "False"
xmlDoc.Load( "Data.xml")

strQuery = "Root[COUNTRY = 'UNITED KINGDOM']/SETTING"
Set colNodes = xmlDoc.selectNodes( strQuery )
For Each objNode in colNodes
Msgbox objNode.text
Next

1 个答案:

答案 0 :(得分:0)

我希望这会有所帮助。这是VB脚本。

 <script type="text/vbscript" >
 'Msg box Call 

 MsgBox XML_Read_Value_byTag ("Path of File", "Name") 'Name is the node,can be Region too

 ' this is the Function call     

Function XML_Read_Value_byTag(XMLFileName, XMLTag)
Set oXMLFile = CreateObject("Msxml2.DOMDocument") 
    oXMLFile.Load(XMLFileName)
Set oXMLFileVariale = oXMLFile.getElementsByTagName(XMLTag)
    XML_Read_Value_byTag = oXMLFileVariale.Item(0).Text
 End Function

</script>