Stytta URL/slóđir 2
Skrifađ af
Gaui ţann
19. október 2008 - 22:40
Fjöldi lestra: 1107Fall 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.
0 athugasemdir skrifađar -