怎么样将文章的格式删除

[binbin695]

如：<div> 一、“（培训+产业）核心技术和思想”<br /> 由自己培养的核心师资队伍掌握。基地选拔招生师资。<br />
由基地组织面试和试讲，基地与合格者签订技术保密协议，3—5年以上的专兼职工作协议，作为冯特学校的师资使用。</div>
这是带格式的，怎么才能去掉格式呢只要文字，这只是简单的，还有更复杂的怎么办呢？？？
分数不多请见谅！！

[binbin695]

高手呀！！
救命呀！！！

[xing198101]

用replace()把不要的字符替换成空白好了

[muxrwc]

用正则将所有的HTML全部替换成空。

[binbin695]

两位高手能不能说清楚点呢！！
拜托！！！

[binbin695]

在线等待

[binbin695]

高手呀！！

[anwell]

Function RemoveHTML(strHTML)
Dim objRegExp, Match1, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)

' 遍历匹配集合，并替换掉匹配的项目
For Each Match1 in Matches
strHtml=Replace(strHTML,Match1.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

[anwell]

第二个,截取后显示多少个字符


Function FilterHTML(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing

Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
FilterHTML=cutStr
End Function