Fungsi yang diterapkan adalah: judul + kumpulan dua karakter yang berdekatan tidak termasuk karakter tanda baca non-Cina dan Cina pada judul. Legenda mengatakan bahwa ini adalah cara terbaik untuk mengumpulkan artikel dan memproses kata kunci Haha, saya membuatnya dan mencobanya .
<bahasa skrip=vbs>
'Fungsi BuatKata Kunci(Kata Kunci)
'Sistem pembuatan kata kunci
Redupkan i,L,TempStr
Kata Kunci_Temp=replace(Kata Kunci, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|…, )
L=Len(Kata Kunci_Temp)
Untuk i=1 Sampai L-1
TempStr=TempStr & , & Tengah(Kata Kunci_Temp,i,2)
Berikutnya
CreateKeyWords=Kata Kunci & TempStr
Fungsi Akhir
Fungsi ganti(Str, restrS, restrD)
'Penggantian ditulis dengan ekspresi reguler
'Dibuat oleh www.yongfa365.com
Setel re = RegExp Baru
re.IgnoreCase = Benar
re.Global = Benar
re.Pattern = restrS
ganti = ganti.Ganti(Str, restrD)
Fungsi Akhir
MsgBox CreateKeyWords(halo Halo, tahukah Anda siapa saya? , Haha, saya Liu Yongfa () yongfa365 Tahukah Anda)
</skrip>