String from XML?

[Kevin]

here ya go sorry for the delay 

Function Function460
 

Code:

Copy      Help

str s1 s2 final
typelib WinHttp {662901FC-6951-4854-9EB2-D9A2570F2B2E} 5.1
WinHttp.WinHttpRequest h._create
WinHttp.WinHttpRequest i._create
str enc.encrypt(4 ":vlcremote") ;;replace ":vlcremote" with your password, if no username
IXml x._create; IXml x1._create
IXmlNode attr attr1 attr2 attr3;
i.Open("GET" "http://127.0.0.1:8080/requests/status.xml")
i.setRequestHeader("content-type", "application/xml")
i.SetRequestHeader("Authorization", F"Basic {enc}")
i.Send()
err out _error.description; ret
if i.Status=200
,x1.FromString(i.ResponseText)
,attr3=x1.Path("root/time")
,if(attr3)
,,s1= attr3.Value
,h.Open("GET" "http://127.0.0.1:8080/requests/playlist.xml")
,h.setRequestHeader("content-type", "application/xml")
,h.SetRequestHeader("Authorization", F"Basic {enc}")
,h.Send()
,err out _error.description; ret
,if h.Status=200
,,x.FromString(h.ResponseText)
,,ARRAY(IXmlNode) a; 
,,x.Path(".//leaf" a)
,,for _i 0 a.len
,,,attr=a[_i].Attribute("uri")
,,,s2=attr.Value
,,,s2.escape(8);; remove url formatting showing true path
,,,s2.replacerx("file:///" "")
,,,attr2=a[_i].Attribute("current")
,,,if(attr2)
,,,,final=F"{s1},{s2}"
,,,,out final