收录日期:2020/07/05 18:47:20 时间:2016/06/13 01:33:25 标签:ASP
哪位大哥正则学的好啊?
帮我看看这个。有两个字段:
1:<a href=aaa.htm>link1</a>
2:<a href=bbb.htm>link2</a>
我想用正则把这2个替换成
1:<a href=link1.htm>link1</a>
2:<a href=link2.htm>link2</a>
也就是连接名当连接地址。请问怎么做啊?
没看懂你意思 打个比方说?
难道说的还不清楚啊
就是读出一个很长的字段,里面包含了很多的连接。比如
<a href=aaa.htm>link1</a>
我现在想把这个aaa.htm连接的地址换成link1.htm

例1:
<a href=vvv.htm>x1</a>
换成
<a href=x1.htm>x1</a>
例2:
<a href=www.htm>x2</a>
换成
<a href=x2.htm>x2</a>
例3:
<a href=cccc.htm>x3</a>
换成
<a href=x3.htm>x3</a>
UP,NOBODY?

  dim str
  str = "1: <a href=aaa.htm>link1</a>  2: <a href=bbb.htm >link2</a>"
  Dim regEx, Match, Matches         ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = "<a (href\s*=\s*[""']{0,1}([^""'>]+)[""']{0,1})[^>]*>([^<]+)<\/a>"
  regEx.IgnoreCase = True         ' 设置是否区分大小写。
  regEx.Global = True            ' 设置全局替换。
  Set Matches = regEx.Execute(str)      ' 执行搜索。
  For Each Match in Matches         ' 遍历 Matches 集合。
str = Replace(str,Match.Value,Replace(Match.Value,Match.SubMatches(1),Match.SubMatches(2)))
  Next
  response.Write(str)

<%
  dim str
  str = "1: <a href=aaa.htm>link1</a>  2: <a href=bbb.htm >link2</a>"
  Dim regEx, Match, Matches         ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = "<a (href\s*=\s*[""']{0,1}([^""'>\s]+)[""']{0,1})[^>]*>([^<]+)<\/a>"
  regEx.IgnoreCase = True         ' 设置是否区分大小写。
  regEx.Global = True            ' 设置全局替换。
  Set Matches = regEx.Execute(str)      ' 执行搜索。
  For Each Match in Matches         ' 遍历 Matches 集合。
str = Replace(str,Match.Value,Replace(Match.Value,Match.SubMatches(1),Match.SubMatches(2)))
  Next
  response.Write(str)
%>
虽然结果不是我想要的,但是我提问的时候没有说清楚。
其实我是抓取了外部的网页,想把里面的连接替换一下。
不管怎么样谢谢你。

》》》关于进程的难题——如何象病毒一样植入系统进程,如何获取虚拟DOS中运行的EXE文件名??? 进来看看吧,在线等! 火箭被淘汰了,郁闷,散分 请问Qwerks里的这五项是什么意思 求一段简单的JAVASCRIPT的判断代码! 调查:在北京程序员的待遇有多少?(密薪,咱在这说!!) dev c++怎么用啊,以前用的是vc6.0 如何取得弹出窗口的返回值? 如何类似jbuilder中拖放组件,来动态产生对象? 各位哥们!你们能说说程序在运行过程中“out of memory!\"一般是原因导致吗?! 有人学数字电路的设计吗?? 昨天拿到票了,明天下午三点回家,散分(一) Apache 跟 Tomcat 之间的关系到底是怎样的? 昨天拿到票了,明天下午三点回家,散分(二) 问一个关于硬盘的问题!?!我的硬盘在机器上认不出来了,如果去修的话,会不会把我的数据弄掉呀??? 新手初学,有几个问题请教,很简单! 请问如何实现在csdn bbs的那个通知连接的功能? 4月30号 北京-襄樊 k267 硬坐一张急速转让 ,up有分 一个关于Eclipse3 不能打汉字的问题!! 急请高手指点我的正则表达式哪里错了? 谁能提供一些OA的资料 如何让弹出的窗口关闭按钮不可用? 找人 我的印象中Delphi 7 的界面是xp 界面,可是我安装后仍然是像Delphi 6的界面,是不是必须装到XP上才是XP样子,或者在Win 2000上还有其它的 一个非常紧急的问题!!(菜鸟问,急待回答!!) 怎样可以用特殊工具把vb.net写的应用程序编译成不用.NET就可以运行的 如何获取dataset里的某行某列的值?注意,不是datagrid里的,因为没有用到datagrid。 谁有能多次嵌套的UBB代码,贴出来看看吧,好想要啊! 雍亲王zyq_456进来! 请问如何在本地机器上安装POP3协议?