الوظيفة المطبقة هي: العنوان + مجموعة من حرفين متجاورين باستثناء أحرف الترقيم غير الصينية والصينية في العنوان. تقول الأسطورة أن هذه هي أفضل طريقة لجمع المقالات ومعالجة الكلمات الرئيسية. هاها، لقد صنعت واحدة وتجربتها .
<لغة البرنامج النصي=vbs>
'وظيفة إنشاء الكلمات الرئيسية(الكلمات الرئيسية)
"نظام توليد الكلمات الرئيسية."
خافت ط، L، TempStr
KeyWords_Temp=reReplace(KeyWords, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L = لين (KeyWords_Temp)
لأني=1 إلى L-1
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
التالي
CreateKeyWords=الكلمات الرئيسية وTempStr
وظيفة النهاية
استبدال الوظيفة (Str، RestrS، RestrD)
'استبدال مكتوب بالتعبير العادي
'من صنع www.yongfa365.com
تعيين إعادة = جديد RegExp
re.IgnoreCase = صحيح
re.Global = صحيح
re.Pattern = RestrS
استبدال = إعادة.استبدال (Str، RestrD)
وظيفة النهاية
MsgBox CreateKeyWords(مرحبا مرحبًا، هل تعرف من أنا؟، هاها، أنا Liu Yongfa () yongfa365 هل تعرف)
</script>