user:navody:xml_parser
Differences
This shows you the differences between two versions of the page.
Previous revision | |||
user:navody:xml_parser [2011/12/20 21:26] – mikrom | — | ||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== XML parser ====== | ||
- | GeoGet obsahuje XML parser již dlouho, ale od verze 2.6 je tento parser dostupný i všem skriptům. Jako parser je použita [[http:// | ||
- | Použití ve skriptu můžeme demonstrovat na jednoduchém příkladu: | ||
- | |||
- | <code pascal> | ||
- | uses simplexml; | ||
- | ... | ||
- | procedure PluginStop; | ||
- | var | ||
- | Xml: TJclSimpleXML; | ||
- | n: integer; | ||
- | s: string; | ||
- | ele: TJclSimpleXMLElem; | ||
- | begin | ||
- | Xml := TJclSimpleXML.Create; | ||
- | try | ||
- | xml.loadfromfile(' | ||
- | showmessage(XML.Root.Name); | ||
- | for n := 0 to XML.Root.Items.count - 1 do | ||
- | begin | ||
- | ele := XML.Root.Items[n]; | ||
- | if ele.name = ' | ||
- | begin | ||
- | s := ' | ||
- | s := s + ' Y:' + ele.properties.ItemNamed[' | ||
- | showmessage(s); | ||
- | ele := ele.items.Itemnamed[' | ||
- | if assigned(ele) then | ||
- | begin | ||
- | ele := ele.items.Itemnamed[' | ||
- | if assigned(ele) then | ||
- | begin | ||
- | s := ele.value; | ||
- | Stringtofile(s, | ||
- | end; | ||
- | end; | ||
- | end; | ||
- | end; | ||
- | finally | ||
- | xml.free; | ||
- | end; | ||
- | end; | ||
- | </ | ||
- | |||
- | |||
- | {{tag> |
user/navody/xml_parser.txt · Last modified: 2015/09/21 00:00 (external edit)