这几个正则能简化成一个么？

[bnabinge]

这几个正则能简化成一个么？
'binge XML标识代码过滤 2010-01-05 临时屏蔽
Set regexXML= New RegExp
regexXML.Pattern= "(<\?xml.*?\/>)"
regexXML.IgnoreCase = True
regexXML.Global = True
ClsTempLoseStr= regexXML.Replace(ClsTempLoseStr, "")

'binge O:P标识代码过滤 2010-01-05 临时屏蔽
Set regexOP= New RegExp
regexOP.Pattern= "(<\o:p.*?\/O:P>)"
regexOP.IgnoreCase = True
regexOP.Global = True
ClsTempLoseStr= regexOP.Replace(ClsTempLoseStr, "")

set regexIMGs= New RegExp
regexIMGs.Pattern="<img [^>]*>"
regexIMGs.IgnoreCase = True
regexIMGs.Global = True
ClsTempLoseStr = regexIMGs.Replace(ClsTempLoseStr,"")

简化出来的结果是怎么样的？

[yan11cn]

可以 这样就行了 反正都是替换成空
regexIMGs.Pattern="( <\?xml.*?\/>)|( <\o:p.*?\/O:P>)|(<img [^>]*>)"

[yan11cn]

还是和我刚才的代码一样
用循环去匹配替换就好~

[文盲老顾]

Function RegReplace(vStr,vReg,vCode)
	Dim Re,sStr
	sStr = vStr
	Set Re = New RegExp
	Re.Pattern = vReg
	Re.IgnoreCase = True
	Re.Global = True
	If Re.Test(sStr) Then
		sStr = Re.Replace(sStr,vCode)
	End If
	RegReplace = sStr
End Function

a = "................"

a = RegReplace(a,"<\?xml.*?\/>","")
a = RegReplace(a,"<\o:p.*?\/O:P>","")
a = RegReplace(a,"<img [^>]*?>","")