É usado principalmente para remover scripts, iframe e outras tags HTML em HTML. Amigos necessitados podem consultá-lo. Copie o código do código da seguinte forma:
'=============================
'Formato HTML, versão aprimorada do SDCMS
'=============================
Função Nohtml(ByVal t0)
SE Len(t0)=0 ou IsNull(t0) Então
Nãohtml=
Função de saída
Fim SE
Dim Regs, correspondências, correspondência
Definir Regs = Novo Regexp
Regs.Ignorecase = Verdadeiro
Regs.Global=Verdadeiro
'Filtrar JS, Iframe
Regs.pattern =<script.+?/script>
t0=Regs.Replace(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.Replace(t0,)
'Filtrar outro
Regs.Pattern=<.+?>
Definir correspondências=Regs.Execute(t0)
SE Correspondências.Contagem>0 Então
Para cada partida nas partidas
t0=Substituir(t0,Match.value,)
Próximo
Fim SE
t0=Substituir(t0, ,)
t0=Substituir(t0,vbCrLf,)
t0=Substituir(t0, ,)
t0=Substituir(t0, ,)
t0=Substituir(t0,CHR(9),)
t0=Substituir(t0,CHR(13),)
t0=Substituir(t0,CHR(10),)
t0=Substituir(t0,CHR(22),)
Definir Regs=Nada
Nãohtml=t0
Função final