AsaMedlem sedan dec. 20011 860 inläggTrådstart#1 Har denna kod
'#====================================================#
' Skapad av: Ricki @ Ricki.nu Copyright 2002
'#====================================================#
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
regExp.Pattern = "([url]http://[/url]|www)([\S]*)"
strText = regExp.Replace(strText,"<a href=""http://$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([url]ftp://[/url])([\S]*)"
strText = regExp.Replace(strText,"<a href=""$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"<a href=""mailto:$1"" target=""_blank"">$1</a>")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")
regExp.Pattern = "\[url=(.*)\](.*)\[/url\]"
strText = regExp.Replace(strText, "<a href=""$1"" target=""_blank"">$2</a>")
Men nu är det så att inte den grejen funkar ihop med det andra! Nån som har nå förslag på hur jag ska göra?
prova detta:
byt plats med url= saken och plasera den längst upp på din kod:
'#====================================================#
' Skapad av: Ricki @ Ricki.nu Copyright 2002
'#====================================================#
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
[b]
regExp.Pattern = "\[ url=(.*)\](.*)\[/url\]"
strText = regExp.Replace(strText, "<a href=""$1"" target=""_blank"">$2</a>")[/b]
regExp.Pattern = "([url]http://[/url]|www)([\S]*)"
strText = regExp.Replace(strText,"<a href=""http://$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([url]ftp://[/url])([\S]*)"
strText = regExp.Replace(strText,"<a href=""$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"<a href=""mailto:$1"" target=""_blank"">$1</a>")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")
och ändra din url=(.*) till url=(http://|www)([\S]*)
så kan det fungera =)
'
obs jag har lagt till ett mellanslag " " på [url=...
AsaMedlem sedan dec. 20011 860 inläggVerkar inte funka! http://forum.gruvsjo.com kan du testa!
Åsa; har du gjort forumet själv? Det verkar i alla fall bra!
AsaMedlem sedan dec. 20011 860 inläggHar gjort det själv! Tackar 
en annan lösning är när en person lägger in inlägget så konventerar du med regexp så att http:// blir [ url=http://]
kontakta mej på ICQ så kan vi nog lösa detta snabbt och enkelt