3 svar · 302 visningar · startad av Frezze
Hejsan.
Det finns då länkar som blir riktigt långa ibland, men jag vill att det ska bli förkortad så det ser ut så här:
http://www.sida.se/bla/...dkjsd.asp
eller liknande, så man slipper den långa länken. Någon som har en bra lösning?
Har för mig att jag sett en länk till ett sådant script i någons signatur här på wF.
Hehe, ok, tack Impact. Hittade något i alla fall, det ser ut så här:
Function ShortenLinkName(sHTML, lFirstLength, lLastLength)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(\<a \[^\>\]+\> )(\[\\s\\S\]{" & lFirstLength & "}?)(\[\\s\\S\]+?)(\[\\s\\S\]{" & lLastLength & "}?)(\</a\> )" '"(\<a \[^\>\]+\> )(\[^\</a\>\]{" & lFirstLength & "})(\[^\</a\>\]+)(\[^\</a\>\]{" & lLastLength & "})(\</a\> )"
ShortenLinkName = objRegExp.Replace(sHTML, "$1$2...$4$5")
Set objRegExp = Nothing
End Function
Men det är en ganska jobbig kod att ändra så den passar min, och den ser ut så här (gör om en vanlig länk till en hyperlänk):
RegExp.Pattern = "(http://(\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
text = RegExp.Replace(text," <a href=""$1"" target=""_blank"">$1</a>")
Nu ska jag bara få in så den kortar ner det också, men RegExp, tycks kunna programmeras olika =P