| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Регулярные выражения
markers © (2006-10-20 01:14:00)Ещё один вопросец!
Как реализовать сей код на PHP в Delphi
function bbfilter2($data,$tclass)
{
if ($tclass != "") {$tclass=" class=\"$tclass\"";}
$data = preg_replace("/(\d\d\d\d).(\d\d).(\d\d)\s(\d\d:\d\d:\d\d)/si", "\\3-\\2-\\1 \\4", $data);
$data = preg_replace("/(?\n", $data);
$data = preg_replace( "/\s\s\s /si", " ", $data );
$data = ereg_replace( "\t", " ", $data );
$data = preg_replace("/\[bc\](.*?)\[\/bc\]/si", "\\1", $data);
$data = preg_replace("/\[b\](.*?)\[\/b\]/si", " \\1", $data);
$data = preg_replace("/\[q\](.*?)\[\/q\]/si", "\\1", $data);
$data = preg_replace("/\[center\](.*?)\[\/center\]/si", "\\1", $data);
$data = preg_replace("/\[tcenter\](.*?)\[\/tcenter\]/si", "\\1", $data);
$data = preg_replace("/\[left\](.*?)\[\/left\]/si", "\\1", $data);
$data = preg_replace("/\[right\](.*?)\[\/right\]/si", "\\1", $data);
$data = preg_replace("/\[i\](.*?)\[\/i\]/si", " \\1", $data);
$data = preg_replace("/\[u\](.*?)\[\/u\]/si", " \\1", $data);
$data = preg_replace("/\[table(.*?)\]/si", "", $data);
$data = preg_replace("/\[tr(.*?)\]/si", "", $data);
$data = preg_replace("/\[td(.*?)\]/si", "", $data);
$data = preg_replace("/\[th(.*?)\]/si", "", $data);
$data = ereg_replace( "\[\/td\]", "", $data);
$data = ereg_replace( "\[\/th\]", "", $data);
$data = ereg_replace( "\[\/tr\]", "", $data);
$data = ereg_replace( "\[\/table\]", "", $data);
$data = eregi_replace('([[:space:]()[{}])(www.[-a-zA-Z0-9@:%_\+.~#?&//=]+)', '\\1\\2', $data);
$data = eregi_replace('([[:space:]()[{}])( http://.[-a-zA-Z0-9@:%_\+.~#?&//=]+)', '\\1\\2', $data);
$data = preg_replace("/\[url\](http:\/\/)?(.*?)\[\/url\]/si", "\\2", $data);
$data = preg_replace("/\[url=(http:\/\/)?(.*?)\](.*?)\[\/url\]/si", "\\3", $data);
$data = preg_replace("/\[email\](.*?)\[\/email\]/si", "\\1", $data);
$data = preg_replace("/\[img\](http:\/\/)?(.*?)\[\/img\]/si", "", $data);
$data = preg_replace("/\[HR\]/si","",$data);
Return $data;
}
Заранее спасибо!
markers (2006-10-20 12:45:00) [1]Спасибо всем!
Loginov Dmitry (2006-10-20 07:45:00) [2]TPerlRegEx
http://www.regular-expressions.info/delphi.html
Zeqfreed (2006-10-20 05:25:00) [3]http://www.regexpstudio.com/
Только, на сколько я помню, синтаксис там не целиком perl-совместимый. Возможно, придется чуть-чуть модифицировать выражения.
| |
