Регулярные выражения

← →
markers © (2006-10-20 01:14) [0]

Ещё один вопросец!
Как реализовать сей код на 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("/(?<!\])(\r\n)/si", "<br>\n", $data); $data = preg_replace( "/\s\s\s /si", " ", $data ); $data = ereg_replace( "\t", " ", $data ); $data = preg_replace("/\[bc\](.*?)\[\/bc\]/si", "<B class=\"c\">\\1", $data); $data = preg_replace("/\[b\](.*?)\[\/b\]/si", "\\1", $data); $data = preg_replace("/\[q\](.*?)\[\/q\]/si", "<q>\\1</q>", $data); $data = preg_replace("/\[center\](.*?)\[\/center\]/si", "<center>\\1</center>", $data); $data = preg_replace("/\[tcenter\](.*?)\[\/tcenter\]/si", "<center>\\1</center>", $data); $data = preg_replace("/\[left\](.*?)\[\/left\]/si", "<div align=\"left\">\\1</div>", $data); $data = preg_replace("/\[right\](.*?)\[\/right\]/si", "<div align=\"right\">\\1</div>", $data); $data = preg_replace("/\[i\](.*?)\[\/i\]/si", "\\1", $data); $data = preg_replace("/\[u\](.*?)\[\/u\]/si", "\\1", $data); $data = preg_replace("/\[table(.*?)\]/si", "<table\\1".$tclass." cellspacing=\"0\" cellpadding=\"0\">", $data); $data = preg_replace("/\[tr(.*?)\]/si", "<tr\\1>", $data); $data = preg_replace("/\[td(.*?)\]/si", "<td\\1>", $data); $data = preg_replace("/\[th(.*?)\]/si", "<th\\1>", $data); $data = ereg_replace( "\[\/td\]", "</td>", $data); $data = ereg_replace( "\[\/th\]", "</th>", $data); $data = ereg_replace( "\[\/tr\]", "</tr>", $data); $data = ereg_replace( "\[\/table\]", "</table>", $data); $data = eregi_replace("([[:space:]()[{}])(www.[-a-zA-Z0-9@:%_\+.~#?&//=]+)", "\\1<A HREF="http://\\2" target="_blank">\\2</a>", $data); $data = eregi_replace("([[:space:]()[{}])(http://.[-a-zA-Z0-9@:%_\+.~#?&//=]+)", "\\1<A HREF="\\2" target="_blank">\\2</a>", $data); $data = preg_replace("/\[url\](http:\/\/)?(.*?)\[\/url\]/si", "<A HREF=\"http://\\2\" TARGET=\"_blank\">\\2</A>", $data); $data = preg_replace("/\[url=(http:\/\/)?(.*?)\](.*?)\[\/url\]/si", "<A HREF=\"http://\\2\" TARGET=\"_blank\">\\3</A>", $data); $data = preg_replace("/\[email\](.*?)\[\/email\]/si", "<A HREF=\"mailto:\\1\">\\1</A>", $data); $data = preg_replace("/\[img\](http:\/\/)?(.*?)\[\/img\]/si", "<IMG SRC=\"http://\\2\" BORDER=0>", $data); $data = preg_replace("/\[HR\]/si","<hr size=\"1\" width=\"90%\" noshade>",$data); Return $data; }
Заранее спасибо!

← →
Zeqfreed © (2006-10-20 05:25) [1]

http://www.regexpstudio.com/
Только, на сколько я помню, синтаксис там не целиком perl-совместимый. Возможно, придется чуть-чуть модифицировать выражения.

← →
Loginov Dmitry © (2006-10-20 07:45) [2]

TPerlRegEx

http://www.regular-expressions.info/delphi.html

Спасибо всем!

Регулярные выражения Найти похожие ветки