有段字符串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf  
沒任何規律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出來... 

1、Split辦法：  

復制代碼代碼如下:

<%   
Dim I, sCode, aCode, sNewCode   
sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"   
aCode = Split(sCode, "{#")   
sNewCode = ""   
For I = 0 To UBound(aCode)   
If InStr(aCode(I), "#}") > 0 Then sNewCode = sNewCode & "{#" & Split(aCode(I), "#}")(0) & "#}"   
Next   
Response.Write sNewCode   
%> 

2、正則辦法： 

復制代碼代碼如下:

<%   
Dim sCode, sNewCode, oTempReg, Match, Matches   
sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"   
Set TempReg = New RegExp   
With TempReg   
     .IgnoreCase = True   
     .Global = True   
     .Pattern = "\{\#.+?\#\}"   
     Set Matches = .Execute(sCode)   
     For Each Match In Matches   
          sNewCode = sNewCode & Match.Value   
     Next   
End With   
Set TempReg = Nothing   
Response.Write sNewCode   
%>