Another regexp that ain`t working :-/

[overfly]

Hi everybody out there. I pharse a html Page with the following html Code:

<div class="deat"><div class="thl">Test1</div><table width="100%"><tr><td class="time">Test2</td><td class="hl">Test3</td></tr></table>
<div class="txt">Test4</div></div>
<div class="deat"><div class="thl">Test1</div><table width="100%"><tr><td class="time">Test2</td><td class="hl">Test3</td></tr></table>
<div class="txt">Test4</div></div>
<div class="deat"><div class="thl">Test1</div><table width="100%"><tr><td class="time">Test2</td><td class="hl">Test3</td></tr></table>
<div class="txt">Test4</div></div>

Now i have in my tcl following code:

regexp {<div class="deat"><div class="thl">(.*)</div><table width="100%"><tr><td class="time">(.*)</td><td class="hl">(.*)</td></tr></table>} $content . time1 time2 time3
regexp{<div class="txt">(.*)</div></div>} $content . main1

The thing is, that i need this working, only for the first 2 Lines :-/
After 48hours of showing me that i have to learn a lot more of tcl i need your help.
THX
Greetz
overfly

[Sir_Fz]

If $content is a list, then use [lindex $content 0] and [lindex $content 1] for the 1st and 2nd lines.