我想实现以下功能:
将"{{{}}}之外的文本替换掉",最后结果为:{{{中国}}}{{{上海}}}{{{北京}}}
请问正则我该怎么写????
<%
Dim strTemp
strTemp = "<P>编者注:{{{中国}}}本文为{{{上海}}}方面{{{北京}}}</P>"
strTemp = ReplaceATag(strTemp)
response.write(strTemp)
Function ReplaceATag(ConStr)
Dim tmpReStr,regEx
tmpReStr = Cstr(ConStr)
Set regEx = New RegExp
regEx.Pattern = "[^{{{}}}]"
regEx.IgnoreCase = True
regEx.Global = True
tmpReStr = regEx.Replace(tmpReStr,"")
ReplaceATag = tmpReStr
Set regEx = Nothing
End Function
%>
将"{{{}}}之外的文本替换掉",最后结果为:{{{中国}}}{{{上海}}}{{{北京}}}
请问正则我该怎么写????
<%
Dim strTemp
strTemp = "<P>编者注:{{{中国}}}本文为{{{上海}}}方面{{{北京}}}</P>"
strTemp = ReplaceATag(strTemp)
response.write(strTemp)
Function ReplaceATag(ConStr)
Dim tmpReStr,regEx
tmpReStr = Cstr(ConStr)
Set regEx = New RegExp
regEx.Pattern = "[^{{{}}}]"
regEx.IgnoreCase = True
regEx.Global = True
tmpReStr = regEx.Replace(tmpReStr,"")
ReplaceATag = tmpReStr
Set regEx = Nothing
End Function
%>