Anonymous user
XML/XPath: Difference between revisions
→{{header|TUSCRIPT}}
Line 2,117:
3 = Blork and Freen Instameal
4 = Grob winglets
</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,
</pre>
| |||