欢迎来到福编程网，本站提供各种互联网专业知识！

快捷导航: 正则表达式 AJAX相关黑客相关相关技巧 Mysql MsSql MsSql2005 MsSql2008 MariaDB Oracle Access SQLite PostgreSQL MongoDB DB2 Redis 数据库文摘数据库其它 LINUX RedHat/Centos Ubuntu/Debian Fedora Solaris 红旗Linux Unix/BSD 苹果MAC 麒麟系统注册表 BIOS 系统安装系统进程 Fireworks教程

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

发布时间：2006-08-23　作者：　来源：转载

标签：雪佛兰通用奢华劳斯莱斯旗舰版 64位收藏夹解调器

复制代码代码如下:functionAddSiteURL(ByValStr)IfIsNull(Str)ThenAddSiteURL=""ExitFunctionEndIfDimreSetre=newRegExpWithre.IgnoreCase=True.Global=True.Pattern="

复制代码代码如下:
functionAddSiteURL(ByValStr)
IfIsNull(Str)Then
AddSiteURL=""
ExitFunction
EndIf

Dimre
Setre=newRegExp
Withre
.IgnoreCase=True
.Global=True

.Pattern="str=.replace(str,"

.Pattern="str=.replace(str,"EndWith
Setre=Nothing

AddSiteURL=Str
EndFunction

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