假设有如下字符串:
[code lang="vb"]strSource="<a href='http://www.callcenter.com/viewNewsDetail.asp?ID=10873&classID=3' title='广发银行信用卡中心外呼团'><span class='text-main'>[09/11]</span>广发银行信用卡中心外呼团</a>"[/code]

现在,需要提取 href 后面的网址和链接的文字。
ASP的实现
[code lang="vb"]<%
Dim str, reg, objMatches
str = strSource
Set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "http://([^\s]+)"".+?span.+?\[(.+?)\].+?>(.+?)<"
Set objMatches = reg.Execute(str)
If objMatches.Count > 0 Then
Response.Write("网址:")
Response.Write(objMatches(0).SubMatches(0))
Response.Write("<br>")
Response.Write("标题:")
Response.Write(objMatches(0).SubMatches(2))
End If
%>[/code]

以上代码参考了网上信息,有兴趣者可以测试!

Original resource:Click here

分类: Asp

发表评论

电子邮件地址不会被公开。 必填项已用*标注