La función implementada es: título + el conjunto de dos caracteres adyacentes excluyendo los caracteres de puntuación chinos y no chinos en el título. Dice la leyenda que esta es la mejor manera de recopilar artículos y procesar palabras clave. Jaja, hice uno y lo probé. .
<lenguaje de escritura=vbs>
'Función CrearPalabrasClave(Palabras Clave)
'Sistema de generación de palabras clave
Atenuar i,L,TempStr
KeyWords_Temp=reReplace(Palabras clave, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Longitud(Palabras clave_Temp)
Para i=1 a L-1
TempStr=TempStr &, & Mid(Palabras clave_Temp,i,2)
Próximo
CreateKeyWords=Palabras clave y TempStr
Función final
Función reemplazar(Str, restrS, restrD)
'Reemplazo escrito por expresión regular
'Hecho por www.yongfa365.com
Establecer re = Nueva expresión regular
re.IgnoreCase = Verdadero
re.Global = Verdadero
re.Patrón = restrS
reReemplazar = re.Reemplazar (Str, restrD)
Función final
MsgBox CreateKeyWords(hola Hola, ¿sabes quién soy? Jaja, soy Liu Yongfa () yongfa365 ¿Lo sabes?)
</script>