[URL] aggiuntina per chi usa wbcode (o altri sistemi bbcode)

[imente]

ho notato che alcuni usano wbcode...

ebbene, quel bell'oggettino è veramente utile (per forum, guestbook, commenti...)

però c'è una cosa che non fa

convertire i link testuali in link reali (se non si è inserito [.URL] e [./URL])

unreg mi ha chiesto una regexp che lo facesse ed eccola qui

<%

dim intext,dbtext
'ho messo il puntino in [.URL] e [./URL] per evitare che il forum lo considerasse un tag
intext = "ciao [.URL]http://www.imente.it?test=ciao[./URL] test http://www.imente.it?text=ciao; test www.imente.it?text=ciao; test (www.imente.it?text=ciao;) text [.URL]www.imente.it?text=ciao;[./URL]"
dbtext = intext

Dim reg
Set reg = New Regexp
reg.IgnoreCase = True
reg.Global = True

reg.pattern = "(^|[^/])(www\.)"
dbtext = reg.replace(dbtext,"$1http://$2")
reg.pattern = "([ \[(]|^)((?:http(?:s)?|ftp)\:\/\/(?:www)?[a-z\d\.\-_\/\?&=;]+)([ \])]|$)"
dbtext = reg.replace(dbtext,"$1[.URL]$2[/.URL]$3") 'togliere il puntino!!!

%>

testo introdotto da form

<%=intext%>

testo da inserire nel database (e che poi in output sarà passato in wbcode)

<%=dbtext%>

[unreg]

grazie !

[Santino83_02]

che fai ti perdi dietro il bcode?? e il photoblog quand'è pronto?? guarda che lunedi finisce tra 3 ore