功能名称：gethtmlcontent参数：是由无-->获得字符数的字符串进行处理txtcontent -->
函数：从字符串截取n与HTML字符，现在实现方法并不完美，这个过程是：从字符串查找到各种控件，然后根据一些分离，进入数组，然后数组相加，看看是否字符大于给定字符，如果是这样的话。返回数组。
作者：刘永法
时间：2007-6-1 21:20:03：）
功能gethtmlcontent（不，txtcontent）
如果Len（txtcontent）<=没有然后
gethtmlcontent = txtcontent
exitfunction
endif

集重=新的正则表达式
re.ignorecase =真
重复全局=真的
patrn =< P |
| <李| <表
patrn =分裂（patrn，| ）

在patrn foreach P
模式= P
txtcontent =重新更换（txtcontent，P | | ）
下一个

txtcontent =分裂（txtcontent，| | ）
在txtcontent foreach E
如果Len（S）>没有thenexitfor
S = s + E
下一个
gethtmlcontent = S
endfunction
%>