strip tag funtion

Function stripTag(byval strHTML)
IF Not isNull(strHtml) then
  Dim objRegExp, strOutput, strReWord

  Set objRegExp = New Regexp  '정규식을 만든다.

  strReWord = ""  '대체문자열

  objRegExp.Global = True   '전체 문자열검색

  objRegExp.Pattern = "<[/]*(!|a|abbr|acronym|address|applet|area|b|base|basefont|bdo|big|blockquote|body|br|button|caption|center|cite|code|col|colgroup|dd|del|dfn|dir|div|dl|dt|em|fieldset|font|form|frame|frameset|h1|h2|h3|h4|h5|h6|head|hr|html|i|iframe|img|input|ins|isindex|kbd|label|legend|li|link|map|menu|meta|noframes|noscript|object|ol|option|p|param|pre|q|s|samp|script|select|small|span|strike|strong|style|sub|sup|table|tbody|td|textarea|tfoot|th|thead|title|tr|tt|u|ul|var|\?xml|o:)[^>]*>"   '전체 패턴정의

  objRegExp.IgnoreCase = True  '대/소문자 구분하지 않는다.

  strOutput = objRegExp.Replace(strHTML,strReWord)

  Set objRegExp = Nothing
End IF

    stripTag = strOutput

End Function


striptag를 확장시킨다.

Function stripTags(byval strHTML)
    stripTags = stripTag(strHTML)
End Function




Javascript-------------------------------------------------------------------
stripTags(str) {
   return str.replace(/<\/?[^>]+>/gi, '');
  }