根据标题生成关键字

<script language="vbs"> '实现的功能是：标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合 '传说中这是采集文章处理keywords的最佳方式，呵呵，做了一个，用下试试 Function CreateKeyWords(KeyWords) '关键字生成系统 'Made by www.yongfa365.com Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|“|”|［|］|—|—|（|）|…", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2) Next CreateKeyWords=KeyWords & TempStr End Function Function reReplace(Str, restrS, restrD) '正则表达式写的替换 'Made by www.yongfa365.com Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = restrS reReplace = re.Replace(Str, restrD) End Function MsgBox CreateKeyWords("hello 你好啊， 你知道 我是谁不？ ，呵呵，我是柳永法() yongfa365 知道不") </script>
可修改代码后再运行