Replace fra og til uden at kende det mellem

så skal du benytte regexp...

et eks.

Function LinkToString(strInput)
    Set objRegExpHTTP1 = New RegExp
    objRegExpHTTP1.Global = True
    objRegExpHTTP1.IgnoreCase = True
       
    objRegExpHTTP1.Pattern = "([a])(.*?)([/a])"
    strOutput = objRegExpHTTP1.Replace(strInput, "<a href=""http://$2"" target=""_blank"">$2</a>")

    set objRegExpHTTP1 = Nothing

    LinkToString = strOutput
End Function

Denne funktion tager alt mellem [a] og [/a] og replacer det med <a href="http://(teksten imellem)" target="_blank">(teksten imellem)</a>

eller hvis regexp bliver for besværligt, så kan du gøre det på en "manuell" måde:

Dim strTagName : strTagName = "tag"
Dim strText : strText = "Dette er en tekst med et <tag>Som jeg skal fjerne</tag> teksten mellem nogle tags"
Dim intStartIndex : intStartIndex = InStr( strText, "<" & strTagName & ">" )
Dim intStopIndex : intStopIndex = -1
if( intStartIndex >= 0 ) Then
    intStartIndex = intStartIndex + LEN( "<" & strTagName & ">" )
    intStopIndex = InStr( strText, "</" & strTagName & ">" )
    Dim strReplaceText : strReplaceText = MID( strText, intStartIndex, intStopIndex - intStartIndex )
    strText = Replace( strText, strReplaceText, "NOGET ANDET" )
    Response.Write( strText )
End if

/nute

Det virker, ellebaek, hvordan er det lige hvis den skal finde et tag hvor der er et " i skal man så skrev det som ''?

øhh det lavet den lige om så man ikke kunne se hvad jeg skrev, men " bliver laver af 2 små plings eller hvad navnet er :-)

Nute har svare på det med ", http://www.eksperten.dk/spm/471671

Og efter havde side nogle timer og prøvet at få regexp til virker, hvad den gøre men ikke hvis den skal virker over 400 liner. ved ikke hvorfor den siger ikke noget om fejl...

Prøvet jeg Nute's kode, som virker med det samme unden at lave fuck i det.

Laver du ikke lige svar så bliver det 50% / 50%

eh ... svar :o]

eh... ikke svar, men Kommentar :o)

nårh ... så prøver vi igen :o]