ubb url (Opgelost)

<?php
# Expressie met kleine aanpassing afkomstig uit functie van Fangorn (http://www.sitemasters.be/?pagina=scripts/scripts&cat=10&id=79)
$start   = "((http(s)?:\/\/)";                                             // http://
$url     = "([\w_-]+)(\.[\w_-]+)*";                                        // www.bla.com
$user    = "(\/\~[\w_-]+)?";                                               // userdir
$eind    = "(\/[^\040\t\r\n\.\?]+(\.[^\040\t\r\n\.\?]+)*)*(\/)?";          // files en folders
$qstring = "(\?[\w_-]+\=([^\#\040\t\r\n]+)(\&[\w_-]=[^\#\040\t\r\n]+)*)?"; // querystring
$bkmrk   = "(#[\w_-]+)?)";                                                  // bookmark

$exp = "/".$start.$url.$user.$eind.$qstring.$bkmrk."/i";

$sText = <<<code
bla bla bla http://www.sitemasters.be/?pagina=scripts/scripts&cat=10&id=79 bla bla bla
bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla
bla bla bla bla bla bla
code;

echo preg_replace($exp, '<a href="\\1">\\1</a>', $sText);
?>

<?php
# Expressie met kleine aanpassing afkomstig uit functie van Fangorn (http://www.sitemasters.be/?pagina=scripts/scripts&cat=10&id=79)
$start   = "((http(s)?:\/\/)";                                             // http://
$url     = "([\w_-]+)(\.[\w_-]+)*";                                        // www.bla.com
$user    = "(\/\~[\w_-]+)?";                                               // userdir
$eind    = "(\/[^\040\t\r\n\.\?]+(\.[^\040\t\r\n\.\?]+)*)*(\/)?";          // files en folders
$qstring = "(\?[\w_-]+\=([^\#\040\t\r\n]+)(\&[\w_-]=[^\#\040\t\r\n]+)*)?"; // querystring
$bkmrk   = "(#[\w_-]+)?)";                                                  // bookmark
 
$exp = "/".$start.$url.$user.$eind.$qstring.$bkmrk."/i";
 
$sText = <<<code
bla bla bla http://www.sitemasters.be/?pagina=scripts/scripts&cat=10&id=79 bla bla bla
bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla
bla bla bla bla bla bla
code;
 
echo preg_replace($exp, '<a href="\\1">\\1</a>', $sText);
?>