replace link

[willybit]

ma con l'ultima modifica dovrebbe andare anche senza mettere lo spazio prima del
:master:

Function LinkUrl(stringa)
	temp=""
	Set re = new RegExp
	re.Pattern = "((http://[^ \s<]+)|(www\.[^ \s<]+))"
	re.Multiline = true
	re.Global = true
	re.IgnoreCase = true
	temp = re.Replace(stringa,"$1")
	temp = Replace(temp,"href=""www","href=""http://www")
	LinkUrl = temp
End Function
prova = "questa è una prova. www.google.it" & vbCrLf & " e http://www.altavista.it sono motori di ricerca"
Response.Write prova & "
"
Response.Write LinkUrl(Replace(prova,vbCrLf,"
"))

a me questo funziona... mi restituisce

questa è una prova. www.google.it
 e http://www.altavista.it sono motori di ricerca

[dops]

just.. funziona

[willybit]

dops ha scritto un messaggio il giorno 20-05-2005 08:48:
Ciao Willy, volevo chiederti un piacere, se è possibile modificare la funzione in modo che mi riconosca anche gli indirizzi email
Puoi? Grazie mille

Ciao dops,
ecco qua

<%
Function LinkUrlEmail(stringa)
	temp=""
	Set re = new RegExp
	re.Pattern = "((http://[^ \s<]+)|(www\.[^ \s<]+))"
	re.Multiline = true
	re.Global = true
	re.IgnoreCase = true
	temp = re.Replace(stringa,"$1")
	temp = Replace(temp,"href=""www","href=""http://www")
	re.Pattern =	"([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	LinkUrlEmail = re.replace(temp, "$1")
End Function
prova = "questa è una prova. www.google.it" & vbCrLf & " e http://www.altavista.it sono motori di ricerca. un'email è prova@prova.it e un'altra è test@test.it"

Response.Write prova & "
"
Response.Write LinkUrlEmail(Replace(prova,vbCrLf,"
"))
%>

[dops]

grazie mille Willy

[dops]

willy scusa, ho notato che se passo una stringa vuota alla funzione mi esce fuori un errore..
nella mia applicazione potrebbe venir passata una stringa vuota che cmq pur controllando mi fà ritornare l'errore:
Tipo non corrispondente: 're.Replace'
si può evitare?
Grazie

[willybit]

controlla che la stringa non sia vuota all'interno della funzione

Function LinkUrlEmail(stringa)
   if stringa<>"" then
	temp=""
	Set re = new RegExp
	re.Pattern = "((http://[^ \s<]+)|(www\.[^ \s<]+))"
	re.Multiline = true
	re.Global = true
	re.IgnoreCase = true
	temp = re.Replace(stringa,"$1")
	temp = Replace(temp,"href=""www","href=""http://www")
	re.Pattern =	"([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	LinkUrlEmail = re.replace(temp, "$1")
   else
	LinkUrlEmail = ""
   end if
End Function

[dops]

grazie mille