VPF::Регулярное выражение - не находит конец строки

vetalkov

Дата 9.9.2011, 20:33 (ссылка)

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

Загрузка ...

Новичок

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

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

не могу взять текст между Location: и концом строки

Код


buf := 'Location: http://www.site.com/
Content-Length: 211
Accept-Ranges: bytes';

Код


function redi (buf : string) : string;
var
RegExp: TRegExpr;
begin
  RegExp := TRegExpr.Create;
  RegExp.Expression := 'Location: (.*)'+ #13#10+'$?';

  if RegExp.Exec(buf) then
  begin
  buf := RegExp.Match[1];
  Result := buf;
  end else Result := 'не найдено';

  RegExp.Free;

end;

пробовал еще так

Код


  RegExp.Expression := 'Location: (.*)#13#10$?';

Это сообщение отредактировал(а) vetalkov - 9.9.2011, 20:44

sCreator

Дата 10.9.2011, 09:17 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 20.8.2009
Где: Московская област ь

Репутация: 2
Всего: 5

А так не пробовал

Код


RegExp.Expression := 'Location: (.*)$';

Если правильно помню, то в регулярных выражениях $ это и есть конец строки.

omickron

Дата 11.9.2011, 15:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(vetalkov @ 9.9.2011, 20:33

)

RegExp.Expression := 'Location: (.*)'+ #13#10+'$?';

Собственно, #13#10 - это и есть символы нового абзаца и конца строки.
В регулярках конец строки проще обозначать '$'. sCreator, думаю, написал правильно.

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