FunctionReplaceText(fString,patrn,replStr)

SetregEx=NewRegExp'建立正则表达式。

regEx.Pattern=patrn'设置模式。

regEx.IgnoreCase=True'设置是否区分大小写。

regEx.Global=True'设置全局可用性。

ReplaceText=regEx.Replace(""&fString&"",""&replStr&"")'作替换。

SetregEx=nothing

EndFunction

FunctionMBrow(str)

str=ReplaceText(str,"data-scayt_word=""([^""]*)""","")'把蓝色部分的属性修改为自己所过滤的属性名称即可

str=ReplaceText(str,"data-scaytid=""([^""]*)""","")'红色部分则是过滤掉属性后面双引号中的质

MBrow=str

EndFunction

%>