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

为字符串中的网址加上链接的程序例子 (转)[@more@]

  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,"$1@$2 ")

  '***************************************************************
  '链接自动设置
  '***************************************************************
  '======根据要求再添加协议名称=======
  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,"" + D(I) + "://$1 ")
  Next
  '***************************************************************

  End With
  Set RE=Nothing
  ToLink=strContent
  End Function

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-998832/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-998832/