VBScript 函数 之 从 HTML 源码中提取文本

QUOTE:

VBScript 函数 之 从 HTML 源码中提取文本

作用: 显示文章摘要时使用该函数, 可避免提取到不完整的 HTML 标签

shawl.qiu
2006-7-2

1. linenum
2. '显示纯文本内容(只提取 HTML 中的文本, 不提取标签)
3. function fPlainText(content)
4.         if isNull(content) then exit function
5.     set re1 = New regExp
6.             re1.Global = true
7.             re1.IgnoreCase = true
8.             
9.             re1.Pattern = "<.*?>"
10.             content = re1.Replace(content,"")
11.             
12.         if len(content)>200 then content=left(content,200)+"......"
13.         
14.             re1.Pattern = "/r/n/s*"
15.             content = re1.Replace(content,"<br/>")
16.     set re1=nothing
17.         fPlainText=content
18. end function