reg expr

[Fahman]

Как всегда парсинг, парсить я сам буду а точнее я уже парсил это 1 раз но я поменял комп и все мои примеры пропали, перерыл гугл не нашел блин а вспомнить не могу... Может кто знает подскажет?
Надо регулярками спарсить 2 разных тега то что между эти тегами тонее
<td class="center info">Тут инфа</td>
и
<td class="left event">Промышленное производство (Ежемесячный)&nbsp;<span class="smallGrayP newSiteIconsSprite" title="_ec_preliminaryRelease">&nbs p;</span></td>

То что мне надо я отметил красным, результат у меня был таким
Тут инфа Промышленное производство (Ежемесячный)
записанное в memo кто подскажет тому ничего не будет) просто и сам что то не могу вспомнить.... Заранее спасибо тем кто помог без лишних слов

[eval]

парсить я сам буду

а что тогда вы спрашиваете?
регексп это и есть парсинг... зная его, считай распарсил

[Fahman]

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

а что тогда вы спрашиваете?
регексп это и есть парсинг... зная его, считай распарсил

Нет, понимаете у меня был пример но вот на компе на том 2 харда накрылись сами по себе были забиты на нет а я от лени не переписал ни куда вот сейчас мне понадобился этот код а точнее спарсить а примеров нет((( вот и решил по просить подсказать)

[Stilet]

Заранее спасибо тем кто помог без лишних слов

Я конечно не спец в регулярках. Мне как-то MSHTML ближе будет, но... Попробуй перечитать свои темы - возможно в них есть то, что подтолкнет твою память к верному решению. Я иногда так и делаю, когда наработка теряется.

[Fahman]

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

Я конечно не спец в регулярках. Мне как-то MSHTML ближе будет, но... Попробуй перечитать свои темы - возможно в них есть то, что подтолкнет твою память к верному решению. Я иногда так и делаю, когда наработка теряется.

Да это тоже вариант) но помоему можно другим способом... так как мне надо 2 разных тега и он не один а их несколько, можно спарсить сперва 1 тег а потом второй тег и потом 2 мемо склеить ))) Ну это как вариант а так пока ни знаю завтра после работы гляну....

[eval]

лучше 3 мемо клеить

[Stilet]

лучше 3 мемо клеить

Верно. А лучше по одному мемо на каждый элемент чтоб уж наверняка.

а потом второй тег и потом 2 мемо склеить

Ты не о том думаешь. Тебеб нужно регулярное выражение вспоминать, раз этим путем идешь, да оборачивать получение данных в функцию, а ты о клее все говоришь.

[UKRtortik]

RegExpr.Expression := '<td class="center info">(.*?)</td>';

любой_тег(.*?)любой_тег

[Fahman]

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

RegExpr.Expression := '<td class="center info">(.*?)</td>';

Это я знаю) Лучше бы подсказали как сразу 2 спарсить)

[UKRtortik]

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

Это я знаю) Лучше бы подсказали как сразу 2 спарсить)

А зачем именно регулярками? ПОчему не просто функцией Pars?

function Pars(T_, ForS, _T: string): string;
var a, b: integer;
begin
Result:='';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then Result:=Copy(ForS, 1, b-1);
end;

И парсишь (Пример на синапсе):

var
teg1,teg2:string;
html:tstringlist;
http:thttpsend;
begin
http.HTTPMethod('GET', 'http://');
html:=TStringList.Create;
html.LoadFromStream(http.Document);
teg1:=Pars('<td class="center info">', html.Text, '</td>');
teg2:=Pars('<td class="left event">', html.Text, '&');
html.free;
http.free;