實現的功能是：標題+標題裡除去非中文及中文標點外的字符的、相鄰兩個字符的集合傳說中這是採集文章處理keywords的最佳方式，呵呵，做了一個，用下試試
<script language=vbs>
'Function CreateKeyWords(KeyWords)
'關鍵字產生系統
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>