Saya mengalami masalah ini hari ini. Menggunakan fungsi ganti saja tidak akan berfungsi. Ini akan mengubah huruf besar/kecil dari string asli.
Fungsi penggantian biasa
Copy kode kodenya sebagai berikut:
fungsi publik Sorotan (S,F)
redupkan tL,tM,tR,k
tl = ""
tM = ""
tR=S
k=instr(1,tR,F,1)
lakukan saat k>0
tL=tL & kiri(tR,k-1)
tM=pertengahan(tR,k,len(F))
tL=tL & "<span>" & tM & "</span>"
tR=kanan(tR,Len(tR)-len(F)-k+1)
k=instr(1,tR,F,1)
lingkaran
Sorotan=tL & tR
fungsi akhir
tS="abcaBcabCaBCabcaBCa"
tF="bc"
respon.Tulis(tS)
respon.Tulis("<br/>")
respon.Tulis(HighLight(tS,tF))
ekspresi reguler
Copy kode kodenya sebagai berikut:
Fungsi Sorotan(S,F)
RegEx redup
Setel regEx = RegExp Baru
regEx.IgnoreCase = Benar
regEx.Global = Benar
regEx.Pola = "(" & F & ")"
HighLight = regEx.Replace(S,"<span>$1</span>")
Fungsi Akhir
Respon.tulis HighLight("abcaBcabCaBCabcaBCa","bc")