Lav tekst om til link...

Nedenstående kode klarer det. Bemærk at Regular Expressions (RegExp) kræver VBScript 5.5 eller nyere.

<%
    Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

    strText = "Jeg kan varmt anbefale sitet http://www.eksperten.dk og også www.invisibleman.dk . Du kan skrive til mig på thomas@invisibleman.dk"
    Response.Write LinkString(strText)
%>

Kigger lige med - og har et tillægsspørgsmål.

Hvis det er et notatfelt fra en Access2k DB man vil tjekke, hvordan skal det så se ud?

Fandt selv ud af det! ;0)

Kanon god funktion!

Yeps .. den er ret effektiv. Jeg havde den og ligge fra noget gammelt noget .. men optimerede den lige lidt så den var pæn :D