วันนี้ฉันพบปัญหานี้ เพียงใช้ฟังก์ชันแทนที่จะไม่ทำงาน มันจะเปลี่ยนตัวพิมพ์ของสตริงดั้งเดิม ค้นหาโค้ดที่เกี่ยวข้องบนอินเทอร์เน็ตและสำรองข้อมูลด้วยตัวเอง
ฟังก์ชั่นการทดแทนแบบธรรมดา
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่นสาธารณะ HighLight(S,F)
สลัว tL,tM,tR,k
ทีแอล = ""
ทีเอ็ม = ""
tR=ส
k=instr(1,tR,F,1)
ทำในขณะที่ k>0
tL=tL & ซ้าย(tR,k-1)
tM=กลาง(tR,k,เลน(F))
tL=tL & "<span>" & tM & "</span>"
tR=ขวา(tR,เลน(tR)-เลน(F)-k+1)
k=instr(1,tR,F,1)
วนซ้ำ
ไฮไลท์=tL & tR
ฟังก์ชั่นสิ้นสุด
tS="abcaBcabCaBCabcaBCa"
tF="บีซี"
การตอบสนองเขียน(tS)
response.Write("<br/>")
การตอบสนองเขียน (HighLight (tS, tF))
การแสดงออกปกติ
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่น ไฮไลท์(S,F)
Dim regEx
ตั้งค่า regEx = RegExp ใหม่
regEx.IgnoreCase = จริง
regEx.Global = จริง
regEx.Pattern = "(" & F & ")"
HighLight = regEx.แทนที่(S,"<span>$1</span>")
ฟังก์ชันสิ้นสุด
Response.write HighLight("abcaBcabCaBCabcaBCa","bc")