URL in Link problema

[ettorpa]

Ciao Ragazzi è da tempo che non venivo su questo mitico forum che tanto mi ha insegnato.

Ho un problema:

Nel mio guestbook ho l'esigenza di trasformare gli url postati in LINK.

In effetti mi funziona...cioè rende linkabili gli URL postati ma.....

se provo ad es a scrivere: ciao...ciao dopo i puntini, mi linka tutto, del tipo: href="http://ciao...ciao"

Il problema risiede proprio nel pattern:

Dim rg
Dim risultato
Set rg= New RegExp
rg.Global = True
rg.IgnoreCase = True
rg.Pattern = "([:/~a-zA-Z0-9_\-\.]+)\.([:/~?=a-zA-Z0-9]+)"
strInputComments = rg.Replace(strInputComments ,"$1.$2")
Set rg= Nothing
strInputComments = replace(strInputComments ,"http://http://","http://")

In questo modo devo attenermi a quello che la regexp può prendere...o dovrei piuttosto optare per un tag del tipo www.google.it [/url] e toglierei ogni problema da mezzo? pero' col fastidio di dover sempre racchiudere nei tag.

Un aiutino? mi sono impallato ...cosa mi consigliate?

[Roby_72]

Prova questo:

Function Link_URL_standard(stringa)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True                   
	objRegExp.Global = True                 
	'objRegExp.Pattern = "(\b(www\.|https?\://)\S+\b}?)"
	objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
	strTemp = objRegExp.replace(stringa, "$1")
	Link_URL_standard = strTemp
	Set objRegExp = Nothing
End Function

Roby

[ettorpa]

Grazie Roby, provo subito

sei sempre super gentile e disponibile.

ciauzz

[ettorpa]

Roby ho modificato il tuo script ovviamente con le mie variabili.

funzionaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

sei un grande!!!

buon fine settimana Roby