VPF::Помогите составить регулярное выражение

delphi_

Дата 20.1.2007, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

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

Код


<a class=l href="http://www.geocities.com/johbeil/writers/best_minds.htm">

мне нужно выдрать из документа только http://www.geocities.com/johbeil/writers/best_minds.htm
причем могут попадаться ссылки в виде

Код


<a class=fl href="http://блаблаблаcache:gXkp0FGn1GoJ:www.geocities.com/johbeil/writers/best_minds.htm+блаблабла"

нужно чтобы ссылки ,содержащие cache: отсекались..
пытаюсь сделать это в RegexBuddy...вообще ни как..ктонить подскажет?

Это сообщение отредактировал(а) delphi_ - 20.1.2007, 18:52

W4FhLF

Дата 20.1.2007, 18:54 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

(?i)(FTP|HTTP)://([_a-z\d\-]+(\.[_a-z\d\-]+)+)((/[ _a-z\d\-\\\.]+)+)*

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

delphi_

Дата 20.1.2007, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

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

Это сообщение отредактировал(а) delphi_ - 20.1.2007, 19:29

W4FhLF

Дата 20.1.2007, 19:40 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Код


function GetUrl(lpData: string): string;
var
  exp: TRegExpr;
begin
  exp := TRegExpr.Create;
  exp.Expression := '(?i)(FTP|HTTP)://([_a-z\d\-:]+(\.[_a-z\d\-:]+)+)((/[ _a-z\d\-\\\.\+]+)+)*';
  if exp.Exec(lpData) and (pos('cache:', lpData) = 0) then
    Result := exp.Match[0];
  exp.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(GetUrl('<a class=fl href="http://gfdff4frgXkp0FGn1GoJ:www.geocities.com/johbeil/writers/best_minds.htm+fr34ff4r"'));
end;

Результат:

Цитата

---------------------------
Project1
---------------------------
http://gfdff4frgXkp0FGn1GoJ:www.geocities....ds.htm+fr34ff4r
---------------------------
OK
---------------------------

Добавлено @ 19:44
Зараза, не хочет целиком показывамть URL, он форматируется фильтрами форума smile

Короче как результат на экране получишь сообщение с URL из текста.

Это сообщение отредактировал(а) W4FhLF - 20.1.2007, 19:43

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »