본문 바로가기

Dev/ASP

[ASP] HTML 제거 함수

반응형
EX)
 
<%STRHTML="<HTML><BODY>HTML제거<BODY></HTML>"%>
 
<%=REMOVETAGS(STRHTML)%>
 
 <%
 
'HTML 태그를 정규식으로 없애줌
FUNCTION REMOVETAGS(BYVAL STR)
IF NOT ISNULL(STR) THEN
   DIM REGEX
   ' 정규표현식 객체
   SET REGEX = NEW REGEXP
   ' 자바스크립트 제거
   REGEX.PATTERN = "<script[^>]*>[\W|\w]*?</script>"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   STR = REGEX.REPLACE(STR, "")
   SET REGEX = NOTHING
   SET REGEX = NEW REGEXP
   ' 주석제거
   REGEX.PATTERN = "<!--[\W|\w]*?-->"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   STR = REGEX.REPLACE(STR, "")
   SET REGEX = NOTHING
   ' HTML태그 제거
   SET REGEX = NEW REGEXP
   REGEX.PATTERN = "<[\/\!]*?[^<>]*?>"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   REMOVETAGS = REPLACE(REGEX.REPLACE(STR, ""),"'","")
   REMOVETAGS = REPLACE(REMOVETAGS,"%","")
   SET REGEX = NOTHING
ELSE
   REMOVETAGS = STR
END IF
END FUNCTION
 
%>
반응형

태그