得到连接和图片的地址 正则

2016-02-19 13:58 3 1 收藏

今天给大家分享的是由图老师小编精心为您推荐的得到连接和图片的地址 正则,喜欢的朋友可以分享一下,也算是给小编一份支持,大家都不容易啊!

【 tulaoshi.com - Web开发 】

代码如下:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)
function AddSiteURL(ByVal Str)
If IsNull(Str) Then
AddSiteURL = ""
Exit Function
End If

Dim re
Set re=new RegExp
With re
.IgnoreCase =True
.Global=True

.Pattern="img (.*?)src=""(?!(http|https)://)(.*?)"""
str = .replace(str,"img $1src=""" & SiteURL & "$3""")

.Pattern="a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""
str = .replace(str,"a $1href=""" & SiteURL & "$3""")
End With
Set re=Nothing

AddSiteURL=Str
End Function

来源:http://www.tulaoshi.com/n/20160219/1605836.html

延伸阅读
标签: 浏览器
在IE里快速复制链接地址和复制图片地址   当我们在IE内右键单击链接,在弹出的IE右键菜单中选中复制快捷方式的选项,它就是复制链接地址的意思,然后你就可以粘贴地址了。 在图片上同样单击鼠标右键,让后让后选择复制,它就是复制图片地址的意思。 这个两个功能在IE中使用起来要比其他浏览器更方便,除了可以复制地...
自从上个世纪以来,我的网站更新的速度慢了很多,不知道大家现在希望我的站点主要提供一些什么样的内容呢? 前面我们讲过通过网络域名得到这台主机的IP地址Dec,现在我们通过对DNS Class 和 IPHostEntry Class 的 不断的深入的了解,我们可以得到使用Ip地址查找主机域名的功能,伴随者这个功能的不断的挖掘,我打算制作一个完全的 web版本的 追捕...
脚本如下: drop table table1; CREATE TABLE `andrew`.`table1` ( `name` VARCHAR(32) NOT NULL, `city` VARCHAR(32) NOT NULL ) ENGINE = MyISAM; insert into TABLE1(name, city) values ('Person A', 'BJ'); insert into TABLE1(name, city) values ('Person B', 'BJ'); insert into TABLE1(name, city) values ('Person C', 'SH'...
p> 在WIN9X下,假如安装了拨号网络,则在WINDOWS系统的系统目录System下将有两个拨号网络治理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中,有相关RAS函数的具体说明。 一、先解释一些要用到的数据常量和数据结构。 const ...
标签: Web开发
td class=cate width="45%" a class=M href="http://jmfengcai.cn.alibaba.com/athena/companydetail/jmfengcai.html" onMouseDown="return aliclick(this,'?alishop=companylistcompanyname');" target="_blank" class=M江门市蓬江区凤彩工艺厂/a br 代码如上.我请问如何用正则表达式,把"http://jmfengcai.cn.alibaba.com/athena/compan...

经验教程

193

收藏

60
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部