Kör denna kod snutt när jag tar ut rubriker till nyheter.
Response.Write " html "& Left(RecSet("str"),30) &" html"
Där 30 såklart är antalet tecken som skall visas i rubriken. Vet inte ifall detta är vad du tänkt dig. Men du kan ju testa.
Edit: Läste precis att du ville att det skulle bli lite punkter om länken var över 30 tecken. Det vet jag tyvärr inte hur man får till.
Har Pillat lite med regexp nu, och får www. att funka (och även http://). Tyvärr får jag dom inte att funka samtidigt :) Men tror nog det finns en del experter här som gärna reder ut det. I alla fall, denna kod snutt funkade för mig:
Function ReplaceTags(strPattern, strReplace, strSource)
Dim objRX
Set objRX = New RegExp
objRX.IgnoreCase = True
objRX.Global = True
objRX.Pattern = strPattern
ReplaceTags = objRX.Replace(strSource, strReplace)
End Function
strText = Texten som skall formateras
strText = ReplaceTags("([url]http://[/url])([^ ]*)", "<a href=""$1$2"" target=""_blank"">$1$2</a>", strText)
strText = ReplaceTags("([url]www.*?[/url])([^ ]*)", "<a href=""http://$1$2"" target=""_blank"">$1$2</a>", strText)
Text = strText
Response.Write " "& Text &" "
Ber alla RegExp experter om ursäkt för mitt underliga försök till att få detta att funka :bire