โหมดการจับคู่แบบปกติ (นิพจน์ปกติ) จะทำการจับคู่ข้อมูลและ โค้ดการคัดลอกทดแทนดังนี้:
-
'/* ชื่อฟังก์ชัน: Zxj_ReplaceHtml ClearHtml
'/* ภาษาของฟังก์ชัน: ภาษา VBScript
'/* ฟังก์ชั่น: ฟังก์ชั่นล้างไฟล์รูปแบบ HTML
'/* ผ่านพารามิเตอร์: เนื้อหา (หมายเหตุ: เนื้อหาที่ต้องล้าง)
'/* ผู้เขียนฟังก์ชั่น: Zhang Xiaojun (เทพนิยายแห่งเมืองโบราณ) QQ:382511147
'/* คำอธิบายฟังก์ชัน: รูปแบบการจับคู่ปกติ (นิพจน์ปกติ) สำหรับการจับคู่และการแทนที่ข้อมูล
ฟังก์ชั่น ClearHtml (เนื้อหา)
Content=Zxj_ReplaceHtml(&#[^>]*;, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?marquee[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?object[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?param[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?embed[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?table[^>]*>, , เนื้อหา)
เนื้อหา=Zxj_ReplaceHtml( ,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?th[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?p[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?a[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?img[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?tbody[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?li[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?span[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?div[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?th[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?td[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?script[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , เนื้อหา)
Content=Zxj_ReplaceHtml(on(mouse|exit|error|click|key), , เนื้อหา)
Content=Zxj_ReplaceHtml(<//?xml[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?font[^>]*>, , เนื้อหา)
Content=Zxj_ReplaceHtml(</?b[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?u[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?i[^>]*>,,เนื้อหา)
Content=Zxj_ReplaceHtml(</?strong[^>]*>,,เนื้อหา)
ClearHtml=เนื้อหา
ฟังก์ชันสิ้นสุด
ฟังก์ชัน Zxj_ReplaceHtml (รูปแบบ, strng, เนื้อหา)
ถ้า IsNull (เนื้อหา) แล้ว
เนื้อหา=
สิ้นสุด ถ้า
ตั้งค่า regEx = New RegExp ' สร้างนิพจน์ทั่วไป
regEx.Pattern = patrn ' กำหนดรูปแบบ
regEx.IgnoreCase = true ' ตั้งค่าให้ละเว้นตัวพิมพ์เล็กและตัวพิมพ์ใหญ่
regEx.Global = True ' ตั้งค่าความพร้อมใช้งานทั่วโลก
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'ดำเนินการจับคู่ปกติ
ฟังก์ชันสิ้นสุด
-