function getXMLNodes(xmlfile,nodename)
local xml = xmlLoadFile(xmlfile)
if xml then
local ntable={}
local a = 0
while xmlFindChild(xml,nodename,a) do
table.insert(ntable,a+1)
ntable[a+1]={}
local attrs = xmlNodeGetAttributes ( xmlFindChild(xml,nodename,a) )
for name,value in pairs ( attrs ) do
table.insert(ntable[a+1],name)
ntable[a+1][name]=value
end
ntable[a+1]["nodevalue"]=xmlNodeGetValue(xmlFindChild(xml,nodename,a))
a=a+1
end
return ntable
else
return {}
end
end
for k,v in ipairs ( getXMLNodes ( "objects.xml" , "obj" ) ) do
local row = guiGridListAddRow ( gr1 ) ;
guiGridListSetItemText ( gr1 , row , 1 , v.name , false , false )
guiGridListSetItemText ( gr1 , row , 2 , v.model , false , false )
end