Помогите пожалуйста составить шаблон для регулярки TRegExpr

[FleXik]

Помогите пожалуйста составить шаблон для регулярки TRegExpr

Имеем кусок текста:

<odin>
// текст который надо спарсить
</odin>
<odin>
// текст который надо спарсить
</odin>
<odin>
// текст который надо спарсить
</odin>
<odin>
// текст который надо спарсить
</odin>
<odin>
// текст который надо спарсить
</odin>
// тут много текста включая html теги
<dva>
// текст который надо спарсить
</dva>
<dva>
// текст который надо спарсить
</dva>
<dva>
// текст который надо спарсить
</dva>
<dva>
// текст который надо спарсить
</dva>
<dva>
// текст который надо спарсить
</dva>

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

<odin>текст</odin><dva>текст</dva>
<odin>текст</odin><dva>текст</dva>
<odin>текст</odin><dva>текст</dva>

а не так

<odin>текст</odin>
<odin>текст</odin>
<odin>текст</odin>
<odin>текст</odin>
<odin>текст</odin>
<dva>текст</dva>
<dva>текст</dva>
<dva>текст</dva>
<dva>текст</dva>
<dva>текст</dva>

[Stilet]

Настойчивый ты парень. Упорно идешь к светлому коммунистическому будущему...

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses   regularexpressions,
  System.SysUtils;

const
  s='<odin>  // текст который надо спарсить  </odin>  
<odin>  // текст который надо спарсить  </odin>   
 // тут много текста включая html теги  
<dva>  // текст который надо спарсить  </dva> 
 <dva>  // текст который надо спарсить  </dva>';

var ra,rb:TRegEx; a,b:boolean;i:integer; ma,mb:TMatchCollection;  st:string;
begin
 ra:=TRegEx.Create('(<odin>)(.+?)(</odin>)');
 rb:=TRegEx.Create('(<dva>)(.+?)(</dva>)');
 ma:=ra.Matches(s);
 mb:=rb.Matches(s);
 i:=0;
 while (i<ma.Count)and(i<mb.Count) do begin
   st:='';
   if i<ma.Count then st:=st+ma[i].Value;
   if i<mb.Count then st:=st+mb[i].Value;
   writeln(st);
   inc(i);
 end;
 readln;
end.

Идея ясна?

[FleXik]

Идея ясна?

да, спасибо большое за код, весы кликнул.

[Stilet]

Пожалуйста.
P.S. Ума не приложу че ты за регулярку уцепился?..

[northener]

Сообщение от Stilet

Ума не приложу че ты за регулярку уцепился?..

А чё все тут уцепились за Дельфи?
Думать не надо, понимать не надо, разбираться ни в чём не надо и т.д. Главное найти "компонент" готовый, который сам всё сделает и в добавок кофе в постель принесёт.

[Stilet]

А чё все тут уцепились за Дельфи?

Да. Тоже верно.