Here's what I've got so far - all it does is create a node in Net Radio, but I can't figure out how to populate the subnodes. Parsing XML just seems to elude me.
Code: Select all
Dim objXMLDoc
Dim NodeList
Dim Node
Dim ChildNode
Dim NodeAttr
Sub OnStartup
Set Tree = SDB.MainTree
Set Node = Tree.CreateNode
Node.Caption = "Tunein Radio"
Node.IconIndex = 56
Node.UseScript = Script.ScriptPath
Node.OnFillChildren = "FillGenres"
Tree.AddNode Tree.Node_Radio, Node, 3 ' Insert after the node
Node.HasChildren = True
End Sub
Sub FillGenres
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("http://opml.radiotime.com")
set Node = objXMLDoc.getElementsByTagName("outline")
if Node.length > 0 then
For each x in Node
Set NewNode = Tree.CreateNode
NewNode.Caption = x.getattribute("text")
NewNode.IconIndex = 0
Tree.AddNode Node, NewNode, 3
next
end if
End Sub
Code: Select all
Dim objXMLDoc
Dim NodeList
Dim Node
Dim ChildNode
Dim NodeAttr
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("http://opml.radiotime.com")
set Node = objXMLDoc.getElementsByTagName("outline")
if Node.length > 0 then
For each x in Node
ChildNode = x.getattribute("text")
WScript.echo ChildNode
next
end if