用asp實現(xiàn)的截取指定格式字符串的代碼
更新時間：2007年11月18日 13:25:36 作者：
有段字符串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf
沒任何規(guī)律的...我要把里面的{#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
%>
沒任何規(guī)律的...我要把里面的{#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
%>
相關(guān)文章
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個方法
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個方法...2006-09-09
asp中實現(xiàn)隨機分組程序的代碼...2007-03-03
轉(zhuǎn)換中文為unicode 轉(zhuǎn)換unicode到正常文本
轉(zhuǎn)換中文為unicode 轉(zhuǎn)換unicode到正常文本...2006-10-10
高手推薦的比較有用的ASP函數(shù)集合...2007-03-03
SharePoint Server 是基于.NET4.7框架,功能基本是把office365的SPO功能搬家過來。下面通過本文給大家介紹SharePoint Server 2019新特性，需要的朋友可以參考下2017-12-12
經(jīng)常有些地方性的B2B或者B2C網(wǎng)站到處都被批量發(fā)布好多垃圾信息，把我的解決辦法分享給大家2011-12-12
編寫一個含二級目錄的源碼(Asp+JavaScript)...2007-04-04
ASP類型網(wǎng)站結(jié)合動網(wǎng)論壇會員的方法
ASP類型網(wǎng)站結(jié)合動網(wǎng)論壇會員的方法...2007-11-11
系統(tǒng)分配隨機密碼...2006-10-10
ReplaceSaveRemoteFile 替換、保存遠程圖片 的代碼
ReplaceSaveRemoteFile 替換、保存遠程圖片 的代碼...2007-09-09