XML/XPath: Difference between revisions

</pre>

=={{header|VBScript}}==

<lang vb>

Set objXMLDoc = CreateObject("msxml2.domdocument")

objXMLDoc.load("In.xml")

Set item_nodes = objXMLDoc.selectNodes("//item")

i = 1

For Each item In item_nodes

If i = 1 Then

WScript.StdOut.Write item.xml

WScript.StdOut.WriteBlankLines(2)

Exit For

End If

Next

Set price_nodes = objXMLDoc.selectNodes("//price")

list_price = ""

For Each price In price_nodes

list_price = list_price & price.text & ", "

Next

WScript.StdOut.Write list_price

WScript.StdOut.WriteBlankLines(2)

Set name_nodes = objXMLDoc.selectNodes("//name")

list_name = ""

For Each name In name_nodes

list_name = list_name & name.text & ", "

Next

WScript.StdOut.Write list_name

WScript.StdOut.WriteBlankLines(2)

</lang>

{{out}}

<pre>

<item upc="123456789" stock="12">

<name>Invisibility Cream</name>

<price>14.50</price>

<description>Makes you invisible</description>

</item>

14.50, 23.99, 4.95, 3.56,

Invisibility Cream, Levitation Salve, Blork and Freen Instameal, Grob winglets,