Se utiliza principalmente para eliminar scripts, iframes y otras etiquetas HTML en HTML. Los amigos que lo necesiten pueden consultarlo. Copie el código de código de la siguiente manera:
'================================
'Formato HTML, versión mejorada de SDCMS
'================================
Función Nohtml(PorVal t0)
SI Len (t0) = 0 o IsNull (t0) entonces
Nohtml=
Función de salida
Fin SI
Regulaciones tenues, Partidos, Partido
Establecer reglas = nueva expresión regular
Regs.Ignorecase=Verdadero
Regs.Global=Verdadero
'Filtrar JS, Iframe
Regs.pattern =<script.+?/script>
t0=Regs.Reemplazar(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.Reemplazar(t0,)
'Filtrar otros
Regs.Patrón=<.+?>
Establecer coincidencias=Regs.Execute(t0)
SI coincide.Count>0 Entonces
Para cada partido en partidos
t0=Reemplazar(t0,Valor.coincidente,)
Próximo
Fin SI
t0=Reemplazar(t0, ,)
t0=Reemplazar(t0,vbCrLf,)
t0=Reemplazar(t0, ,)
t0=Reemplazar(t0, ,)
t0=Reemplazar(t0,CHR(9),)
t0=Reemplazar(t0,CHR(13),)
t0=Reemplazar(t0,CHR(10),)
t0=Reemplazar(t0,CHR(22),)
Establecer reglas=Nada
Nohtml=t0
Función final