HTML 코드를 작성하면 때때로 모든 태그를 제거해야합니다. 태그를 하나씩 삭제하는 것이 번거 롭습니다. 빠르고 편리한 방법이 있습니까? HTML 코드에서 모든 태그를 제거하는 방법을 살펴 보겠습니다.
HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.<%
'*******************************
'기능 : removehtml_a (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_a ( "<b> alixixi </b>에 오신 것을 환영합니다."%>)
'*******************************
함수 removehtml_a (strtext)
Dim NPOS1
Dim NPOS2
npos1 = instr (strtext, "<")
NPOS1> 0 동안
npos2 = instr (npos1+1, strtext, ">")
NPOS2> 0이면
strtext = left (strtext, npos1-1) & mid (strtext, npos2 + 1)
또 다른
출구
끝 If
npos1 = instr (strtext, "<")
고리
removehtml_a = strtext
엔드 기능
%>
HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.<%
'*******************************
'기능 : removehtml_b (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_b ( "<b> alixixi </b>에 오신 것을 환영합니다.)%>
'*******************************
함수 removehtml_b (strtext)
희미한 정규식
REGEX = New Regexp를 설정합니다
regex.pattern = "<[^>]*>"
regex.global = true
removehtml_b = regex.replace (strtext, "")
엔드 기능
%>
HTML 코드에서 모든 태그를 제거하십시오
코드 사본은 다음과 같습니다.<%
'*******************************
'기능 : removehtml_c (strtext)
'인수 : strtext, 처리 할 문자열
'저자 : Alixi
'날짜 : 2007/7/12
'설명 : HTML 코드에서 모든 태그를 제거하십시오
'예 : <%= removehtml_c ( "<b> alixixi </b>에 오신 것을 환영합니다.)%>
'*******************************
함수 removehtml_c (strtext)
Dim Taglist
taglist = ";!-;! & _
"bgsound; big; blockquote; body; br; button; 캡션; 중심; 인용; 코드;" & _
"col; colgroup; comment; dd; dd; dfn; dir; div; dl; dt; em; embed; fieldset;" & _
"font; 형태; 프레임 세트; 헤드; 헤드; H1; H2; H3; H4; H5; H6; H6; HR; HTML; i; iframe; img;" & _
"입력; insindex; isindex; kbd; 레이블; 레이어; Lagend; Li; Link; Listing; Map; Marquee;" & _
"메뉴; meta; nobr; noframes; noscript; object; ollect; 옵션; p; param; plaintext;" & _
"pre; q; s; samp; 스크립트; select; small; span; Strike; strong; style; sub; sup;" & _
"테이블; td; td; td; ttoole; tfoot; th; thead; 제목; tr; tt; u; ul; var; xmp;"
const blocktaglist = "; appret; embed; frameset; head; noframes; noscript; 객체; 스크립트; 스타일;"
Dim NPOS1
Dim NPOS2
dim npos3
희미한 strresult
희미한 strtagname
희미한 Bremove
희미한 bsearchforBlock
npos1 = instr (strtext, "<")
NPOS1> 0 동안
npos2 = instr (npos1 + 1, strtext, ">")
NPOS2> 0이면
strtagname = mid (strtext, npos1 + 1, npos2 -npos1-1)
strtagname = replace (replace (strtagname, vbcr, ""), vblf, "")
npos3 = instr (strtagname, "")
npos3> 0이면
strtagname = 왼쪽 (strtagname, npos3-1)
끝 If
왼쪽 (strtagname, 1) = "/"라면
strtagname = mid (strtagname, 2)
bsearchforBlock = false
또 다른
bsearchforBlock = true
끝 If
If instr (1, taglist, ";"& strtagname & ";", vbtextcompare)> 0 인 경우
bremove = true
BsearchforBlock이면
IF DEST (1, blocktaglist, ";"& strtagname & ";", vbtextCompare)> 0 인 경우
npos2 = len (strtext)
npos3 = instr (npos1 + 1, strtext, "</"& strtagname, vbtextcompare)
npos3> 0이면
npos3 = instr (npos3 + 1, strtext, ">")
끝 If
npos3> 0이면
npos2 = npos3
끝 If
끝 If
끝 If
또 다른
bremove = false
끝 If
그렇다면 Bremove
strresult = strresult & 왼쪽 (strtext, npos1-1)
strtext = mid (strtext, npos2 + 1)
또 다른
strresult = strresult & left (strtext, npos1)
strtext = mid (strtext, npos1 + 1)
끝 If
또 다른
strresult = strresult & strtext
strtext = ""
끝 If
npos1 = instr (strtext, "<")
고리
strresult = strresult & strtext
removehtml_c = strresult
엔드 기능
%>
이것은 HTML 코드에서 모든 태그를 제거하는 것입니다. 나는 모든 사람이 특정한 이해를 가지고 있다고 생각합니다. 더 많은 기술 정보를 알고 싶다면 잘못된 새로운 기술 채널에 계속주의를 기울이십시오!