Reconocimiento de "http://" en un textarea

[nicolaslt]

Hola gente!!

Les cuento, estoy haciendo... un sistema de comentarios en php donde cada visitante deja un comentario si?

Y lo que quería hacer era que... cuando el mensaje contenga una pagina web (cuando empiece con h t t p:// o w w w.) que automáticamente se convierta en un link.

Espero que se entienda

saludos :)

[hgp147]

Código PHP:

  function ConvertirCortarurl( $matches ) {  
    $limite = 40; 
    $matches[0] = (strlen($matches[0]) > $limite) ? substr($matches[0],0,15)."...".substr($matches[0],19-$limite) : $matches[0]; 
    return "<a href=\"".(!empty($matches[3]) ? $matches[3] : "http")."://$matches[4]$matches[5]$matches[6]\" target=\"_blank\">$matches[0]</a>";  
}  
 
 
 
 
function ConvertirCortaremail( $matches ) { 
    $limite = 40;
    $matches[0] = (strlen($matches[0]) > $limite) ? substr($matches[0],0,15)."...".substr($matches[0],19-$limite) : $matches[0];
    return "<a href=\"mailto:$matches[1]@$matches[2].$matches[3]\">$matches[0]</a>"; 
}
 
 
 
 
function ponerLinksurl( $str ) {
    return preg_replace_callback("/((([a-zA-Z]+):\/\/)|(www\.))([\w\.]+)([\#\,\/\~\?\&\=\;\%\-\w+\.]+)/i",'ConvertirCortarurl',$str);
 
 
}
 
function ponerLinksemail( $str ) {
    return preg_replace_callback("/([\w\._-]+)@([\w]+)\.([\w\._-]+)/i",'ConvertirCortaremail',$str);
 
}
 
 
 
 
 
$comentario = ponerLinksemail(ponerLinksurl($comentario)); 
   

[argy]

esta función lo utilicé como un método estático de una de mis clases, pero ahora te lo dejo como una función.

Código PHP:

  function parserLink($url)
    {
        return preg_replace(
            array('/(?(?=<a[^>]*>.+<\/a>)(?:<a[^>]*>.+<\/a>)|([^="\']?)((?:https?|ftp|bf2|):\/\/[^<> \n\r]+))/iex','/<a([^>]*)
            target="?[^"\']+"?/i','/<a([^>]+)>/i','/(^|\s)(www.[^<> \n\r]+)/iex','/(([_A-Za-z0-9-]+)(\\.[_A-Za-z0-9-]+)*@([A-Za-z0-9-]+)(\\.[A-Za-z0-9-]+)*)/iex'),array("stripslashes((strlen('\\2')>0?'\\1<a href=\"\\2\">\\2</a>\\3':'\\0'))",'<a\\1','<a\\1 target="_blank" class="enlace01">',"stripslashes((strlen('\\2')>0?'\\1<a href=\"http://\\2\" target=\"_blank\" class=\"enlace01\">\\2</a>\\3':'\\0'))","stripslashes((strlen('\\2')>0?'<a href=\"mailto:\\0\" class=\"enlace01\">\\0</a>':'\\0'))"),$url);
    }