根据标题生成关键字代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】根据标题生成关键字

作者:Dezai.CN / 发布于2011/8/22/ 2055

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

试试其它关键字

　生成关键字　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)