一字符串中只有一对quotquot的情况分1 可以考虑用InStr函数将quotquot和quotquot定位，再用MID函数截取，最后合并程序如下test1asp lt s=quot测试AABBCCDDquotlen_s=lenss_start=instrs，quotquots_end=。

lt Function RemoveHTMLstrHTMLDim objRegExp， Match， Matches Set objRegExp = New Regexp objRegExpIgnoreCase = True objRegExpGlobal = True #39取闭合的lt objRegExpPattern = quotlt+？quot#39进行匹配 Set。