HTML で文字列から N 個の文字をインターセプトするプロセスは、文字列からさまざまなコントロールの先頭を見つけて、それらを順番に分割し、配列に 1 つずつ追加します。配列を取得して、文字が指定された文字より大きいかどうかを確認し、大きい場合はこの配列を返します。
「関数名：getHTMLContent」 パラメータ：NO-->取得する文字数、txtContent-->処理する文字列
'機能: 文字列から N 個の文字を HTML でインターセプトします。現在の実装方法は完璧ではありません。文字列からさまざまなコントロールの先頭を見つけて、それらを分割して配列に追加します。文字が指定された文字より大きいかどうかを確認する配列。そうである場合は、この配列を返します。
著者：劉永発
'時間: 2007-6-1 20:03 :)
関数 getHTMLContent(NO, txtContent)
Len(txtContent)<= NO の場合
getHTMLContent = txtContent
終了関数
EndIf
set re =新しい正規表現
re.IgnoreCase =True
re.Global =True
patrn =<p|<br|<li|<table
パターン = 分割(パターン,|)
パターン内の各 p について
re.パターン = p
txtContent = re.Replace(txtContent,||& p )
次
txtContent = Split(txtContent,||)
txtContent の ForEach E
If Len(s)>NO thenExitFor
s = s + E
次
getHTMLContent=s
エンドファンクション
%>