Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function getValue(tagname,xmlstring)
Dim startPos
startPos = InStr(xmlstring,"<"&tagname&">")+len(tagname)+2
getvalue = mid(xmlstring,startPos,InStr(xmlstring,"</"&tagname&">")-startPos-1)
End Function
Dim myXMl
myXMl = "<test><quantity>4</quantity><item><price>5.25</price><action>sell</action></item></test>"
Dim qty, prc, act
qty = getValue("quantity",myXML)
prc = getValue("price",myXML)
...etc