parse-test.red

textual: complement charset "<"
test: {
   <div class="tmi-group ">
   <div class="tmi tmi-daily bold ">
   <div class="tmi-text-group">
   <div class="tmi-name">
   text here
   <span class="tmi-qty">0,2l </span>
   more text here.
   </div>
   </div>
   <div class="tmi-price right"> </div>
   <div class="clear"></div>
   </div>
   </div>
}

node: [start: end: "<" not "/" copy elem to [" " | ">"] (print elem)
   [thru "/>"
      | thru ">" any [node | textual] thru ["</" elem ">"]
   ] end: (print copy/part start end)
]
dailys: parse test [collect [any [to ["<div" copy rest to ">" if (find rest "tmi-daily")] here: (print copy/part here 20) keep node]]]