您现在的位置是：网站首页> 编程资料编程资料
用asp实现的截取指定格式字符串的代码_应用技巧_
2023-05-25
304人已围观
简介 用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
%>
没任何规律的...我要把里面的{#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
%>
您可能感兴趣的文章:
相关内容
- asp取得数组中的最大值的方法_应用技巧_
- asp WAP获取手机终端信息的一段代码_应用技巧_
- asp获取客户端某一个图片的x,y坐标的代码_应用技巧_
- asp在IE浏览器中下载服务端上的各类文件的实现方法_应用技巧_
- 用ASP实现写IIS日志的代码_应用技巧_
- 用asp实现访问远程计算机上MDB access数据库文件的方法_应用技巧_
- 可以获得文件的文件名的asp函数_应用技巧_
- isnumeric检测是否为数字类型的asp代码_应用技巧_
- [asp]阿里西西的alexa采集效果代码_小偷/采集_
- 使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]_应用技巧_
