Hjælp til regular expressions
Hej eksperter,Jeg skal bruge en regular expression der kan erstatte alle forekomster af html-tags, undtagen <p> og </p>, fra en tekst.
I øjeblikket har jeg:
Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"
strOutput = objRegExp.Replace(strHTML, "")
End Function
Men denne erstatter alle html-tags, og det skal den jo ikke.
Nogen der kan hjælpe mig?