28,405
社区成员
发帖
与我相关
我的任务
分享
<%
dim str,reg,str2
set reg = New RegExp
reg.Global=true
reg.Pattern="\{\$.*?\}"
'reg.Pattern="^*\n*$"
reg.IgnoreCase = false
str=" ok{$xxx()},ha哈{$xxx(1,2,3,4,5)}nihao {$hah()}"
str=trim(str)
if reg.Execute(str).count = 0 then
response.write "no such string!"
else
str2=""
set colMatches = reg.Execute(str)
for each match in colMatches
if str2="" then
str2=mid(match.value,3,len(match.value)-3)
else str2=str2&","&mid(match.value,3,len(match.value)-3)
end if
next
end if
response.write(str2)
%>