Replace funktion

Hvis du har en streng s="qqqq <span qqqq"
så vil s=replace(s,"<span","lan=EN-GB")
sikre, at s nu er strengen "qqq lan=EN-GB qqqq"
Kan det ikke hjælpe dig?

Desværre... løsningen ligger her

<%
    strHTML = "Hej Med dig karl aage<SPAN lang=EN-GB><FONT face=verdana,arial,helvetica,sans-serif>hej dy isv"
   
    Public Function stripHTML(strHTML)
   
        arrCleanTags = array("")
        arrRemoveTags = array("span")
   
        Dim objRegExp, strOutput
        Set objRegExp = New Regexp

        objRegExp.IgnoreCase = True
        objRegExp.Global = True
        strOutput = strHTML
   
            for each tag in arrRemoveTags
                objRegExp.Pattern = "<"&tag&"(.|\n)+?>"
                strOutput = objRegExp.Replace(strOutput, "")
                objRegExp.Pattern = "</"&tag&">"
                strOutput = objRegExp.Replace(strOutput, "")
            next

            for each tag in arrCleanTags
                objRegExp.Pattern = "<"&tag&" (.|\n)+?>"
                strOutput = objRegExp.Replace(strOutput, "<"&tag&">")
                objRegExp.Pattern = "</"&tag&">"
                strOutput = objRegExp.Replace(strOutput, "</"&tag&">")
            next
   
          stripHTML = strOutput
        Set objRegExp = Nothing

    End Function

response.write stripHTML(strHTML)
%>

ok

http://www.eksperten.dk/spm/379679