[asp] html태그 삭제하기

' 태그 삭제하기

 

1.
Function RegDeleteHtml(str)

Set reg = New RegExp

reg.Pattern = "<[^<|>]*>" 'Test(검색-문자열)

reg.IgnoreCase = True 'replace (검색-문자열, 대체-문자열)

reg.Global = True 'Execute (검색-문자열)

RegDeleteHtml=reg.replace(str,"")

end Function

2.

Function stripHTML(strHTML)

Dim objRegExp, strOutput

Set objRegExp = New Regexp

 

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

 

strOutput = objRegExp.Replace(strHTML, "")

 

strOutput = Replace(strOutput, "<", "<")

strOutput = Replace(strOutput, ">", ">")

 

stripHTML = strOutput

 

Set objRegExp = Nothing

End Function

  

Html = "<P>asdfasdf</P>"

Html = Html & "<P>asdfasdf</P>"

Html = Html & "<P><STRONG>asdfasdf</STRONG></P>"

Html = Html & "<P><FONT face=""courier new, courier, mono"" size=6>asdfasdf</FONT></P>"

 

Text = stripHTML(Html)

Response.Write left(Text,10)

[출처] [asp] html태그 삭제하기|작성자 구름나그네