用asp實現的截取指定格式字串的代碼

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