Ændre html-tags

Forstår ikke helt hvad du mener..

Ville du så have HTML koden til, at se sådan her ud:

Link (<a href="default.asp">default.asp</a>)

i stedet for  <a href="default.asp">Link</a> ?

Nej, hvis html-koden er:

Klik på dette link: <a href="default.asp">Link</a>

skal det laves om til:

Klik på dette link: Link (default.asp)

(altså uden html)

Jeg er nået så langt, men kan ikke hitte ud af, hvordan jeg indsætter adressen på linket:

Function funcReplaceLinks(str)
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    objRegExp.Pattern = "<a\s+href[^>]+>"
    str = objRegExp.Replace(str, "")

    objRegExp.Pattern = "</\a>"
    str = objRegExp.Replace(str, " (her skal linket stå)")

    Set objRegExp = Nothing
    funcRemoveLinkFromString = str
End Function

Prøver lige igen:

Function funcReplaceLinks(str)
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    objRegExp.Pattern = "<a\s+href[^>]+>"
    str = objRegExp.Replace(str, "")

    objRegExp.Pattern = "</\a>"
    str = objRegExp.Replace(str, "(her skal linket stå)")

    Set objRegExp = Nothing
    funcReplaceLinks= str
End Function

Hej Thomas.
Bruger selv ngt der _minder_ om det du prøver på. Har selv udviklet nedenstående, som gør, at man ej kan skrive html-tags i min gæstebog (da dette kan medføre ondsindet kode), men man kan skrive [a]link[/a] istedet, og så laver den det om til et html-tag. Dette betyder, at det er MIG, der styrer om der kommer tags i en post. Bare til inspiration:

    tmp = replace(trim(request.Form("Kommentar")), "'", "''")
    tmp = replace(tmp, "<", "(")
    tmp = replace(tmp, ">", ")")
    splittemp = tmp
    splittet = split(splittemp, "[a]", -1, 1)
    while instr(tmp, "[a]") <> 0
        splittemp = tmp
        splittet = split(splittemp, "[a]", 2, 1)
        if not splittet(0) = splittemp then
            splittet2 = split(splittet(1), "[/a]", 2, 1)
            if Instr(1, splittet2(0), "@", 1) > 0 then
                splittet2 = split(splittet(1), "[/a]", 2, 1)
                tmp = (splittet(0) & " <a href=mailto:" & splittet2(0) & ">" & splittet2(0) & "</a> " & splittet2(1))
            else
                tmp2 = replace(splittet2(0), "http://" , "")
                tmp2 = "http://" & tmp2
                linktmp = replace(splittet2(0), "http://", "")
                tmp = (splittet(0) & " <a href=" & tmp2 & " target=_blank>" & linktmp & "</a> " & splittet2(1))
            end if
        else
            tmp = splittemp
        end if
    Wend

ZkiiFreak

Er dette stadig åbent??
Vil du havde det som en regular expression funktion?

Hej eagleeye, ja det er stadig åbent. Indtil videre har jeg bare fjernet alle html-tags, men så kan man ikke se, hvad der har været links.

Ja, det må gerne være med RegExp - det skal køre på IIS.

Du kan lave en function som denne det er næsten det samme pattern som i den du selv har lavet.:

<%

function makeLinks(str)
  Set objRegExp = New RegExp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "(<a\s+href=(.*?)>(.*?)</a>)"
  makeLinks = objRegExp.Replace(str, " ($1)")
  Set objRegExp = Nothing
end function


str = "en test <a href=""default.asp"">link</a> en test mere <a href=""http://www.eksperten.dk"">eksperten</a> TEST"

Response.write makeLinks(str)

%>

Ja, det begynder at ligne noget - men den skal i parentesen vise selve linket, så det bliver:

en test link (default.asp) en test mere eksperten (http://www.eksperten.dk) TEST

Er det muligt?

Ja prøv at lave de om til dette:

function makeLinks(str)
  Set objRegExp = New RegExp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<a\s+href=""(.*?)"">(.*?)(</a>)"
  makeLinks = objRegExp.Replace(str, "$2 (<a href=$1>$1$3)")
  Set objRegExp = Nothing
end function

str = "en test <a href=""default.asp"">link</a> en test mere <a href=""http://www.eksperten.dk"">eksperten</a> TEST"

Response.write makeLinks(str)

Præcis hvad jeg skulle bruge - tak for hjælpen.

Husk at lukke her igen.