柳永法:关键字加链接函数ADDURL

'关键字加链接，要处理的字符，关键字，要添加的链接地址
'名称：关键字加链接函数ADDURL
'作者：柳永法
'网址：http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html
'日期：2007-7-7
'调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址")
'关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开

Function ADDURL(Str, Keywords, URL)
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "(" & Keywords & ")"
    ADDURL = regEx.Replace(Str, "<a href="""&URL&"""  id=""cntKeywords"">$1</a>")
    Set regEx = Nothing
End Function

Keywords = "柳永法|柳|永|法|永法|yongfa365"
Str = "大家好,我是柳永法,柳是柳宗元的柳,永是永远的永,法是法律的法,永法是永远有办法的意思,我的blog名称是:柳永法(yongfa365)'blog,现在这个是测试关键字加链接的例子."
MsgBox(ADDURL(Str, Keywords, "http://www.yongfa365.com/"))

<script language=vbs> '关键字加链接，要处理的字符，关键字，要添加的链接地址 '名称：关键字加链接函数ADDURL '作者：柳永法 '网址：http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html '日期：2007-7-7 '调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址") '关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开 Function ADDURL(Str,Keywords,URL) Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(" & Keywords & ")" ADDURL= regEx.Replace(Str, "<a href="""&URL&""" id=""cntKeywords"">$1</a>") Set regEx = Nothing End Function Keywords="柳永法|柳|永|法|永法|yongfa365" str="大家好,我是柳永法,柳是柳宗元的柳,永是永远的永,法是法律的法,永法是永远有办法的意思,我的blog名称是:柳永法(yongfa365)'blog,现在这个是测试关键字加链接的例子." msgbox(ADDURL(str,Keywords,"http://www.yongfa365.com/")) </script>
可修改代码后再运行