Please. Example of populating a Multidimensional Array.

[Gintaras]

In this case better use user-defined type and 1-dim array.

With 2-dim array would be similar: a.create(8 aw.len) ... a[0 i]=... a[1 i]=...

Function InterGen_XML_Multi_Parser

Code:

Copy      Help

;/
function $XML ARRAY(T633198)&a


IXml x=CreateXml
x.FromString(XML)

ARRAY(IXmlNode) aw
x.Path("nexgen_audio_export/audio" aw)

a.create(aw.len)
int i
for i 0 aw.len
,T633198& r=a[i]
,r.Type=aw[i].ChildValue("type")
,r.Status=aw[i].ChildValue("status")
,r.Title=aw[i].ChildValue("title")
,r.Co_op=aw[i].ChildValue("co_op")
,r.Length=aw[i].ChildValue("length")
,r.Number=aw[i].ChildValue("number")
,r.Cut=aw[i].ChildValue("cut")
,r.Played_time=aw[i].ChildValue("played_time")

Macro Macro1274

Code:

Copy      Help

str XML=
;<?xml version="1.0" encoding="ISO-8859-1"?>
;<nexgen_audio_export>
;
;<audio ID="id_3844367666_30038279">
;<type>Liner</type>
;<status>None</status>
;<title>(F) AM1220 - airy 1</title>
;<length>00:00:04.540</length>
;<played_time>21:22:57</played_time>
;<number>-1</number>
;<cut>-1</cut>
;<millisec_to_start>64</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3844523916_30038279">
;<type>Bed</type>
;<status>None</status>
;<title>WLPO NEWS SOUNDER/auto</title>
;<length>00:00:42.630</length>
;<played_time>21:29:50</played_time>
;<number>800149</number>
;<cut>1</cut>
;<millisec_to_start>412236</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3844680166_30038279">
;<type>News</type>
;<status>None</status>
;<title>WLPO NEWS NIGHT/OVERNIGHT (1:20 max)</title>
;<length>00:01:12.090</length>
;<played_time>21:29:59</played_time>
;<number>700985</number>
;<cut>10</cut>
;<millisec_to_start>421300</millisec_to_start>
;<co_op>Allstate</co_op>
;</audio>
;
;<audio ID="id_3844836416_30038279">
;<type>Promo</type>
;<status>None</status>
;<title>WLPO CONTEST RULES</title>
;<length>00:01:00.630</length>
;<played_time>21:31:08</played_time>
;<number>530001</number>
;<cut>1</cut>
;<millisec_to_start>491117</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3844992666_30038279">
;<type>Spot</type>
;<status>None</status>
;<title>River Valley WX/ irn-hpm-midwestcntr-60</title>
;<length>00:00:59.140</length>
;<played_time>21:32:07</played_time>
;<number>52615</number>
;<cut>1</cut>
;<millisec_to_start>549751</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3845148916_30038279">
;<type>Spot</type>
;<status>None</status>
;<title>FARM SAFETY WEEK fall -1</title>
;<length>00:00:29.162</length>
;<played_time>21:33:04</played_time>
;<number>936100</number>
;<cut>1</cut>
;<millisec_to_start>606762</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3845305166_30038279">
;<type>Spot</type>
;<status>None</status>
;<title>Tag Cart for Farm Safety</title>
;<length>00:00:22.491</length>
;<played_time>21:33:32</played_time>
;<number>936101</number>
;<cut>2</cut>
;<millisec_to_start>634864</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3845461416_30038279">
;<type>Fill</type>
;<status>None</status>
;<title>Radio Heard Here poetry in motion</title>
;<length>00:00:32.590</length>
;<played_time>21:33:54</played_time>
;<number>500164</number>
;<cut>3</cut>
;<millisec_to_start>656635</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3845617666_30038279">
;<type>Fill</type>
;<status>None</status>
;<title>WLPO AM PROJECT SANTA</title>
;<length>00:00:29.780</length>
;<played_time>21:34:25</played_time>
;<number>500185</number>
;<cut>1</cut>
;<millisec_to_start>688025</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;<audio ID="id_3845773916_30038279">
;<type>Liner</type>
;<status>None</status>
;<title>(G) AM1220 - pointless questions (RB)</title>
;<length>00:00:07.780</length>
;<played_time>21:34:54</played_time>
;<number>-1</number>
;<cut>-1</cut>
;<millisec_to_start>716676</millisec_to_start>
;<co_op></co_op>
;</audio>
;
;</nexgen_audio_export>


type T633198 ~Type ~Status ~Title ~Co_op ~Length ~Number ~Cut ~Played_time
ARRAY(T633198) a
InterGen_XML_Multi_Parser XML a

int i
for i 0 a.len
,T633198& r=a[i]
,out _s.getstruct(r 1)
,