Max længde - MakeLink script
Halløj Eksperter...Jeg bruger pt. det kendte MakeLink script som nedenstående, men ønsker at sætte en maks længde på selve linket hvis det eksempelvis er over 30 tegn...
Jeg benytter følgende:
function MakeLink(str)
'*** Make the reqular expr object
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'Replace trailing spaces with " "
objRegExp.Pattern = "(\s) "
str = objRegExp.Replace(str,"$1 ")
'***Make html links
objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "<a target='_blank' href="&chr(34)&"http://$2$3$4"&chr(34)&">$1$2$3$4</a>")
objRegExp.Pattern = "(^|[^\/])(w{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "$1<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$2$3$4</a>")
'***Make html mailto
objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
str = objRegExp.Replace(str, "<a href="&chr(34)&"mailto:$1"&chr(34)&">$1</a>")
Set objRegExp = Nothing
makelink = str
end function
Jeg har forsøgt med left(str, 20) men uden held...
Den retunerer blot $1$2$3$4
Hvordan kan jeg få den til at retunerer ønsket længde således:
<a href="LANG URL"><%= left(LANG URL, 20)%></a>
??