Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

← →
markers ©   (2006-10-20 12:45) [3]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.051 c