Link Function
Hej Experter!Jeg har en link fuktion som automatisk oversætter en link fra en indtastnings box til en klikbar link i visningen.
Den virker kun til alm. web adresser er der nogen der også kan få den til at gøre det med mail adresser?
Her er min funktion
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
objRegExpHTTP1.Pattern = "(http|ftp|irc|nntp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank' class='smallink'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank' class='smallink'>$2</a> ")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")
Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
LinkString2 = strOutput
End Function
/Roadi