Script asp: Riconoscere url in un testo e trasformarli in link

   difficoltà:  script script script script script

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)
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
La funzione sostituisce url del tipo:

http://www.sito.it/
http://sito.it/
http://demo.sito.it/
www.sito.it/

con o senza slash finale.




Commenti


  Nano

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...

  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

  Ettore

31/5/2010 17:57:22

Peccato che non funzioni affatto!



Lascia un commento


Codice di controllo*:
Nome*:
Email/Link:
Testo*:
 
I campi contrassegnati con * sono obbligatori.