Intercepter N caractères avec HTML à partir d'une chaîne. La méthode d'implémentation actuelle n'est pas parfaite. Le processus est le suivant : trouver le début des différents contrôles de la chaîne, puis les séparer séquentiellement, les placer dans un tableau, puis les ajouter un par un. le tableau. Venez voir si le caractère est supérieur au caractère donné. Si c'est le cas, renvoyez ce tableau.
'Nom de la fonction : getHTMLContent' Paramètres : NON-->Le nombre de caractères à obtenir, txtContent-->La chaîne à traiter
"Fonction : intercepter N caractères HTML à partir de la chaîne. La méthode d'implémentation actuelle n'est pas parfaite. Le processus est le suivant : trouver le début des différents contrôles de la chaîne, puis les séparer, les placer dans le tableau, puis les ajouter un par un. le tableau pour voir si le caractère est supérieur au caractère donné. Si tel est le cas, renvoyez ce tableau.
'Auteur : Liu Yongfa
'Heure : 2007-6-1 20:03 :)
Fonction getHTMLContent(NON, txtContent)
Si Len(txtContent)<= NON Alors
getHTMLContent = txtContent
Fonction de sortie
FinSi
Définir re = Nouvelle RegExp
re.IgnoreCase = Vrai
re.Global = Vrai
motif =<p|<br|<li|<table
modèle = Split(modèle,|)
ForEach p dans le motif
re.Motif = p
txtContent = re.Replace(txtContent,||& p )
Suivant
txtContent = Split(txtContent,||)
ForEach E dans txtContent
Si Le(s) Lent(s)> NON ThenExitFor
s = s + E
Suivant
getHTMLContent=s
FinFonction
%>