<BAHASA SKRIP = "vbScript">
redup str
str="Bagaimana cara mengekstrak semua karakter Cina dari halaman Html? Tidak boleh ada kode Html lainnya."
peringatan FilterChinese(str)
fungsi FilterChinese(strInput)
hasil redup:hasil = ""
dimtempStr
untuk i=1 hingga len(strInput)
tempStr=tengah(strInput,i,1)
jika kiri(escape(tempStr),2)="%u" maka
hasil=hasil&tempStr
berakhir jika
Berikutnya
FilterCina=hasil
fungsi akhir
</SCRIPT>
jika asc(tempStr)>255 maka
gunakan metode ekspresi reguler
<BAHASA SKRIP = "vbScript">
redup str
str="Bagaimana cara mengekstrak semua karakter Cina dari halaman Html? Tidak boleh ada kode Html lainnya."
peringatan RegExpTest("[u4e00-u9fa5]",str)
Fungsi RegExpTest(pola, strng)
Redupkan regEx, Cocokkan, Cocokkan 'Buat variabel.
Setel regEx = RegExp Baru ' Buat ekspresi reguler.
regEx.Pattern = pola ' Tetapkan pola.
regEx.IgnoreCase = True ' Setel apakah peka huruf besar-kecil.
regEx.Global = True ' Tetapkan penggantian global.
Setel Kecocokan = regEx.Execute(strng) ' Jalankan pencarian.
Untuk Setiap Pertandingan di Koleksi Traverse the Matches.
RetStr = RetStr & Cocokkan.Nilai
Berikutnya
RegExpTest = RetStr
Fungsi Akhir
</SCRIPT>