実装された関数は次のとおりです: タイトル + タイトル内の中国語以外の句読点文字を除く 2 つの隣接する文字のセット 伝説によれば、これが記事を収集してキーワードを処理する最良の方法です。 。
<スクリプト言語=vbs>
'関数 CreateKeyWords(キーワード)
「キーワード生成システム」
Dim i、L、TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Len(キーワード_温度)
i=1 の場合 L-1 へ
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
次
CreateKeyWords=KeyWords & TempStr
終了機能
関数 reReplace(Str、restrS、restrD)
'正規表現で書かれた置換
'www.yongfa365.com 製
re = 新しい正規表現を設定します
re.IgnoreCase = True
re.Global = True
re.パターン = restrS
reReplace = re.Replace(Str,restrD)
終了機能
MsgBox CreateKeyWords(こんにちは、こんにちは、私が誰であるか知っていますか?、ハハ、私は劉永発です () yongfa365 知っていますか)
</script>