Jaaa!
Fick byta pattern till:
regExp.Pattern = "\[ url=(.*?)\](.*?)\[/ url]"
str = regExp.Replace(str, "<a href=""$1"">$2</a>")
Trådstart#1
Använder mig av denna funktion för att skapa länkar både genom http://, mailto:, ftp://, news:// men även [ URL=Sökväg ]Länknamn[ /url ]
(utan mellanslag)
Dock fungerar det inte. När jag använder [ URL ] så blir länken helskum:
[ URL=http://www.mzreklam.se]MZ[/ URL]
/>
Länkningen ser ut så här i koden:
[ URL=<a href='referer.asp?url=http://www.mzreklam.se]MZ[/ URL]<br' target='_blank'>http://www.mzreklam.se]MZ[/ URL]<br></a> />
Min funktion:
Function makeOutput(str)
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
str = regExp.Replace(str, "<a href='referer.asp?url=$1' target='_blank'>$1</a>")
[blue] regExp.Pattern = "\[URLl=(")?([url]http://[/url])?(.*?)\1\](.*?)\[\/URL\]"
str = regExp.Replace(str, "<a href=""referer.asp?url=http://$3"">$4</a>")[/blue]
MakeOutput = str
End Function
Hur kan jag lösa detta?