Print Page - XML Challenge

BASIC User Group => Code Challenges => Topic started by: AIR on December 13, 2018, 07:03:41 PM

Title: XML Challenge
Post by: AIR on December 13, 2018, 07:03:41 PM

New Challenge!

Using the attached xml file, For each Food record:

Extract the Name of the food
Extract the information for the Sodium content
Print out the Name in Quotes, taking care to eliminate any trailing spaces, and the Sodium Content, in the format shown below

"Avocado Dip" has a sodium level of 210 "Bagels, New York Style" has a sodium level of 510 "Beef Frankfurter, Quarter Pound" has a sodium level of 1100 "Chicken Pot Pie" has a sodium level of 810 "Cole Slaw" has a sodium level of 15 "Eggs" has a sodium level of 65 "Hazelnut Spread" has a sodium level of 20 "Potato Chips" has a sodium level of 180 "Soy Patties, Grilled" has a sodium level of 420 "Truffles, Dark Chocolate" has a sodium level of 10

AIR.

Title: Re: XML Challenge
Post by: AIR on December 13, 2018, 07:08:58 PM

MBC VERSION:

Code: Text

$MODULE xml.inc
$EXECON
 
raw tree as NODE, node as NODE
dim name$,sodium$
 
tree = xmlLoad("sample.xml")
node = xmlFind(tree,"food")
while node 
    name$ = xmlGet$(node,"/name")
    sodium$ = xmlGet$(node,"/sodium")
    print enc$(trim$(name$)), " has a sodium level of ",sodium$
    node = xmlNext(node,tree,"food")
wend
 
xmlDelete(tree)
 

OUTPUT:

[riveraa@MacDev ~/Projects/mbc] $ ./xmlchallenge "Avocado Dip" has a sodium level of 210 "Bagels, New York Style" has a sodium level of 510 "Beef Frankfurter, Quarter Pound" has a sodium level of 1100 "Chicken Pot Pie" has a sodium level of 810 "Cole Slaw" has a sodium level of 15 "Eggs" has a sodium level of 65 "Hazelnut Spread" has a sodium level of 20 "Potato Chips" has a sodium level of 180 "Soy Patties, Grilled" has a sodium level of 420 "Truffles, Dark Chocolate" has a sodium level of 10 [riveraa@MacDev ~/Projects/mbc] $

AIR.

Title: Re: XML Challenge
Post by: John on December 13, 2018, 08:34:51 PM

Script BASIC

Code: ScriptBasic

' XML Chalenge - Script BASIC - JRS
 
IMPORT t.bas
 
SPLITA t::LoadString("sample.xml") BY "<food>" TO food
FOR idx = 0 TO UBOUND(food)
  IF food[idx] LIKE "*<name>*</name>*<sodium>*</sodium>*" THEN _
  PRINT FORMAT("\"%s\" has a sodium level of %g\n", TRIM(JOKER(2)),JOKER(4))
NEXT
 

$ time scriba xmlcc "Avocado Dip" has a sodium level of 210 "Bagels, New York Style" has a sodium level of 510 "Beef Frankfurter, Quarter Pound" has a sodium level of 1100 "Chicken Pot Pie" has a sodium level of 810 "Cole Slaw" has a sodium level of 15 "Eggs" has a sodium level of 65 "Hazelnut Spread" has a sodium level of 20 "Potato Chips" has a sodium level of 180 "Soy Patties, Grilled" has a sodium level of 420 "Truffles, Dark Chocolate" has a sodium level of 10 real 0m0.012s user 0m0.012s sys 0m0.000s $

Title: Re: XML Challenge -OT
Post by: John on December 13, 2018, 09:52:40 PM

AIR,

If can you create a project for MBC in the sandbox, I'll create a MBC syntax highlighting file for the forum.

Title: Re: XML Challenge
Post by: AIR on December 13, 2018, 10:44:16 PM

Quote from: John on December 13, 2018, 08:34:51 PM

Script BASIC

Nice!.

If we're gonna brute-force it:

Code: Text

$EXECON
 
dim a$, cnt, name as REGEX, sodium as REGEX
 
a$ = loadfile$("sample.xml")
cnt = tally(a$,"<food>")
 
for int i = 0 to cnt-1
    if regmatch(a$,"<name>([a-zA-Z ,]+)</name>",&name) and regmatch(a$,"<sodium>([0-9]+)</sodium>",&sodium) then 
        print enc$(trim$(name.results[1]$)), " has a sodium level of ",sodium.results[1]$
    end if
    a$ = REMAIN$(a$, "</food>")
next

[riveraa@MacDev ~/Projects/mbc] $ time ./xmlChallenge2 "Avocado Dip" has a sodium level of 210 "Bagels, New York Style" has a sodium level of 510 "Beef Frankfurter, Quarter Pound" has a sodium level of 1100 "Chicken Pot Pie" has a sodium level of 810 "Cole Slaw" has a sodium level of 15 "Eggs" has a sodium level of 65 "Hazelnut Spread" has a sodium level of 20 "Potato Chips" has a sodium level of 180 "Soy Patties, Grilled" has a sodium level of 420 "Truffles, Dark Chocolate" has a sodium level of 10 real 0m0.005s user 0m0.002s sys 0m0.002s [riveraa@MacDev ~/Projects/mbc] $

AIR.

Title: Re: XML Challenge
Post by: petelomax on December 17, 2018, 09:35:13 AM

Phix

Code: [Select]

include builtins\xml.e -- (needs 0.8.0+)

string xml_text = get_text("C:\\Users\\Pete\\sample.xml")

sequence xml = xml_parse(xml_text)

sequence foods = get_xml_nodes(xml[XML_CONTENTS],"food")
for i=1 to length(foods) do
    string name = get_xml_nodes(foods[i],"name")[1][XML_CONTENTS],
           sodium = get_xml_nodes(foods[i],"sodium")[1][XML_CONTENTS]
    printf(1,"%s has a sodium level of %s\n",{name,sodium})
end for

Output

Avocado Dip has a sodium level of 210
Bagels, New York Style has a sodium level of 510
Beef Frankfurter, Quarter Pound has a sodium level of 1100
Chicken Pot Pie has a sodium level of 810
Cole Slaw has a sodium level of 15
Eggs has a sodium level of 65
Hazelnut Spread has a sodium level of 20
Potato Chips has a sodium level of 180
Soy Patties, Grilled has a sodium level of 420
Truffles, Dark Chocolate has a sodium level of 10

Pete

Title: Re: XML Challenge
Post by: AIR on March 07, 2019, 01:09:29 AM

GO VERSION

Code: Go

package main
 
import (
        "encoding/xml"
        "fmt"
        "io/ioutil"
        "log"
)
 
type Nutrition struct {
        Food []struct {
                Name   string `xml:"name"`
                Sodium string `xml:"sodium"`
        } `xml:"food"`
}
 
func chkError(e error) {
        if e != nil {
                log.Fatal(e)
        }
}
 
func main() {
        var nutrition Nutrition
 
        xmlFile, err := ioutil.ReadFile("sample.xml")
        chkError(err)
 
        err = xml.Unmarshal(xmlFile, &nutrition)
        chkError(err)
 
        for _, food := range nutrition.Food {
                fmt.Printf("\"%s\" has a soduim level of %s\n",strings.TrimSpace(food.Name), food.Sodium)
        }
}
 

OUTPUT:

"Avocado Dip" has a soduim level of 210 "Bagels, New York Style" has a soduim level of 510 "Beef Frankfurter, Quarter Pound" has a soduim level of 1100 "Chicken Pot Pie" has a soduim level of 810 "Cole Slaw" has a soduim level of 15 "Eggs" has a soduim level of 65 "Hazelnut Spread" has a soduim level of 20 "Potato Chips" has a soduim level of 180 "Soy Patties, Grilled" has a soduim level of 420 "Truffles, Dark Chocolate" has a soduim level of 10

AIR.

Title: Re: XML Challenge
Post by: AIR on August 14, 2021, 05:28:45 PM

2 years later....... ;D

NIM

Code: Text

import xmltree, xmlparser, strutils
 
let doc = loadXml("sample.xml")
 
for x in doc.findAll("food"):
    echo "'$#' has a sodium level of $#" % [x.child("name").innerText, x.child("sodium").innerText]

Code: [Select]

'Avocado Dip' has a sodium level of 210
'Bagels, New York Style ' has a sodium level of 510
'Beef Frankfurter, Quarter Pound ' has a sodium level of 1100
'Chicken Pot Pie' has a sodium level of 810
'Cole Slaw' has a sodium level of 15
'Eggs' has a sodium level of 65
'Hazelnut Spread' has a sodium level of 20
'Potato Chips' has a sodium level of 180
'Soy Patties, Grilled' has a sodium level of 420
'Truffles, Dark Chocolate' has a sodium level of 10

AllBASIC Forum

BASIC User Group => Code Challenges => Topic started by: AIR on December 13, 2018, 07:03:41 PM