La fonction implémentée est : titre + l'ensemble de deux caractères adjacents excluant les caractères de ponctuation non chinois et chinois dans le titre. La légende raconte que c'est la meilleure façon de collecter des articles et de traiter des mots-clés Haha, j'en ai créé un et je l'ai essayé. .
<langage de script=vbs>
'Fonction CreateKeyWords(KeyWords)
'Système de génération de mots clés
Dim i, L, TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Len(KeyWords_Temp)
Pour i=1 à L-1
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
Suivant
CreateKeyWords = Mots clés et TempStr
Fonction de fin
Fonction remplacer(Str, restrS, restrD)
'Remplacement écrit par expression régulière
'Réalisé par www.yongfa365.com
Définir re = Nouvelle RegExp
re.IgnoreCase = Vrai
re.Global = Vrai
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
Fonction de fin
MsgBox CreateKeyWords(bonjour Bonjour, savez-vous qui je suis ? , Haha, je suis Liu Yongfa () yongfa365 Savez-vous)
</script>