När jag använder denna funktion fungerar den utmärkt förutom om man skriver så här: Med viss risk för att jag inte förstår vilket resultat du är ute efter men testa detta så kanske det hjälper!? Tack.. Jag har hittat en annan smidigare funktion men tack :)RegExp-funktion för länkar av text [löst]
http://www.pellesoft.nu
http://www.webforum.nu
etc.. Då blir det ett <br> mellan länkarna och det får dem att se ut så här: http://www.pellesoft.nu<br>http://www.webforum.nu
Hur tar jag bort <br> ur länkarna men har kvar den i inlägget så att båda länkarna syns på varsin rad?
Koden:
<% Function Fixmylinks(Input)
Set RegExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
regExp.Pattern = "(http://|www)([\S]*)"
Input = regExp.Replace(Input,"$1$2")
regExp.Pattern = "([\S]*@[\S]*[.se|.cx|.com|.nu|.net|.org])"
Input = regExp.Replace(Input,"$1")
regExp.Pattern = "([.|,|!|?|:|;|)|\]]*)</a> "
Input = regExp.Replace(Input,"</a>$1 ")
regExp.Pattern = "([.|,|!|?|:|;|)|\]]*)"" target=""_blank"">([^<]*)</a>"
Input = regExp.Replace(Input,""" target=""_blank"">$2</a>")
Input = Replace(Input,"http://http://","http://")
Fixmylinks = Input
Response.Write str
End Function %>Sv: RegExp-funktion för länkar av text
Replace(Input, Chr(13), "<br>")Sv: RegExp-funktion för länkar av text