用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   %>