Главная страница
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.046 c
3-1167225881
RomanH
2006-12-27 16:24
2007.03.25
Набор данных возвращаемый XП


2-1172813999
vegarulez
2007-03-02 08:39
2007.03.25
Как можно задать маску * при поиске в следующем случае...


6-1160771242
Русло
2006-10-14 00:27
2007.03.25
Как разделять почтовые сообщения на прочтенные и еще нет


15-1173008259
Суслик
2007-03-04 14:37
2007.03.25
Посоветуйте blog


2-1172959193
San1
2007-03-04 00:59
2007.03.25
EConvertError