주로 HTML에서 스크립트, iframe 및 기타 HTML 태그를 제거하는 데 사용됩니다. 다음과 같이 코드 코드를 복사합니다.
'==============================
'HTML 형식, SDCMS 강화 버전
'==============================
함수 Nohtml(ByVal t0)
IF Len(t0)=0 또는 IsNull(t0) 그러면
번호html=
종료 기능
IF 종료
희미한 규정, 성냥, 성냥
Regs=새 정규식 설정
Regs.Ignorecase=참
Regs.Global=참
'JS, Iframe 필터링
Regs.pattern =<script.+?/script>
t0=Regs.Replace(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.Replace(t0,)
'기타 필터링
Regs.Pattern=<.+?>
일치 항목 설정=Regs.Execute(t0)
IF Matches.Count>0 그러면
경기의 각 경기에 대해
t0=바꾸기(t0,Match.value,)
다음
IF 종료
t0=바꾸기(t0, ,)
t0=바꾸기(t0,vbCrLf,)
t0=바꾸기(t0, ,)
t0=바꾸기(t0, ,)
t0=바꾸기(t0,CHR(9),)
t0=바꾸기(t0,CHR(13),)
t0=바꾸기(t0,CHR(10),)
t0=바꾸기(t0,CHR(22),)
설정 규정=아무것도 없음
Nohtml=t0
기능 종료