代码如下:
function AddSiteURL(/tech-program-other/ByVal Str/index.html)
If IsNull(Str) Then
AddSiteURL = ""
Exit Function
End If
Dim re
Set re=new RegExp
With re
.IgnoreCase =True
.Global=True
.Pattern="
当前位置: 编程技术>其它
得到连接和图片的地址 正则
来源: 互联网 发布时间：2014-10-12
本文导语: 代码如下:function AddSiteURL(/tech-program-other/ByVal Str/index.html) If IsNull(Str) Then AddSiteURL = "" Exit Function End If Dim re Set re=new RegExp With re .IgnoreCase =True .Global=True .Pattern="
function AddSiteURL(/tech-program-other/ByVal Str/index.html)
If IsNull(Str) Then
AddSiteURL = ""
Exit Function
End If
Dim re
Set re=new RegExp
With re
.IgnoreCase =True
.Global=True
.Pattern="
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
站内导航:
特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除！