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



相关阅读:
详细讲解JS节点知识
SQLserver 实现分组统计查询(按月、小时分组)
在web上管理MySQL:phpMyAdmin使用讲解
“疯狂的企鹅” 看Linux安全的未来
PHP与javascript对多项选择的处理
如何在Jsp中使用JDBC来联结MySql
CSS制作具亲和力的表格
自定义容器和字体大小
纯js实现的论坛常用的运行代码的效果
使用SQLServer2000报表工具
VBS教程:函数-CLng 函数
Windows 7 RTM、Vista、XP 性能测试
Win 2003下编辑组策略对象上的安全设置
css 自动换行 强制换行属性 (firefox+ie)
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4