Replace

Du skal have fat i noget regular expression for at få det til at virke.

Du kan bruge følgende til autohighlight. Måske din pattern skal justeres en smule.

Function AutoLink(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

regEx.Pattern = "(www.|http://|ftp://)[\w\?\=\-\%\.\@\&\/\~]+"
Set Matches = regEx.Execute(Streng)
For Each Match in Matches
    strMatch = Match.Value
    If Left(LCase(Match.Value), 7) = "http://" Or Left(Lcase(Match.Value), 6) = "ftp://" Then
        AutoLink = Replace(Streng, Match.Value, "<a href='" & Match.Value & "' target='_blank'>" & LCase(strMatch) & "</a>")
    Else
        AutoLink = Replace(Streng, Match.Value, "<a href='http://" & Match.Value & "' target='_blank'>" & LCase(strMatch) & "</a>")
    End If
Next

End Function

netro> Det er helt SUPER! Du får point! Men hvis du har tid, må du meget gerne knytte en lille forklarende kommentar, da jeg godt kunne tænke mig at forstå det...
- Hvad betyder eks. linien "regEx.Pattern = "(www. "?
- Hvorfor må adresserne ikke indeholde æøå? Det er jo rent faktisk muligt nu på .com-domænerne?

netro> Hvorfor dur scriptet ikke, når jeg indsætter et recordset fra en access-database?

Eks.:

Function AutoLink(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

regEx.Pattern = "(www.|http://|ftp://)[\w\?\=\-\%\.\@\&\/\~]+"
Set Matches = regEx.Execute(Streng)
For Each Match in Matches
    strMatch = Match.Value
    If Left(LCase(Match.Value), 7) = "http://" Or Left(Lcase(Match.Value), 6) = "ftp://" Then
        AutoLink = Replace(Streng, Match.Value, "<a href='" & Match.Value & "' target='_blank' class='tekst'>" & LCase(strMatch) & "</a>")
    Else
        AutoLink = Replace(Streng, Match.Value, "<a href='http://" & Match.Value & "' target='_blank' class='tekst'>" & LCase(strMatch) & "</a>")
    End If
Next

End Function

link = AutoLink(rs("link"))
Response.Write link

Pattern angiver hvad der skal søges efter i din streng og på hvilken form.
Den skal enten starte med "www.", "http://" eller "ftp://". Disse må være efterfulgt af A-Z, 0-9 og _, hvilket w'et angiver. Der ud over de øvrige karakterer, der er adskilt med en slash. + angiver, at der må være et vilkårligt antal af de nævnte tegn. Ja, du kan tilføje danske bogstaver således:

"(www.|http://|ftp://)[\w\?\=\-\%\.\@\&\/\~\æ\ø\å]+"

Hvorfor det ikke fungerer kan jeg ikke umiddelbart svare dig på, før jeg har set fejlmeddelelsen.

Elementært: http://www.netsrac.dk/netsrac-dk/asp0003.asp
Videregående:  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vspropattern.asp

Der er ingen problemer, hvis jeg skriver:
link = AutoLink("asdf www.asdf.dk asdf")
Response.Write link
Her udskrives: asdf www.asdf.dk[som link] asdf

Skriver jeg derimod:
link = AutoLink(rs("link"))
Response.Write link
kommer der ingenting frem på sitet.

Der er ingen fejlmeddelse...

I de database-udtræk, der ikke indeholder et link, skrives intet.
i de database-udtræk, der derimod indeholder et link, får jeg følgende fejlmeddelse:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'regEx.Execute'

Den kan altså lige pludselig ikke forstå din funktion....?

Et lille tillægsspørgsmål: Disse regular exspressions tager de lang tid at afvikle på serveren? Jeg har nemlig en frygelig masse database-udtræk, der skal "gennemløbes".

Hvis der ikke er nogle matches, så sættes resultatet af funktionen ikke til noget.

Function AutoLink(Streng)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

regEx.Pattern = "(www.|http://|ftp://)[\w\?\=\-\%\.\@\&\/\~]+"
Set Matches = regEx.Execute(Streng)
For Each Match in Matches
    strMatch = Match.Value
    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' class='tekst'>" & LCase(strMatch) & "</a>")
    Else
        Streng = Replace(Streng, Match.Value, "<a href='http://" & Match.Value & "' target='_blank' class='tekst'>" & LCase(strMatch) & "</a>")
    End If
Next
AutoLink=Streng
End Function