[url]replace[/url] - Regexp????

Denne finder både mailadresser og url. Kan det bruges?


Function AutoLink(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
If instr(Streng, "@") Then
    regEx.Pattern = "[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}"
    Set Matches = regEx.Execute(Streng)
        For Each Match in Matches
            strMatch = Match.Value
            If Len(strMatch) > 25 Then
                strMatch = Left(strMatch, 25) & "..."
            End If
            Streng = Replace(Streng, Match.Value, "<a href='mailto:" & Match.Value & "'>" & LCase(strMatch) & "</a>")
        Next
Else
    regEx.Pattern = "(http://|www.|ftp://)[a-z0-9\.\-]+\.[a-z]{2,4}[a-z0-9\.\-\/]{0,}"
    Set Matches = regEx.Execute(Streng)
        For Each Match in Matches
            strMatch = Match.Value
            If Len(strMatch) > 25 Then
                strMatch = Left(strMatch, 25) & "..."
            End If
            If Left(LCase(Match.Value), 7) = "http://" Or Left(Lcase(Match.Value), 6) = "ftp://" Then
                Streng = Replace(Streng, Match.Value, "<a href='" & Match.Value & "' target='_blank'>" & LCase(strMatch) & "</a>")
            Else
                Streng = Replace(Streng, Match.Value, "<a href='http://" & Match.Value & "' target='_blank'>" & LCase(strMatch) & "</a>")
            End If
        Next
End If   
AutoLink = Streng 
End Function

Ja det kan laves med RegExp


str = "en streng med et link i [url]www.noget.dk[/url] skal ses!"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True

regEx.Pattern = "(\[url\])(.*)(\[\/url\])"
 
str = regEx.Replace (str, "<a href=""$2"">$2</a>")

Set regEx = Nothing

Response.Write str

Alternativt kan du bare havde en link konvereter som laver links i tekst www.eksperten.dk om til klikbare links som her på eksperten. Der har været en konkurrence på www.netkoders.dk og vinder script er her:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

Jeg har et script/function som jeg selv bruger som laver link og email adresser i en teksten om til link, hvis du vil havde den.

Hmm, det ser ikke ud til at virke... den finder ikke alm. links....

Desuden er den heller ikke helt som jeg vil ha' det....

Meningen er nemlig at jeg også skal lave en funktion der finder en tegning....


Altså.. skriver man [tegning]28374[/tegning] laver den det hele om til <img src="image.asp?tegning=28374">

Min dilemma er altså... hvordan fanden får jeg fat i hvad der står MELLEM [tegning] og [/tegning]???????

Som jeg har vist i mit svar.

Hehe, jah Eagle.. skrev mit svar før jeg så dit...

Anyway, vil jeg meget gerne have din funktion!

Fra mit svar skal du skal så "bare" rette url til tegning og "<a href..." til "<img src...." osv..



OK her er functionen:
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$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
Set objRegExpEMail = Nothing

LinkString2 = strOutput
End Function

Hmm den ser nu ikke ud til at fungere helt.... nogle steder laver den links ud af noget som ikke er links, og andre steder afslutter den ikke linksene

http://www.tegnebordet.dk/default.asp?vis=forum2&show=thread&thread=27&forum=1

Den function jeg har lavet skal ikke havde [url] og [/url] omkring. Eller bruger du den fra svaret`?

jeg bruger den funktion du lige har givet mig.... :)

Prøvede bare lige at stresse den lidt.....

Ok.. havd indeholde den?

Som du kan se her:
http://www.tegnebordet.dk/default.asp?vis=forum2&show=thread&thread=27&forum=1

Så laver den ikke links ordentligt...der er en post hvor der står www.hamsterking.com men linket sluttes ikke før 3. linje...