Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.25;
Скачать: CL | DM;

Вниз

помогите с регулярным выражением (TRegExpr)   Найти похожие ветки 

 
delphi_ ©   (2007-01-27 13:15) [0]

Нужно распарсить html файл и найти в нем ссылки аля
<a class=l href="http://www.geocities.com/johbeil/writers/best_minds.htm">
т.е. отличительная черта линка- <a class=l
недопустимо наличие в ссылки ,содержащей cache:

ели я прально понил...то делаю

procedure TForm1.Button1Click(Sender: TObject);
var
 exp: TRegExpr;
 url: String;
begin
 url:=IdHTTP1.Get(урл);
 exp := TRegExpr.Create;
 exp.Expression:="<a class=l ([^\n>]*)>";

а вот что дльаше делать понять не могу вообще..как мне проверить урл на наличие cache: и добавить найденные урл в memo?


 
easy ©   (2007-01-27 14:22) [1]

procedure GetLinks(const Text:string; Lines:TStrings);
const
expr = "(?i)(<a class=l(.+?)>)";
begin
with TRegExpr.Create do
try
  Expression := expr;
  if Exec(Text) then begin
    repeat
      Lines.Add(Match[1]);
    until not ExecNext;
  end;
finally
  Free;
end;
end;

//************
procedure TForm1.Button1Click(Sender: TObject);
var
url: String;
begin
 url:=IdHTTP1.Get(урл);
 Memo1.Clear;
 GetLinks(url,Memo1.Lines);
end;



Страницы: 1 вся ветка

Текущий архив: 2007.03.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.042 c
2-1172825501
dsa256
2007-03-02 11:51
2007.03.25
Сборка и отправка RAW пакета =)


15-1172518975
Kolan
2007-02-26 22:42
2007.03.25
Подключать ли анлим 256кБ/с если сейчас 1495кб/с


15-1172673922
partizan
2007-02-28 17:45
2007.03.25
Компонента для работы с ФТП


1-1170174837
NikNet
2007-01-30 19:33
2007.03.25
Мне нужно получить строку анализа от SQL от компонента ADOQuery


6-1160421483
sinus
2006-10-09 23:18
2007.03.25
ClientSocket