ฟังก์ชั่นที่ใช้งานคือ: ชื่อเรื่อง + ชุดอักขระสองตัวที่อยู่ติดกัน ไม่รวมอักขระเครื่องหมายวรรคตอนที่ไม่ใช่ภาษาจีนและภาษาจีนในชื่อเรื่อง ตำนานเล่าว่านี่เป็นวิธีที่ดีที่สุดในการรวบรวมบทความและประมวลผลคำหลัก ฮ่าฮ่า ฉันสร้างมันขึ้นมาแล้วลองใช้ .
<ภาษาสคริปต์=vbs>
'ฟังก์ชั่น CreateKeyWords (คำสำคัญ)
'ระบบสร้างคำสำคัญ'
หรี่ i,L,TempStr
KeyWords_Temp=reReplace(คีย์เวิร์ด, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=เลน(KeyWords_Temp)
สำหรับ i=1 ถึง L-1
TempStr=TempStr & , & กลาง(KeyWords_Temp,i,2)
ต่อไป
CreateKeyWords=คำหลัก & TempStr
สิ้นสุดฟังก์ชัน
ฟังก์ชั่นแทนที่ (Str, restrS, restrD)
'การแทนที่เขียนด้วยนิพจน์ทั่วไป
จัดทำโดย www.yongfa365.com
ตั้งใหม่ = RegExp ใหม่
re.IgnoreCase = จริง
re.Global = จริง
re.Pattern = restrS
reReplace = re.Replace (Str, restrD)
สิ้นสุดฟังก์ชัน
MsgBox CreateKeyWords(สวัสดี สวัสดี คุณรู้ไหมว่าฉันเป็นใคร , 555 ฉันชื่อ หลิวหยงฟ้า () yongfa365 คุณรู้หรือไม่)
</สคริปต์>