有段字符串: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
%>