为字符串中的网址加上链接的程序例子 (转)[@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," ")

  '***************************************************************

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

  End With

  Set RE=Nothing  ToLink=strContent  End Function

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