A função implementada é: título + o conjunto de dois caracteres adjacentes, excluindo caracteres de pontuação não chineses e chineses no título. Diz a lenda que esta é a melhor forma de coletar artigos e processar palavras-chave. Haha, fiz um e experimentei. .
<linguagem de script=vbs>
'Função CreateKeyWords(Palavras-chave)
'Sistema de geração de palavras-chave
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L = Len(KeyWords_Temp)
Para i=1 para L-1
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
Próximo
CreateKeyWords=Palavras-chave e TempStr
Função final
Função reReplace(Str, restrS, restrD)
'Substituição escrita por expressão regular
'Feito por www.yongfa365.com
Definir re = Novo RegExp
re.IgnoreCase = Verdadeiro
re.Global = Verdadeiro
re.Pattern = restrS
substituir = re.Replace(Str, restrD)
Função final
MsgBox CreateKeyWords(olá Olá, você sabe quem eu sou?, Haha, sou Liu Yongfa () yongfa365 Você sabe)
</script>