Текущий архив: 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.051 c