函数text2links($str='') {
if($str=='' 或 !preg_match('/(http|www.|@)/i', $str)) { return $str; } }
$lines =explode("n", $str); $new_text = '';
while (列表($k,$l) = every($lines)) {
// 替换链接：
$l = preg_replace("/([ t]|^)www./i", "
\1http://www.", $l);
$l = preg_replace("/([ t]|^)ftp./i", "
\1ftp://ftp.", $l);
$l = preg_replace("/(http://[^ )rn!] )/i",
"
\1">\1>", $l);
$l = preg_replace("/(https://[^ )rn!] )/i",
"\1">\1>", $l);
$l = preg_replace("/(ftp://[^ )rn!] )/i",
"\1">\1>", $l);
$l = preg_replace(
"/([-a-z0-9_] (.[_a-z0-9-] )*@([a-z0-9-] (.[a-z0-9-] ) ))/i",
"mailto:\1">\1>", $l);
$new_text .= $l."n";
}
返回 $new_text;
}
