Untitled

alias nohtml {
  var %x
  var %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  var %x = $replace(%x,&lt;,<,&gt;,>,&amp;,&,&quot;,",&nbsp;,,&aelig;,æ,&ccedil;,ç,&copy;,©,&reg;,®)
  var %t = $regex(hfreg,%x,/&#(..|...);/g)
  while ( %t > 0 ) {
    var %x = $replace(%x,$+(&,$chr(35),$regml(hfreg,%t),;),$iif($chr($regml(hfreg,%t)),$chr($regml(hfreg,%t)),?))
    dec %t
  }
  return %x
}