Реализованная функция: заголовок + набор двух соседних символов, исключая некитайские и китайские знаки пунктуации в заголовке. Легенда гласит, что это лучший способ собирать статьи и обрабатывать ключевые слова. Ха-ха, я сделал один и попробовал. .
<язык сценария=vbs>
'Функция CreateKeyWords(KeyWords)
'Система генерации ключевых слов
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Длен(KeyWords_Temp)
Для i=1 до L-1
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
Следующий
CreateKeyWords=Ключевые слова и TempStr
Конечная функция
Функция reReplace(Str, restrS, restrD)
'Замена, написанная регулярным выражением
'Сделано www.yongfa365.com
Установить re = Новое регулярное выражение
re.IgnoreCase = Истина
re.Global = Истина
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
Конечная функция
MsgBox CreateKeyWords(привет Здравствуйте, вы знаете кто я? , Хаха, я Лю Юнфа () yongfa365 Знаете ли вы)
</скрипт>