RegEx med NOT

Anyone?

Fandt selv en løsning... Har nogen et bedre forslag?

function getClearTextAndImages(textObj)
textObj = replace(textObj, "<img", "|Img")
dim regEx
  set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.Global = True
  regEx.Pattern = "<[^>]*?>"
  textObj = regEx.Replace(textObj, "")
  getClearTextAndImages = replace(textObj, "|Img","<img")
end function

"|<img (.*?)>|" for html4, eller "|<img (.*?)/>|" for xhtml.

Din løsning er lidt overdreven :~)

Ja, du skal have fat i lookaheads: http://www.regular-expressions.info/lookaround.html

  regEx.Pattern = "<(?!img)[^>]*>"

Er utestet men skulle være ok.

Dvs:

function getClearTextAndImages(textObj)
dim regEx
  set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.Global = True
  regEx.Pattern = "<(?!img)[^>]*>"
  textObj = regEx.Replace(textObj, "")
end function

hvorfor ikke bare hente billederne, og fjerne det hele, istedet for at hente resten og fjerne det, og efterlade billederne ?