ASP如何截取111abcd222QQQQQQ111abcedws222中111到222之间的内容

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:54:27
<%
Dim a,b,c
a="111abcd222QQQQQQ111abcedws222aaaasd"
b=strCut(a,"111","222",2) '之前做了截取规则,在A中截取111到222之间的内容.
问题是我只能截取第一个怎么全部都截取出来,并且统计个数
等你的答案 你不要局限于数字之间的截取,要是
<td><a href="http://www.dzxxg.com" target="_blank">fdsfdsf</a></td>
</tr>
<tr>
<td><a href="http://www.3v1t.com" target="_blank">wqeqw</a></td>
</tr>
<tr>
<td><a href="http://www.asdas.com" target="_blank">fdasdasdsd</a></td>

截取<td><a href="到" target="_blank">之间所有的连接呢

function strCut(a)
dim re,kk,bb,cc
cc=""
set re=New Regexp
re.ignoreCase=true
re.global=true
re.pattern="111(\w+?)222"
set kk= re.execute(a)
for each bb in kk
if cc="" then
cc=re.replace(bb,"$1")&":"
else
cc=cc&re.replace(bb,"$1")
end if
next
strCut=split(cc,":")
end function
response.write strCut("111abcd222QQQQQQ111abcedws222aaaasd")(0)
response.write chr(13)
response.write strCut("111abcd222QQQQQQ111abcedws222aaaasd")(1)
%>





<%
function strCut(a)
dim re,kk,bb,cc
cc=""
set re=New Regexp
re.ignoreCase=true
re.global=true
re.pattern="111(\w+?)222"
set kk= re.execute(a)
for each bb in kk
if cc="" then
cc=re.replace(bb,"$1"