为字符串中的网址加上链接的程序例子

原创 2003年01月23日 09:20:00

  Function ToLink(Str)
    Dim RE   '正则表达式对象
    Dim strContent
    If IsNull(Str) Then Str=""
    Set RE = New RegExp '创建正则表达式对象
    With RE
      .Global = True    '搜索应用于整个字符串
      .IgnoreCase = True  '搜索不区分大小写的
      strContent=Str

      '***************************************************************
      '邮件地址链接自动设置
      '***************************************************************
        .Pattern="([/w]*)@([/w/.]*)"
        strContent=.Replace(strContent,"<A Href='mailto:$1@$2'>$1@$2</A> ")

      '***************************************************************
      '链接自动设置
      '***************************************************************
        '======根据要求再添加协议名称=======
        Dim D(3),I
        D(0)="http"
        D(1)="ftp"
        D(2)="news"
        D(3)="mms"
        '===================================
       
       
        For I=0 To UBound(D)
          .Pattern=D(I) + ":////([/w/.]*)"
          strContent=.Replace(strContent,"<A Href='" + D(I) + "://$1' target=_blank>" + D(I) + "://$1</A> ")
        Next
      '***************************************************************

    End With
    Set RE=Nothing
    ToLink=strContent
  End Function

为字符串中的网址加上链接的程序例子

Function ToLink(Str)  Dim RE '正则表达式对象  Dim strContent  If IsNull(Str) Then Str=""  Set RE = New ...
  • u014739785
  • u014739785
  • 2014年04月25日 09:58
  • 190

一个为字符串中的网址加上链接的程序例子

 我们有时候可能会有这样的要求,如果我们输入了一段带有链接的文字,如:“ 今天,我访问了中央电视台的网站:http://www.cctv.com ”那么,我们希望能自动为我们的“http://www....
  • ayu11789
  • ayu11789
  • 2002年06月24日 09:33
  • 577

ASP为字符串中的网址自动加上链接

字段内网址加上联接。Function ToLink(Str)    Dim RE 正则表达式对象     Dim strContent    If IsNull(Str) Then Str = "" ...
  • yongfa365
  • yongfa365
  • 2007年04月19日 10:52
  • 394

正则表达式,从一个字符串中提取链接地址

写出正则表达式,从一个字符串中提取链接地址。比如下面字符串中 “IT面试题博客中包含很多 软件测试面试题 ” 则需要提取的地址为 “http://www.mianwww.com/html/...
  • juroney1
  • juroney1
  • 2014年05月27日 00:20
  • 2119

Java 判断字符串是否是网址

使用正则表达式可以很简单的判断一个字符串是否是网址判断字符串是否是url /** * 判断字符串是否为URL * @param urls 用户头像key * @r...
  • Bronna
  • Bronna
  • 2017年08月24日 13:51
  • 628

vc++编程之在程序中加入网址链接

在vc++对话框编程中,我们处于某种需要(介绍自己的软件或者自己的博客)可以在对话框上增加一个网址链接,用户只要一点击,就进入了相应的网页,我在此演示下如何完成。     1 打开编译器,我...
  • u014028070
  • u014028070
  • 2014年12月12日 12:41
  • 1454

Android 判断字符串是否是URI

Android 开发过程中遇到一个检测用户输入是否是合法Uri的需求,这里记录一下方法主要是用到了Android里面的Patterns包和URLUtil包,比较简单if (Patterns.WEB_U...
  • myth13141314
  • myth13141314
  • 2017年04月01日 09:11
  • 647

python爬虫:网址无法请求和某一特定链接求取方法

首先说一下,我开这个博客,写博客主要是为了记录自己平时学习研究过程中的重点问题,可能格式,表达什么的都会很乱。当然,如果我的问题对大家有所帮助那就更好了,因为我也是一个新人。 很多人在用python...
  • Nlxfzx
  • Nlxfzx
  • 2017年08月08日 08:45
  • 276

VB中用正则表达式判断一个字符串是不是一个URL地址

VB6引用:Microsoft VBScript Regular Expressions 5.5Public Function IsUrl(ByVal strTmp As String) As Boo...
  • tanaya
  • tanaya
  • 2007年04月06日 23:48
  • 3164

js利用正则表达式筛选并获取字符串中的URL链接(只是筛选完整URL,单独域名不筛选)

欢迎来到Altaba的博客  2017年11月15日 有时候我们某些营销活动需要捕获用户输入的短信内容,内容中如果用户输入的某些链接,我们后台捕获通过运营商发送的时候是需要用新的配置好的链接(假设配置...
  • Altaba
  • Altaba
  • 2017年11月15日 14:21
  • 279
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:为字符串中的网址加上链接的程序例子
举报原因:
原因补充:

(最多只允许输入30个字)