Jag har funnit följande script, (på Webforum)



kod:--------------------------------------------------------------------------------
'Fixa citat, kod, gör länkar av http:// och www, plus lite till
Dim objRE

Function FCode(str)

str = Replace(str,"<","&lt;")
str = Replace(str,VbCrLf,"<br />")


Set objRE = New regexp
objRE.Global = true
objRE.IgnoreCase = true


'start citering
objRE.Pattern = "\[citat=(.*?)](\w\s)*"
str = objRE.Replace(str,"<br />[citat=$1]")

objRE.Pattern = "\[citat=(.*?)]"
str = objRE.Replace(str,"<blockquote><b>$1</b> skrev:<hr /><span class=""citat"">")

objRE.Pattern = "\[citat\](\w[åäö]*\s[åäö]*)*"
str = objRE.Replace(str,"<blockquote><br /><span class=""cit"">Citat:</span><hr /><span class=""citat"">$1")

objRE.Pattern = "\[/citat\]"
str = objRE.Replace(str,"</span><hr /></blockquote>")
'slut citering



'start kod
objRE.Pattern = "\[kod\]"
str = objRE.Replace(str,"<blockquote><span class=""kod"">Kod:<hr />")

objRE.Pattern = "\[/kod\]"
str = objRE.Replace(str,"<hr /></span></blockquote>")
'slut kod


objRE.Pattern = "\[(b|/b|i|/i|u|/u)\]"
str = objRE.Replace(str,"<$1>")

'fixa länkar och e-postadresser
objRE.Pattern = "(www.[^ ]*[a-z])|(http://[^ ]*[a-z])"
str = objRE.Replace(str,"$1$2")

'buggfixningar
str = Replace(str,"""www","""http://www")
str = Replace(str,"""http://www""","""www""")

str = Replace(str,"<br""","""")
str = Replace(str,"<br</a> />","</a><br />")

str = Replace(str,"</span><hr""","""")
str = Replace(str,"</span><hr</a> />","</a></span><hr />")

str = Replace(str,"<blockquote><span""","""")
str = Replace(str,"<blockquote><span</a>","</a><span")
str = Replace(str,"</b</a>>","</b>")
'slut


objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"
str = objRE.Replace(str,"$1")
'slut länkar och e-postadresser

Set objRE = Nothing

Fcode = str
End Function
'slut

--------------------------------------------------------------------------------


Jag anropar det för att visa inlägg från ett forum.
Mitt problem är att det inte fungerar då man skrivit in länkar i forumet med efterföljande parametrar som tex http://www.cms-internet.com/carcare/Shownyhet.asp?id=46

Titta gärna på hur den sidan ser ut så förstår ni.
Parametrarna i länken hänger inte med och blir klickbara...

Någon som har tips?

MvH

David

Kolla in en funktion jag skrev för lite över ett halvår sedan åt en annan...

["Aktivera" länkar och e-post adresser i en text]

Den ska klara av att "aktivera" länkar och e-post adresser även om de innehåller ?, & etc...

Mvh,
Thomas