'Function name: gethtmlcontent' parameter: No --> Number of characters to be obtained, txtcontent --> string to be processed
'Function: truncates n HTML-containing characters from a string. The current implementation method is not complete. The process is to find the various controls in the string and separate them accordingly, put it in the array, and then add an array to see if the character is greater than the given character. If yes, the array is returned.
'Author: Liu yongfa
'Time:
Function gethtmlcontent (No, txtcontent)
If Len (txtcontent) <= No then
Gethtmlcontent = txtcontent
Exitfunction
Endif
Set Re = new Regexp
Re. ignorecase = true
Re. Global = true
Patrn = "<p | <br | <li | <Table"
Patrn = Split (patrn, "| ")
Foreach P in patrn
Re. pattern = P
Txtcontent = Re. Replace (txtcontent, "|" & P)
Next
Txtcontent = Split (txtcontent, "| ")
Foreach e in txtcontent
If Len (s)> NO thenexitfor
S = S + E
Next
Gethtmlcontent = s
Endfunction
%>