有段字符串：asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf
没任何规律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出来...
1、Split办法：
复制代码代码如下:
<%
DimI,sCode,aCode,sNewCode
sCode="asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"
aCode=Split(sCode,"{#")
sNewCode=""
ForI=0ToUBound(aCode)
IfInStr(aCode(I),"#}")>0ThensNewCode=sNewCode&"{#"&Split(aCode(I),"#}")(0)&"#}"
Next
Response.WritesNewCode
%>
2、正则办法：
复制代码代码如下:
<%
DimsCode,sNewCode,oTempReg,Match,Matches
sCode="asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"
SetTempReg=NewRegExp
WithTempReg
.IgnoreCase=True
.Global=True
.Pattern="/{/#.+?/#/}"
SetMatches=.Execute(sCode)
ForEachMatchInMatches
sNewCode=sNewCode&Match.Value
Next
EndWith
SetTempReg=Nothing
Response.WritesNewCode
%>