Ini terutama digunakan untuk menghapus skrip, iframe dan tag HTML lainnya dalam HTML. Teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
'================
'Format HTML, versi SDCMS yang disempurnakan
'================
Fungsi Nohtml(ByVal t0)
JIKA Len(t0)=0 Atau IsNull(t0) Maka
Tidakhtml=
Fungsi Keluar
Akhir JIKA
Redupkan Regs, Cocok, Cocok
Tetapkan Regs=Regexp Baru
Regs.Ignorecase=Benar
Regs.Global=Benar
'Saring JS, Iframe
Regs.pattern =<script.+?/script>
t0=Reg.Ganti(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Reg.Ganti(t0,)
'Filter lainnya
Regs.Pola=<.+?>
Setel Kecocokan=Regs.Execute(t0)
IF Cocok. Hitung> 0 Lalu
Untuk Setiap Pertandingan Dalam Pertandingan
t0=Ganti(t0,Cocokkan.nilai,)
Berikutnya
Akhir JIKA
t0=Ganti(t0, ,)
t0=Ganti(t0,vbCrLf,)
t0=Ganti(t0, ,)
t0=Ganti(t0, ,)
t0=Ganti(t0,CHR(9),)
t0=Ganti(t0,CHR(13),)
t0=Ganti(t0,CHR(10),)
t0=Ganti(t0,CHR(22),)
Tetapkan Regs=Tidak Ada
Tidakhtml=t0
Fungsi Akhir