Il est principalement utilisé pour supprimer les scripts, iframes et autres balises HTML en HTML. Les amis dans le besoin peuvent s'y référer. Copiez le code comme suit :
'===============================
'Format HTML, version améliorée de SDCMS
'===============================
Fonction Nohtml(ByVal t0)
SI Len(t0)=0 Ou IsNull(t0) Alors
Nohtml=
Fonction de sortie
Fin SI
Dim Regs, Correspondances, Correspondance
Définir Regs = Nouvelle expression rationnelle
Regs.Ignorecase = Vrai
Regs.Global=Vrai
'Filtrer JS, Iframe
Regs.modèle =<script.+?/script>
t0 = Regs.Replace (t0,)
Regs.pattern =<iframe.+?/iframe>
t0 = Regs.Replace (t0,)
'Filtrer les autres
Regs.Pattern=<.+?>
Définir des correspondances = Regs.Execute (t0)
SI Matches.Count>0 Alors
Pour chaque match dans les matchs
t0=Remplacer(t0,Match.value,)
Suivant
Fin SI
t0=Remplacer(t0, ,)
t0=Remplacer(t0,vbCrLf,)
t0=Remplacer(t0, ,)
t0=Remplacer(t0, ,)
t0=Remplacer(t0,CHR(9),)
t0=Remplacer(t0,CHR(13),)
t0=Remplacer(t0,CHR(10),)
t0=Remplacer(t0,CHR(22),)
Définir Regs = Rien
Nohtml=t0
Fonction de fin