Es wird hauptsächlich zum Entfernen von Skripten, Iframes und anderen HTML-Tags in HTML verwendet. Freunde in Not können darauf verweisen. Kopieren Sie den Codecode wie folgt:
'==============================
'Formatieren Sie HTML, SDCMS erweiterte Version
'==============================
Funktion Nohtml(ByVal t0)
WENN Len(t0)=0 oder IsNull(t0) dann
Nohtml=
Exit-Funktion
Beenden Sie IF
Dim Regs, Matches, Match
Setze Regs=Neuer regulärer Ausdruck
Regs.Ignorecase=True
Regs.Global=True
„Filtern Sie JS, Iframe heraus.“
Regs.pattern =<script.+?/script>
t0=Regs.Replace(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.Replace(t0,)
„Andere filtern.“
Regs.Pattern=<.+?>
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
Für jedes Spiel in Spielen
t0=Ersetzen(t0,Match.value,)
Nächste
Beenden Sie IF
t0=Ersetzen(t0, ,)
t0=Ersetzen(t0,vbCrLf,)
t0=Ersetzen(t0, ,)
t0=Ersetzen(t0, ,)
t0=Ersetzen(t0,CHR(9),)
t0=Ersetzen(t0,CHR(13),)
t0=Ersetzen(t0,CHR(10),)
t0=Ersetzen(t0,CHR(22),)
Setze Regs=Nothing
Nohtml=t0
Funktion beenden