asp之GetArray提取链接地址,以$Array$分隔的代码

‘==================================================
‘函数名:GetArray
‘作  用:提取链接地址,以$Array$分隔
‘参  数:ConStr ------提取地址的原字符
‘参  数:StartStr ------开始字符串
‘参  数:OverStr ------结束字符串
‘参  数:IncluL ------是否包含StartStr
‘参  数:IncluR ------是否包含OverStr
‘==================================================
Function GetArray(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
  On Error Resume Next
   If ConStr="$False$" or ConStr="" Or IsNull(ConStr)=True or StartStr="" Or OverStr="" or  IsNull(StartStr)=True Or IsNull(OverStr)=True Then
      GetArray="$False$"
      Exit Function
   End If
   Dim TempStr,TempStr2,objRegExp,Matches,Match,Templisturl
   TempStr=""
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = "("&StartStr&").+?("&OverStr&")"
   Set Matches =objRegExp.Execute(ConStr)
   For Each Match in Matches
      if Templisturl =Match.Value then
      Else
      TempStr=TempStr & "$Array$" & Match.Value
      Templisturl=Match.Value
      end if
   Next
   Set Matches=nothing 

   If TempStr="" Then
      GetArray="$False$"
      Exit Function
   End If
   TempStr=Right(TempStr,Len(TempStr)-7)
   If IncluL=False then
      objRegExp.Pattern =StartStr
      TempStr=objRegExp.Replace(TempStr,"")
   End if
   If IncluR=False then
      objRegExp.Pattern =OverStr
      TempStr=objRegExp.Replace(TempStr,"")
   End if
   Set objRegExp=nothing
   Set Matches=nothing 

   TempStr=Replace(TempStr,"""","")
   TempStr=Replace(TempStr,"‘","")
   TempStr=Replace(TempStr," ","")
   ‘TempStr=Replace(TempStr,"(","")
   ‘TempStr=Replace(TempStr,")","") 

   If TempStr="" then
      GetArray="$False$"
   Else
      GetArray=TempStr
   End if
End Function
时间: 2024-10-10 17:39:04

asp之GetArray提取链接地址,以$Array$分隔的代码的相关文章

asp.net正则表达式提取网页网址、标题、图片实例以及过滤所有HTML标签实例

无论你用什么语言,正则表达式的处理方法都是非常灵活.高效的,尤其是对某些字符串的抓取.过滤方面,更显其优势. 正则表达式的写法通常比较简单,几行短代码便能轻松完成看似很复杂的事情,更值得称赞的是,它的执行效率非常高,运行速度相当快.因此我在项目的开发中,通常把正则表达式作为处理问题的首选方法. 正则表达式的运用,在各种语言里都是相通的,也就是说,当你懂得在PHP中使用正则表达式,那么在任何一种语言中也能轻驾就熟. 这里给出两个asp.net实例. 1.asp.net正则表达式提取网址.标题.图片

C#中使用正则表达式提取超链接地址的集中方法

一般在做爬虫或者CMS的时候经常需要提取 href链接或者是src地址.此时可以使用正则表达式轻松完成. Regex reg = new Regex(@"(?is)<a[^>]*?href=(['""]?)(?<url>[^'""\s>]+)\1[^>]*>(?<text>(?:(?!</?a\b).)*)</a>"); MatchCollection mc = reg.Ma

u-boot中链接地址和加载地址的相关知识

以zc702开发板的u-boot为例 链接地址(运行地址):链接地址是在程序编译链接阶段就确定好的地址. u-boot的链接脚本由CONFIG_SYS_LDSCRIPT宏定义来指定,如在zynq_common.h当中有如下代码: #define CONFIG_SYS_LDSCRIPT "arch/arm/cpu/armv7/zynq/u-boot.lds" 在该链接脚本中指定了u-boot中各部分的链接顺序.同时zynq_common.h中的CONFIG_SYS_TEXT_BASE则指

小麦苗微信公众号文章链接地址

小麦苗的微信公众号文章链接地址: 发布日期 文章标题 2016-08-14 [等待事件]User I/O类 等待事件(2.1)--db file sequential read(数据文件顺序读) 2016-08-13 [等待事件]等待事件概述(1)--等待事件的源起和分类 2016-08-12 [故障处理]ORA-12545: Connect failed because target host 2016-08-11 [故障解决]ORA-06502: PL/SQL: numeric or val

对链接地址的理解

当我们写链接器脚本的时候,我们会设置代码段的起始链接地址为0x30008000(S3C2440).如果对链接地址理解错误的话,可能会出现像我这样的问题. Q:gboot的链接器脚本里写的其实链接地址是内存中的0x30008000,再用交叉工具反汇编得到的start.S前几行代码地址都变成了0x30008000+,不太对啊.ARM启动流程里面讲处理器将NAND中的代码复制了4K到垫脚石中,垫脚石的地址是0x0,也正是因为这样,我们设置的异常向量表才有意义,处理器才能准确的找到处理异常的标号.但是把

怎样查找MP3音乐链接地址 用于QQ空间背景

想盗用别人QQ空间的背景音乐的,另一篇教程点击进入 方法1.利用QQ邮箱的收藏功能自己上传歌曲获取链接地址,最近发现这个方法的链接过一段时间就失效了,原因是因为链接地址自动发生变化,如果链接失效了,请进您的QQ邮箱重新获取地址就可以了.QQ邮箱有50M收藏空间,你可以把音乐先下载下来,然后上传到QQ邮箱获得它的地址,有的人可能会说在一个网页上听到好听的歌,可是他不提供下载,自己在百度QQ上都下载不到,不要急,你可以参照下面的第4种方法进行下载 1.进入QQ邮箱,点击左下方的“文件中转站”选择“收

centos 6.4 下载链接地址-官方最新

centos 6.4 下载链接地址-官方最新 这篇文章最后更新于2013-03-19 , 22:33,文章内容过期,提供给大家现有的链接 这是x86的地址:http://isoredirect.centos.org/centos/6/isos/i386/ 这是64的地址:http://isoredirect.centos.org/centos/6/isos/x86_64/ centos 6.4 下载链接地址-官方最新,布布扣,bubuko.com

django 链接地址匹配流程

代码结构 下面为某个网页的链接地址 <body> {% if latest_article_list %} <ul> {% for article in latest_article_list %} <li> <a href="/blog/p/{{ article.id }}/"> {{ article.title }} </a> </li> {% endfor %} </ul> {% else %}

微软官方WINDOWS 10部署资料链接地址:Deploy Windows 10 with the Microsoft Deployment Toolkit

微软官方WINDOWS 10部署资料,写的非常详细,包括部署平台建立.镜像导入.样本机制作.应用程序安装.硬件驱动识别.WIN7升级等,是一个非常好的利用MDT 2013 UPDATE 1部署WINDOWS 10的资料,推荐阅读,难度中等. 链接地址:https://technet.microsoft.com/en-us/library/mt297535(v=vs.85).aspx Deploy Windows 10 with the Microsoft Deployment Toolkit 1