Interceptar N caracteres com HTML de uma string O método de implementação atual não é perfeito O processo é: encontrar o início de vários controles na string, separá-los sequencialmente, colocá-los em uma matriz e adicioná-los um por um. o array. Suba e veja se o caractere é maior que o caractere fornecido. Em caso afirmativo, retorne este array.
Parâmetros 'Nome da função: getHTMLContent': NO -> O número de caracteres a serem obtidos, txtContent -> A string a ser processada
'Função: interceptar N caracteres com HTML da string O método de implementação atual não é perfeito O processo é: encontrar o início de vários controles da string, separá-los, colocá-los na matriz e, em seguida, adicionar um por um. a matriz para ver se o caractere é maior que o caractere fornecido. Em caso afirmativo, retorne esta matriz.
'Autor: Liu Yongfa
'Hora: 01-06-2007 20:03 :)
Função getHTMLContent(NO, txtContent)
Se Len(txtContent)<= NÃO Então
getHTMLContent = txtConteúdo
Função de saída
FimSe
Definir re =Novo RegExp
re.IgnoreCase = Verdadeiro
re.Global = Verdadeiro
patrn =<p|<br|<li|<tabela
padrão = Dividir(padrão,|)
ForEach p em padrão
re.Padrão = p
txtContent = re.Replace(txtContent,||& p )
Próximo
txtConteúdo = Dividir(txtConteúdo,||)
ForEach E em txtContent
Se Len(s)>NÃO, entãoSairPara
s = s + E
Próximo
getHTMLContent=s
Função Final
%>