完美替换html代码

<[a-zA-Z][^>]*\son\w+=(\w+|'[^']*'|""[^""]*"")[^>]*>
<[^>]*>
Source= SRegExp.Replace(Source,"")
SRegExp.Pattern="<"
Source= SRegExp.Replace(Source,"&lt;")