Die implementierte Funktion ist: Titel + der Satz zweier benachbarter Zeichen, ausgenommen nicht-chinesische und chinesische Satzzeichen im Titel. Der Legende nach ist dies der beste Weg, Artikel zu sammeln und Schlüsselwörter zu verarbeiten. Haha, ich habe eines gemacht und es ausprobiert .
<Skriptsprache=vbs>
'Funktion CreateKeyWords(KeyWords)
'System zur Schlüsselwortgenerierung
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Len(KeyWords_Temp)
Für i=1 bis L-1
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
Nächste
CreateKeyWords=Schlüsselwörter und TempStr
Funktion beenden
Funktion reReplace(Str, restrS, restrD)
'Ersatz geschrieben durch regulären Ausdruck
„Hergestellt von www.yongfa365.com
Setze re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
Funktion beenden
MsgBox CreateKeyWords(Hallo Hallo, wissen Sie, wer ich bin? , Haha, ich bin Liu Yongfa () yongfa365 Wissen Sie)
</script>