源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

正则表达式链接替换函数的技巧

  • 时间:2020-01-27 18:45 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:正则表达式链接替换函数的技巧
正则表达式链接替换函数的技巧如下所示: [b]1)[/b] 字符串       前面的字符<a href="[url=http://www.aaa.cn/000011.html]http://www.aaa.cn/000011.html[/url]">任意长度字符</a>后面的字符 替换成        前面的字符<a href="[url=http://www.bbb.cn/folder/show.asp?id=000011]http://www.bbb.cn/folder/show.asp?id=000011[/url]">任意长度字符</a>后面的字符 [b]2)[/b] 字符串       前面的字符<a href="[url=http://www.aaa.cn/070006,ccc.html]http://www.aaa.cn/070006,ccc.html[/url]">任意长度字符</a>后面的字符 替换成        前面的字符<a href="[url=http://www.bbb.cn/folder/aa.asp?id=000011]http://www.bbb.cn/folder/aa.asp?id=000011[/url]">任意长度字符</a>后面的字符 [b]3)    不属于以上情况的,直接删除链接[/b] 字符串       前面的字符<a href="[url=http://www.aaa.cn/dddd.html]http://www.aaa.cn/dddd.html[/url]">任意长度字符</a>后面的字符  替换成        前面的字符任意长度字符后面的字符 函数的样式如下,帮忙写正则表达式,谢谢。
Function ScriptHtml(Byval ConStr,FType)
  Dim Re
  Set Re=new RegExp
  Re.IgnoreCase =true
  Re.Global=True
  Select Case FType
  Case 1
    Re.Pattern="正则表达式"
    ConStr=Re.Replace(ConStr,"")
  Case 2
    Re.Pattern="正则表达式"
    ConStr=Re.Replace(ConStr,"")
  Case other
  End Select
  ScriptHtml=ConStr
  Set Re=Nothing
End Function

以上内容是关于正则表达式链接替换函数的技巧,希望大家喜欢。
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部