完美替换html代码

　　<[a-zA-Z][^>]*\son\w+=(\w+|'[^']*'|""[^""]*"")[^>]*>

　　<[^>]*>

　　Source= SRegExp.Replace(Source,"")

　　SRegExp.Pattern="<"

　　Source= SRegExp.Replace(Source,"<")