关闭

求一正则替换

24人阅读 评论(0) 收藏 举报
我想实现以下功能:
将"{{{}}}之外的文本替换掉",最后结果为:{{{中国}}}{{{上海}}}{{{北京}}}
请问正则我该怎么写????
<%
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
%>
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1047次
    • 积分:135
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档