Parse xml or tag or whatever is in between matching <xx> ... </xx>
To parse data between a div tag, start would be <div> and end would be </div>
Perfectly useless except in very specific situations.
<MvFUNCTION NAME = "parse_features" PARAMETERS = "data,start,end" STANDARDOUTPUTLEVEL="">
<MvIF EXPR = "{NOT l.data}">
<MvFUNCRETURN VALUE = "{ '' }">
</MvIF>
<MvWHILE EXPR = "{'<feature>' CIN l.data}">
<MvASSIGN NAME = "l.counter" VALUE = "{ ++l.counter }" />
<MvIF EXPR = "{l.start CIN l.data AND l.end CIN l.data}">
<MvASSIGN NAME = "l.block" VALUE = "{substring(l.data,(l.start CIN l.data) ,(l.end ECIN l.data) - (l.start CIN l.data) +5)}">
<MvASSIGN NAME = "l.original" VALUE = "{ l.block }">
<MvASSIGN NAME = "l.ok" VALUE = "{ get_block_data(l.block,'name' ,1,l.fulltag,l.feature:name) }">
<MvASSIGN NAME = "l.ok" VALUE = "{ get_block_data(l.block,'code' ,1,l.fulltag,l.feature:code) }">
<MvASSIGN NAME = "l.ok" VALUE = "{ get_block_data(l.block,'notes',1,l.fulltag,l.feature:notes) }">
<MvASSIGN NAME = "l.mfpos" VALUE = "{ 0 }">
<MvASSIGN NAME = "l.mfs" VALUE = "{ '' }">
<MvWHILE EXPR = "{'<mf>' CIN l.block}">
<MvASSIGN NAME = "l.mfstart" VALUE = "{ '<mf>' }">
<MvASSIGN NAME = "l.mfend" VALUE = "{ '</mf>' }">
<MvIF EXPR = "{l.mfstart CIN l.block AND l.mfend CIN l.block}">
<MvASSIGN NAME = "l.mf" VALUE = "{substring(l.block,(l.mfstart CIN l.block) ,(l.mfend ECIN l.block) - (l.mfstart CIN l.block) +4)}">
<MvASSIGN NAME = "l.ok" VALUE = "{ get_block_data(l.mf,'name', 1,l.fulltag,l.mfinfo:name) }">
<MvASSIGN NAME = "l.mfinfo:vars" VALUE = "{ trim(gettoken(l.mfinfo:name,'(',2)) }">
<MvASSIGN NAME = "l.mfinfo:vars" VALUE = "{ trim(substring(l.mfinfo:vars,1,len(l.mfinfo:vars) - 1)) }">
<MvASSIGN NAME = "l.mfinfo:name" VALUE = "{ trim(gettoken(l.mfinfo:name,'(',1)) }">
<MvASSIGN NAME = "l.ok" VALUE = "{ get_block_data(l.mf,'notes',1,l.fulltag,l.mfinfo:notes) }">
<MvASSIGN NAME = "l.mfs" INDEX = "{ ++l.mfpos }" VALUE = "{ l.mfinfo }">
<MvASSIGN NAME = "l.block" VALUE = "{ glosub(l.block,l.mf,'') }">
</MvIF>
</MvWHILE>
<MvASSIGN NAME = "l.feature:mfs" VALUE = "{ l.mfs }">
<MvASSIGN NAME = "l.data" VALUE = "{ glosub(l.data,l.original,'') }">
</MvIF>
<MvASSIGN NAME = "l.features" INDEX = "{ ++l.pos3 }" VALUE = "{ l.feature }">
</MvWHILE>
<MvFUNCRETURN VALUE = "{ l.features }">
<MvCOMMENT>
|--------------------------------
| debug:
<MvEVAL EXPR = "{debugarray(l.features)}">
|--------------------------------
</MvCOMMENT>
</MvFUNCTION>
<MvFUNCTION NAME = "get_block_data" PARAMETERS = "data,tag,offset,fulltag var,datatag var" STANDARDOUTPUTLEVEL="">
<MvASSIGN NAME = "l.open" VALUE = "{ '<' $ l.tag $ '>' }">
<MvASSIGN NAME = "l.close" VALUE = "{ '</' $ l.tag $ '>' }">
<MvASSIGN NAME = "l.start" VALUE = "{ (l.open CIN l.data) }">
<MvASSIGN NAME = "l.end" VALUE = "{ l.close ECIN l.data }">
<MvASSIGN NAME = "l.datastart" VALUE = "{ (l.open ECIN l.data) + 1}">
<MvASSIGN NAME = "l.dataend" VALUE = "{ l.close CIN l.data }">
<MvASSIGN NAME = "l.fulltag" VALUE = "{ substring(l.data,l.start,l.end - l.start + 1) }">
<MvASSIGN NAME = "l.datatag" VALUE = "{ trim(substring(l.data,l.datastart,l.dataend - l.datastart)) }">
</MvFUNCTION>
