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

%>