Intercepte N caracteres de una cadena con HTML. El método de implementación actual no es perfecto. El proceso es: encontrar el comienzo de varios controles de la cadena, luego separarlos secuencialmente, colocarlos en una matriz y luego agregarlos uno por uno. la matriz. Sube y mira si el carácter es mayor que el carácter dado. Si es así, devuelve esta matriz.
'Nombre de función: getHTMLContent' Parámetros: NO-->El número de caracteres que se obtendrán, txtContent-->La cadena que se procesará
'Función: interceptar N caracteres con HTML de la cadena. El método de implementación actual no es perfecto. El proceso es: encontrar el comienzo de varios controles de la cadena, luego separarlos, colocarlos en la matriz y luego agregarlos uno por uno. la matriz para ver si el carácter es mayor que el carácter dado. Si es así, devuelva esta matriz.
'Autor: Liu Yongfa
'Hora: 2007-6-1 20:03 :)
Función getHTMLContent(NO, txtContent)
Si Len (txtContent) <= NO entonces
getHTMLContent = txtContenido
Función de salida
Fin si
Establecer re = Nueva RegExp
re.IgnoreCase =Verdadero
re.Global = Verdadero
patrón =<p|<br|<li|<tabla
patrón = Dividir(patrón,|)
Para cada p en patrón
re.Patrón = p
txtContent = re.Replace(txtContent,||& p)
Próximo
contenidotxt = dividir(contenidotxt,||)
Para cada E en txtContenido
Si Len(s)>NO, entonces salga para
s = s + mi
Próximo
getHTMLContenido=s
Función final
%>