RegExpr - как составить выражение для содержимого с Bash.org

[Alter]

Имеется:

<hr class="iq"> 
<div class="q">
<div class="vote">
<a href="/quote/403854">403854</a>
[ <a href="/quote/403854/rulez" onclick="v(403854, 0, 0); return false;">+</a> <span id="v403854">1679</span> <a href="/quote/403854/sux" onclick="v(403854, 1, 0); return false;">&minus;</a> ]
<a href="/quote/403854/bayan" onclick="v(403854, 2, 0); return false;">[:||||:]</a>
утверждена 2009-07-08 в 09:12
</div>
<div>Понял суть американского футбола, когда увидел, как бабушка кинула рыбью голову в середину стайки куриц...</div>
</div>

Как составить выражение для RegExpr, чтобы он вытащил всё, то что зелёным, помеченное. Красным не влияет на процесс, его можно не учитывать. Этот пример текста, из большего куска.
Пока что только сами цитаты вытаскивает из DIV секций, не понятно, как задать одним выражением всю структуру для парсинга.
Вот что есть:

procedure TForm1.Parse(s: string);
var
  reg: TRegExpr;
begin
  reg := TRegExpr.Create;
  BufTxt.Clear;
  try
    reg.ModifierG  := False;
    reg.ModifierM  := True;
 //1) Ссылка на цитату и Номер цитаты ->   <a href="/quote/403827">403827</a>
 //2) Рейтинг(тут 7640) -> [ <a href="/quote/403827/rulez" onclick="v(403827, 0, 0); return false;">+</a> <span id="v403827">7640</span> <a href="/quote/403827/sux" onclick="v(403827, 1, 0); return false;">&minus;</a> ]
 //3) Дата утверждения -> [:||||:]</a>
 //				утверждена 2009-07-05 в 09:13
 //			</div>
 //4) Сама цитата ->    <div>...<\/div>
    reg.Expression := '<div>(.*?)<\/div>'; // что тут и как дописать
    if reg.Exec(s) then
    Repeat
     BufTxt.Add('----------------------------------------------');
     BufTxt.Add(reg.Match[1] +#13#10);
    Until not reg.ExecNext;
  finally
    sMemo1.Text := BufTxt.Text;
    reg.Free;
  end;
end;

Вот новую версию компонета нашёл RegExpr 0.952:

[Alter]

Допустим имеется блок:

<hr class="iq">
<div class="q">
<div class="vote">
<a href="/quote/403896">403896</a>
утверждена 2009-07-13 в 09:46
</div>
<div>Текст Текст Текст</div>
</div>

Как тут выражение сделать, чтобы доставало нужное?

Это виснет:

procedure TForm1.Parse(s: string);
var
  reg: TRegExpr;
  Test :String;
begin
  reg := TRegExpr.Create;
  sMemo1.Clear;
  BufTxt.Clear;
  try
    reg.ModifierG  := False;
    reg.ModifierM  := True;

 Test := '<div class="vote">'+
     '\s.<a href="(.*?)">(.*?)<\/a>\s.'+
     '(.*?)<\/div>'+
     '<div>(.*?)<\/div>'+'\s.'+'<\/div>';

    reg.Expression := Test; 
    if reg.Exec(s) then
    Repeat
     BufTxt.Add('----------------------------------------------');
     BufTxt.Add(reg.Match[1] +#13#10 + reg.Match[2]+reg.Match[3] +#13#10 + reg.Match[4]);
    Until not reg.ExecNext;
  finally
    sMemo1.Text := BufTxt.Text; 
    reg.Free;
  end;
end;

как переделать-сделать, чтоб работало.

[QunneD]

Memo1.Text

<hr class="iq">
<div class="q">
<div class="vote">
<a href="/quote/403896">403896</a>
утверждена 2009-07-13 в 09:46
</div>
<div>Текст Текст Текст</div>
</div>

var
  a,b,g,h,j,k : integer;
  ab, bb, gg, hh, jj, kk, ll, zz, xx, cc, vv : string;
  var1, var2, var3 : string;
begin
  ab := '<a href="/quote/';
  bb := '">';
  kk := '</a>';
  ll := '</div';
  cc := '<div>';
  a := pos(ab, memo1.Text);
  gg := copy(memo1.Text, 56+length(ab), length(memo1.Text));
  b := pos(bb, gg);
  hh := copy(gg, 1, b-1);
  var1 := hh; // ид
  jj := copy(gg, b+2, length(memo1.text));
  g := pos(kk, jj);
  h := pos(ll,jj);
  zz := copy(jj, g+length(kk), h-length(ll)-length(ll)-1);
  var2 := zz; // утверждена
  xx := copy(jj, h+length(ll)+1, length(jj));
  j := pos(cc, xx);
  k := pos(ll, xx);
  vv := copy(xx, j+length(cc), k-length(ll)-3);
  var3 := vv; // текст
  showmessage('ID: '+var1+#13#10+'Утверждена: '+var2+#13#10+'Текст: '+var3+'.');
end;

Хоть и много лишнего, но зато работает и не виснет Надеюсь помог.

[QunneD]

Только не посмотрел через что нужно было сделать :D

[Alter]

Так то, но хотелось через регулярные выражения сделать. Ведь проще через них. Если никто не сможет задать регулярные выражения, то придётся Copy и Pos использовать.

[Alter]

Спасибо Metandrostenalon что хоть ты помог.
Подкорекировал слегка выражение, стало:

'<div[\s]+class=\"vote\">[\s]*<a[\s]+href=\"([a-z0-9\/]+)\">([0-9]+)<\/a>[\s]*.+?утверждена[\s]+([-в0-9: ]+)[\s]*<\/div>[\s]*<div>(.+?)<\/div>'

И одновремменно добавил в код уборку оценочных ссылок из текста, теперь результат этого выглядит так:

<div class="vote">
<a href="/quote/403937">403937</a>
<span id="v403937">1979</span>
утверждена 2009-07-17 в 10:44
</div>
<div>Тело текста</div>
</div>

То что розовым, дополнительно вытащить из текта, что возможно добавить в выражение для этого?

[xrob]

<div[\s]+class=\"vote\">[\s]*<a[\s]+href=\"([a-z0-9\/]+)\">([0-9]+)<\/a>[\s]*.+?утверждена[\s]+([-в0-9: ]+)[\s]*<\/div>[\s]*<div>(.+?)<\/div>

по-моему copy и pos все-таки проще, не?

[Человек_Борща]

xrob, на самом деле нет. Регулярное выражение - это куда лучше и быстрее святой троицы Copy,Pos,Delete, но нужно головой думать над его составлением.

И модераторы сейчас тебя заклюют за поднятие темы 3-х летней давности.

[Пепел Феникса]

и быстрее святой троицы Copy,Pos,Delete

1)капитально сомневаюсь насчет быстрее.
2)Delete не входит в святую троицу.(там PosEx)

[xrob]

ой, простите
че-то не заметил дату темы
как я вообще здесь оказался?
наверное гуглил RegExpr, после обсуждения виртуализации, ага!

ну раз уж я здесь, вопрос:
как заюзать регулярные выражения в Delphi ?