需采集内容如下:
1.<div class=bbb>电影地区:中国;<br>演员:刘德华;<br>日期:2003<br>:网络大本营http://www.xrss.cn</div>
2.<div class=bbb>电影地区:台湾;<br>日期:2004</div>
3.<div class=bbb>演员:张学友;<br>日期:2003/4/2</div>
......
我想将<div class=bbb>到</div>中间的内容采集成一数组里。
如何写正则表达式?
这里注明一下:我是想将中间包括地区,演员和日期,这些内容为一个值。
<%
Dim str
str="1.<div class=bbb>电影地区:中国;<br>演员:刘德华;<br>日期:2003<br>:网络大本营http://www.xrss.cn</div> 2.<div class=bbb>电影地区:台湾;<br>日期:2004</div>3.<div class=bbb>演员:张学友;<br>日期:20</div> "
str=replace(str,"<br>","<br>")
Dim p(100)'事先要定义数组个数
Dim i
i=0
str_soojs=""
set regEx = new RegExp
regEx.Pattern= "<div class=bbb>[^/<]+</div>"
'regEx.Pattern= "http://image.halfclub.com/Images_Product/DefaultThumbnail/[^.]+/.jpg"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches=regEx.Execute(str)
For Each Matche In Matches
Matche=replace(Matche,"<br>","<br>")
p(i)=Matche'写入数组中
i=i+1
next
'测试。输出
for j=0 to ubound(p)
response.Write server.HTMLEncode(p(j))&"<p>"
next
%>