'=======================================================================================
'기능 이름 : ScripthTml
'효과 : 필터 HTML 태그
'Arguments: ConStr----------------------------------------------------------------------------------------------------------------------
'=======================================================================================
functionscripttml (byvalconst, tagname, ftype)
딤 스
setre = newRegexp
re.ignorecase = true
re.global = true
selectcaseftype
CASE1
re.pattern = "<"& tagname & "([^>])*>"
constr = re.replace (constr, "")
CASE2
re.pattern = "<"& tagname & "([^>])*>.*.*? </"& tagname & "([^>])*>"
constr = re.replace (constr, "")
CASE3
re.pattern = "<"& tagname & "([^>])*>"
constr = re.replace (constr, "")
re.pattern = "</"& tagname & "([^>])*>"
constr = re.replace (constr, "")
EndSelect
scripthtml = constr
setre = 아무것도
최종 기능 장애