reg. exp tagster

Det var faktsik en skrive fejl. Den tager ikke email adresse :)
Du skal nok prøve at tage et kig på denne:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Har jeg kigget på - men jeg ville gerne bruge reg. exp da det skulle være hurtigere. Det skal nemlig køres på noget der i forvejen modificeres heftigt af andre funktioner, så performance er ret vigtigt :)

har kigget lidt på de reg exp linkmakers der er på activedeveloper, men der er bugs i næsten allesammen :(

den jeg søger, skal også kunne håndtere urls hvor der indgår querystrings

jeg vil da godt lige prøve at kigge på det... men det med links uden www eller http:// ved jeg ikke om er lige til for den kommer umiddelbart til at tage email adresser som links.. men det skulle vist være til at få email adresser med i viste funktion.

hmm, har nu brygget den her sammen og den virker faktisk fint

<%
function autoHighLight(Streng)
    Set objRegExpHTTP1 = New RegExp
    objRegExpHTTP1.Global = True
    objRegExpHTTP1.IgnoreCase = True
    ' Links der starter med http, ftp eller https
    objRegExpHTTP1.Pattern = "(http|ftp|https)(:\/\/[\w]+)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
    Streng = objRegExpHTTP1.Replace(Streng, "<a href=""$1$2$3$4"" onclick=""window.open(this.href,'_blank');return false;"">$1$2$3$4</a>&nbsp;<img src=""graf/link.gif"" alt=""Link til http$2$3$4"" />")

    ' Links der starter med www
    objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
    Streng = objRegExpHTTP1.Replace(Streng, " $1<a href=""http://$2$3$4"" onclick=""window.open(this.href,'_blank');return false;"">$2$3$4</a>&nbsp;<img src=""graf/link.gif"" alt=""Link til $2$3$4"" />")

    ' mailto links
    objRegExpHTTP1.Pattern = "(\S+@{1}\S+\.\w+\b)"
    Streng = objRegExpHTTP1.Replace(Streng, "<a href=""mailto:$1"">$1</a>")
   
    set objRegExpHTTP1 = Nothing
autoHighLight = Streng
end function
%>

jeg lukker og accepterer at links uden præfiks ikke kommer med

til gengæld har jeg problemer med denne linie

' mailto links
objRegExpHTTP1.Pattern = "(\S+@{1}\S+\.\w+\b)"
Streng = objRegExpHTTP1.Replace(Streng, nospam($1,"email") & "&nbsp;<img src=""graf/email.gif"" alt=""Email"" />")

nospam funktionen følger her

function nospam(strEmail, strText)
   
    for i = 1 to Len(strEmail)
        strEmailEncoded = strEmailEncoded & "&#" & asc(Mid(strEmail, i, 1)) & ";"
    next
   
    if trim(strText) = "" then
        strText = strEmailEncoded
    else
        for i = 1 to Len(strText)
        strTextEncoded = strTextEncoded & "&#" & asc(Mid(strText, i, 1)) & ";"
        next
    end if
   
    strMailPart = split(strEmailEncoded,"&#64;",-1,1)

    nospam = "<script type=""text/Javascript"">" & vbcrlf
    nospam = nospam & "var user = """ & strMailPart(0) & """;" & vbcrlf
    nospam = nospam & "var domain = """& strMailPart(1) & """;" & vbcrlf
    nospam = nospam & "var mail = user + ""&#64;"" + domain;" & vbcrlf
    nospam = nospam & "var linkText = """& strText & """;" & vbcrlf
    nospam = nospam & "document.write(""<a href=\""&#109;&#97;&#105;&#108;&#116;&#111;&#58;""+mail+""\"">""+linkText+""</a>"");" & vbcrlf
    nospam = nospam & "</script>"

end function

Jeg har brugt dette som pattern:

objRegExpHTTP1.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

kan du se hvad der er galt med
' mailto links
objRegExpHTTP1.Pattern = "(\S+@{1}\S+\.\w+\b)"
Streng = objRegExpHTTP1.Replace(Streng, nospam($1,"email") & "&nbsp;<img src=""graf/email.gif"" alt=""Email"" />")

det er i selve replace funktionen det går galt

du kan ikke havde $1 uden for " " det er varible til Replace functionen.
Så må du lave det med som execute eks:

set matches=regEx.Execute(streng)
For each match in matches
  streng = Replace(Streng, match.value, nospam(match.value,"email") & "&nbsp;<img src=""graf/email.gif"")
next

ok - jeg er ikke så familiær med reg exp :)

hmm

    ' mailto links
    set matches=objRegExpHTTP1.Execute(streng)
    For each match in matches
      streng = Replace(Streng, match.value, nospam(match.value,"email") & "&nbsp;<img src=""graf/email.gif"")")
    next

nu siger den Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'nospam'

har du ikke en function som hedder nospam ?

jo - den er included, og er den jeg postede 31/01-2004 16:38:20

hmm underligt..Er det mig eller er dr ikke kommet for emget med i denne linje:?
streng = Replace(Streng, match.value, nospam(match.value,"email") & "&nbsp;<img src=""graf/email.gif"")")

Prøv:
streng = Replace(Streng, match.value, nospam(match.value,"email") & "&nbsp;<img src=""graf/email.gif"")

hov - der var <img> tagget ikke lukket, men med

Streng = Replace(Streng, match.value, nospam(match.value,"email") & "&nbsp;<img src=""graf/email.gif"" />") giver den stadig

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'nospam'

det må være noget med at nospam funktionen ikke betragter match.value som en gyldig streng.. Har prøvet med Cstr()

doh!

Det var noget så tåbeligt som at jeg havde en anden funktion der hed det samme i en anden include fil !

Det virker perfekt nu :)