aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

45
Task/XML-XPath/Crystal/xml-xpath.cr Normal file
View file

@ -0,0 +1,45 @@
require "xml"
str = <<-XML
<inventory title="OmniCorp Store #45x10^3">
<item upc="123456789" stock="12">
<name>Invisibility Cream</name>
<price>14.50</price>
<description>Makes you invisible</description>
</item>
<item upc="445322344" stock="18">
<name>Levitation Salve</name>
<price>23.99</price>
<description>Levitate yourself for up to 3 hours per application</description>
</item>
<item upc="485672034" stock="653">
<name>Blork and Freen Instameal</name>
<price>4.95</price>
<description>A tasty meal in a tablet; just add water</description>
</item>
<item upc="132957764" stock="44">
<name>Grob winglets</name>
<price>3.56</price>
<description>Tender winglets of Grob. Just add water</description>
</item>
</inventory>
XML
doc = XML.parse str
# Retrieve the first "item" element
first_item = doc.xpath("//item[1]")
# Perform an action on each "price" element (print it out)
doc.xpath_nodes("//price/text()").each do |price|
puts price
end
# Get an array of all the "name" elements
names = doc.xpath_nodes("//name").to_a

31
Task/XML-XPath/PowerShell/xml-xpath-1.ps1 Normal file
View file

@ -0,0 +1,31 @@
$document = [xml]@'
<inventory title="OmniCorp Store #45x10^3">
<section name="health">
<item upc="123456789" stock="12">
<name>Invisibility Cream</name>
<price>14.50</price>
<description>Makes you invisible</description>
</item>
<item upc="445322344" stock="18">
<name>Levitation Salve</name>
<price>23.99</price>
<description>Levitate yourself for up to 3 hours per application</description>
</item>
</section>
<section name="food">
<item upc="485672034" stock="653">
<name>Blork and Freen Instameal</name>
<price>4.95</price>
<description>A tasty meal in a tablet; just add water</description>
</item>
<item upc="132957764" stock="44">
<name>Grob winglets</name>
<price>3.56</price>
<description>Tender winglets of Grob. Just add water</description>
</item>
</section>
</inventory>
'@
$query = "/inventory/section/item"
$items = $document.SelectNodes($query)

1
Task/XML-XPath/PowerShell/xml-xpath-2.ps1 Normal file
View file

@ -0,0 +1 @@
$items[0]

2
Task/XML-XPath/PowerShell/xml-xpath-3.ps1 Normal file
View file

@ -0,0 +1,2 @@
$namesAndPrices = $items | Select-Object -Property name, price
$namesAndPrices

1
Task/XML-XPath/PowerShell/xml-xpath-4.ps1 Normal file
View file

@ -0,0 +1 @@
$items.price

1
Task/XML-XPath/PowerShell/xml-xpath-5.ps1 Normal file
View file

@ -0,0 +1 @@
$items.name

29
Task/XML-XPath/VBScript/xml-xpath.vbs Normal file
View file

@ -0,0 +1,29 @@
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)