Script asp: Riconoscere url in un testo e trasformarli in link
difficoltà:
Script simili
10/4/2007
Questa funzione asp è la 'traduzione' della funzione php descritta qui:
Script php: Riconoscere url in un testo e trasformarli in link
Passando come parametro una stringa, restituiremo la stessa con gli url trasformati in link. Questo attraverso l'uso delle espressioni regolari.
function hrefreplace(str)La funzione sostituisce url del tipo:
Dim ObjRegexp
Dim risultato
Set ObjRegexp = New RegExp
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
ObjRegexp.Pattern = "([:/~a-zA-Z0-9_\-\.]+)\.([:/~a-zA-Z0-9]+)"
str = ObjRegexp.Replace(str,"<a target='_blank' href='http://$1.$2'>$1.$2</a>")
Set ObjRegexp = Nothing
hrefreplace = replace(str,"http://http://","http://")
end function
http://www.sito.it/
http://sito.it/
http://demo.sito.it/
www.sito.it/
con o senza slash finale.
Permalink:
Tag:
Script Simili:
Script php: Riconoscere url in un testo e trasformarli in link
Script javascript: Preview di testo digitato in textarea
Script javascript: Onclick e link accessibili con javascript disattivato
Script php: Controllo validità url di video youtube ed estrazione codice video
Script javascript: Controllo validità url di video youtube
Script javascript: Preview di testo digitato in textarea
Script javascript: Onclick e link accessibili con javascript disattivato
Script php: Controllo validità url di video youtube ed estrazione codice video
Script javascript: Controllo validità url di video youtube
Link utili:
Vota:
Commenti
Francesco
10/4/2009 13:14:36
La stringa:
str = ObjRegexp.Replace(str,"<a target='_blank' href='http://$1'>$1</a>")
deve diventare:
str = ObjRegexp.Replace(str,"<a target='_blank' href='http://$1.$2'>$1.$2</a>")
Altrimenti non scrive il suffisso
Fabio
10/4/2009 14:18:56
Grazie Francesco, sistemato
Feed Rss
8/6/2008 22:54:30
Grazie mille era proprio quello che cercavo... Ho inserito il tuo RSS sul mio sito! Spero non ti dia fastidio! Eventualmente contattami che provvedo subito a toglierlo! Buonaserata...