문자열에서 N개의 문자를 가로채기 현재 구현 방법은 완벽하지 않습니다. 프로세스는 문자열에서 다양한 컨트롤의 시작 부분을 찾은 다음 순차적으로 분리하여 배열에 넣은 다음 하나씩 추가하는 것입니다. 와서 문자가 주어진 문자보다 큰지 확인하십시오. 그렇다면 이 배열을 반환하십시오.
'함수 이름: getHTMLContent' 매개변수: NO-->얻을 문자 수, txtContent-->처리할 문자열
'기능: 문자열에서 HTML로 N자를 가로채는 방법은 완벽하지 않습니다. 프로세스는 문자열에서 다양한 컨트롤의 시작 부분을 찾은 다음 이를 분리하여 배열에 넣은 다음 하나씩 추가하는 것입니다. 문자가 주어진 문자보다 큰지 확인하는 배열입니다. 그렇다면 이 배열을 반환합니다.
저자 : 류용파
'시간: 2007-6-1 20:03 :)
함수 getHTMLContent(NO, txtContent)
Len(txtContent)<= NO이면
getHTMLContent = txtContent
종료 기능
종료
다시 =New RegExp로 설정
re.IgnoreCase =True
re.Global =참
패턴 =<p|<br|<li|<테이블
패턴 = 분할(패턴,|)
패턴의 ForEach p
re.Pattern = p
txtContent = re.Replace(txtContent,||& p )
다음
txtContent = 분할(txtContent,||)
txtContent의 ForEach E
If Len(s)>NO ThenExitFor
s = s + E
다음
getHTMLContent=s
EndFunction
%>