Avatar billede neander Nybegynder
21. januar 2005 - 12:02 Der er 1 kommentar og
1 løsning

link-funktion, igen igen

Jeg har fundet det her script et sted i et spørgsmål her på eksperten:

-----------------------------------
function makeLink(str)
    '*** Make the reqular expr object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    '***Make html links
    objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank' class='link'>$1$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
-----------------------------------

Men det fungerer ikke når man ikke trykker på space efter linket. Skriver man f.eks. et link og trykker enter efterfølgende så kommer der en <br> med i linket.

Er her nogen, som har en tilsvarende funktion som fungerer lidt bedre?
Avatar billede neander Nybegynder
21. januar 2005 - 12:27 #1
lukker... fant en løsning fra spm http://www.eksperten.dk/spm/372886
Avatar billede neander Nybegynder
21. januar 2005 - 12:27 #2
.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester