3초기억력

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

플밍_ASP

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

잠수콩 2011. 4. 27. 13:10
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.


제목 : 정규식 사용하여 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 넣을 것 


출처 : 



Comments