28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim RegEx,Matches,Match,strng
strng="截止当前呼市各支公司入账保费、应收率分别为:清水河支公司 <m45(rzbf_清水河支公司/10000,0)>万、 <m100('rzysl_清水河支公司',0)>;托克托支公司 <m45(rzbf_托克托支公司/10000,0)>万"
Set RegEx = New RegExp
RegEx.Pattern = "\('?(.*?)(?:'?,\d+|\/[\d,]+)\)"
RegEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
response.write match.submatches(0)&"<br>"
next
set Matches=nothing:set RegEx=nothing
%>