<ภาษาสคริปต์="vbScript">
ถนนสลัว
str="จะแยกตัวอักษรจีนทั้งหมดออกจากหน้า Html ได้อย่างไร ไม่สามารถมีรหัส Html อื่นได้"
การแจ้งเตือน ฟังก์ชั่น Filter Chinese (str)
Filter Chinese (strInput)
ผลลัพธ์สลัว: ผลลัพธ์ = ""
dimtempStr
สำหรับ i=1 ถึง len(strInput)
tempStr=กลาง(strInput,i,1)
ถ้า left(escape(tempStr),2)="%u" แล้ว
result=result&tempStr
สิ้นสุดถ้า
ต่อไป
Filter Chinese=ผลลัพธ์
สิ้นสุดฟังก์ชัน
</SCRIPT>
ถ้า asc(tempStr)>255 ให้
ใช้วิธีการนิพจน์ทั่วไป
<ภาษาสคริปต์="vbScript">
ถนนสลัว
str="จะแยกตัวอักษรจีนทั้งหมดออกจากหน้า Html ได้อย่างไร ไม่สามารถมีรหัส Html อื่นได้"
แจ้งเตือน RegExpTest("[u4e00-u9fa5]",str)
ฟังก์ชัน RegExpTest(รูปแบบ, strng)
Dim regEx, Match, Matches 'สร้างตัวแปร'
ตั้งค่า regEx = New RegExp ' สร้างนิพจน์ทั่วไป
regEx.Pattern = patrn ' กำหนดรูปแบบ
regEx.IgnoreCase = True ' ตั้งค่าว่าจะคำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่หรือไม่
regEx.Global = True ' ตั้งค่าการแทนที่โกลบอล
Set Matches = regEx.Execute(strng) ' ดำเนินการค้นหา
สำหรับการแข่งขันแต่ละรายการในแมตช์ ' สำรวจคอลเลกชันแมตช์
RetStr = RetStr & Match.Value
ต่อไป
RegExpTest = RetStr
สิ้นสุดฟังก์ชัน
</SCRIPT>