หลายๆคนถามฉันถึงโค้ดชิ้นนี้ จริงๆ แล้วมันเป็นโค้ดที่ง่ายมาก นี่คือโค้ด คุณสามารถนำไปเปลี่ยนเป็นการเรียกใช้ฟังก์ชันได้ด้วยตัวเอง
สลัว strA,strB,isOK
strA = test,you,fuck,money'เนื้อหาคำหลักที่ต้องกรอง
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' เนื้อหาที่จะตรวจสอบ
isOK = False' กำหนดว่าเนื้อหาที่จะกรองถูกรวมไว้หรือไม่ หากส่งคืน True แสดงว่ารวมอยู่ด้วย และ False หมายความว่าไม่รวมอยู่ด้วย
dimRegExp
ตั้งค่า RegExp=regExp ใหม่
RegExp.IgnoreCase =เท็จ
RegExp.Global=จริง
ดิมิ เจ
j = ubound(แยก(strA,,))
สำหรับ i=0 ถึง j
RegExp.Pattern=(&แยก(strA,,)(i)&)
ถ้า(RegExp.Test(strB))แล้ว
isOK=จริง
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
ตั้งค่า RegExp=ไม่มีอะไร
การตอบกลับเขียน (isOK)