Stytta URL/slóđir 2

Skrifađ af
Gaui ţann
19. október 2008 - 22:40
Fjöldi lestra: 1107
Fall sem klippir slóđir á mjög einfaldan máta. MUN einfaldara en
hitt.
Sýnidćmi
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 |
|
<?php
# Fall sem styttir URL/slóđir
function createURL( $aUrl )
{
$url = $aUrl[1];
# Ef URL er yfir 50 stafi
if( strlen( $url ) > 50 )
# Bútum ţađ niđur svona: 35stafir...15stafir
$new_url = substr_replace( $url, '...', 35, -15 );
else
# Ef URL er ekki yfir 50 stafi ţá gerum viđ ekki neitt
$new_url = $url;
# Skilum breytta URL út
return '<a href="' . $url . '">' . $new_url . '</a>';
}
# Prófum ţetta...
$foo = '[url]http://ehsanakhgari.org/mozilla/downloadday/stats/pledge-ranking-by-country-population.php?sort=asc&order=Rank[/url]<br />
[url]http://mbl.is/mm/sport/formula/2008/06/18/mercedes_minnist_fyrsta_sigursins_med_aldargomlum_b/[/url]<br />
[url]http://www.somethingawful.is/very-long-fucking-filename-which-is-so-cool-je.html#foo[/url]<br />
[url]http://members.aol.com/rynocub/this.is.a.very.long.url/this.very.long.url.was.created.by/the.rynocub.home.page/which.was.created.by/ben.tolsky/and.radioactive.chicken/which.is.a.ben.tolsky.company/this.url.is.the.longest.url.made.by/ben.tolsky/finally.this.is.over.htm[/url]<br />
[url]http://verylongurl.com/news-technology-slashdot-geek-tech-daily-web-blog-web2.0.html[/url]<br />
[url]http://verylongurl.com/programming-news-web-reddit-social-blog-web2.0-lisp-tutorial.html[/url]<br />
[url]http://verylongurl.com/finance-money-web2.0-wesabe-api-banking-financial-rest-budget.html[/url]<br />';
# Perl Regular Expression sem athugar allt sem er innan [url] og [/url] og afhendir ţađ createURL() fallinu hér fyrir ofan
$string = preg_replace_callback( '#\[url\](.+?)\[/url\]#i', 'createURL', $foo );
# Prentum slóđirnar út
echo $string;
?>
|
Engar athugasemdir.