N Zeichen mit HTML aus einer Zeichenfolge abfangen Der Prozess ist nicht perfekt: Finden Sie den Anfang verschiedener Steuerelemente aus der Zeichenfolge, trennen Sie sie dann nacheinander, fügen Sie sie in ein Array ein und fügen Sie sie dann einzeln hinzu Schauen Sie nach, ob das Zeichen größer als das angegebene Zeichen ist. Wenn ja, geben Sie dieses Array zurück.
'Funktionsname: getHTMLContent' Parameter: NO -> Die Anzahl der abzurufenden Zeichen, txtContent -> Die zu verarbeitende Zeichenfolge
'Funktion: N Zeichen mit HTML aus der Zeichenfolge abfangen. Der Prozess ist nicht perfekt: Suchen Sie den Anfang verschiedener Steuerelemente aus der Zeichenfolge, trennen Sie sie, fügen Sie sie in das Array ein und fügen Sie sie dann einzeln hinzu das Array, um zu sehen, ob das Zeichen größer als das angegebene Zeichen ist. Wenn ja, dann geben Sie dieses Array zurück.
'Autor: Liu Yongfa
'Zeit: 2007-6-1 20:03 :)
Funktion getHTMLContent(NO, txtContent)
Wenn Len(txtContent)<= NEIN, dann
getHTMLContent = txtContent
ExitFunction
EndIf
Setzen Sie re =New RegExp
re.IgnoreCase =True
re.Global =True
patrn =<p|<br|<li|<table
patrn = Split(patrn,|)
ForEach p im Muster
re.Pattern = p
txtContent = re.Replace(txtContent,||& p )
Nächste
txtContent = Split(txtContent,||)
ForEach E in txtContent
Wenn Len(s)>NO ThenExitFor
s = s + E
Nächste
getHTMLContent=s
EndFunction
%>