reg expr

[Fahman]

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

А зачем именно регулярками? ПОчему не просто функцией 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;

плохо знаком с функцией Pars )

[Stilet]

плохо знаком с функцией Pars )

А с ней никто не знаком )
Она выдумана, и тело ее обнажено в предидущем посте

[Fahman]

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

А с ней никто не знаком )
Она выдумана, и тело ее обнажено в предидущем посте

Ладно) Любители по флудить) я решил вопрос своим способом, хоть и не самый лучший но зато сам))) Всем спасибо

[саша40]

Интересно, а почему нельзя воспользоватся просто стандартными Length, Сopy, Delete и т.п? HTML-код страницы - это всегда обычный текст.

[Stilet]

почему нельзя воспользоватся просто стандартными Length, Сopy, Delete и т.п?

Потому что регулярка - это модно.

[eval]

и быстро и качественно, порой посами можно промазать, особенно при работе с html, добавили атрибут куданить между и привет родителям а грамотная регулярка продолжает исправно работать.