ASP - 정규식 사용하여 html 본문의 A 태그 삭제하기

제목 : 정규식 사용하여 html 본문의 A 태그 삭제하기

Dim tt_pattern : tt_pattern = "a|span|div|table|tbody|tr|td|ul|li|p|strong"    'html 태그 삭제할 것들

'html editor 로 넘어온 값
dim CONTENT : CONTENT = "<span style=''><a href='asdfasfd'>어쩌구</a></span>"

CONTENT = ReplaceEndTag(RegExpReplace(tt_pattern, CONTENT, ""), tt_pattern)

'******************************************************

'*

'* Public Function RegExpReplace(Patrn, TrgtStr, RplcStr)

'*

'* RegExp.Replace() 메소드를 일반화한 함수

'*******************************************************

Public Function RegExpReplace(Patrn, TrgtStr, RplcStr)

  Dim ObjRegExp, RegExpTag

  On Error Resume Next

  RegExpTag = "(<("&Patrn&")(.*?)>)"

  Set ObjRegExp = New RegExp

  ObjRegExp.Pattern = RegExpTag

  ObjRegExp.Global = True

  ObjRegExp.IgnoreCase = True

  RegExpReplace = ObjRegExp.Replace(TrgtStr, RplcStr)

  Set ObjRegExp = Nothing

End Function

'******************************************************

'*

'* Public Function ReplaceEndTag(str_content)

'*

'*******************************************************

Public Function ReplaceEndTag(str_content, Patrn)

  Dim endtag, endtag_sp, i, str_txt

  endtag = Patrn

  endtag_sp = Split(endtag, "|")

  str_txt = str_content

  For i=0 To UBound(endtag_sp)

    str_txt = Replace(str_txt, "</"&endtag_sp(i)&">", "")

  Next

  ReplaceEndTag = str_txt

End Function

내용 : html 에디터에서 넘어온 html source 의 tag 중, 삭제하고 싶은 tag 만 삭제할 때 사용함

tt_pattern 에 "|"로 구분하여 tag 넣을 것 

출처 :