怎么样将文章的格式删除

binbin695 2006-09-16 09:54:52
如:<div> 一、“(培训+产业)核心技术和思想”<br /> 由自己培养的核心师资队伍掌握。基地选拔招生师资。<br />
由基地组织面试和试讲,基地与合格者签订技术保密协议,3—5年以上的专兼职工作协议,作为冯特学校的师资使用。</div>
这是带格式的,怎么才能去掉格式呢只要文字,这只是简单的,还有更复杂的怎么办呢???
分数不多请见谅!!
...全文
187 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
anwell 2006-09-18
  • 打赏
  • 举报
回复
第二个,截取后显示多少个字符


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
anwell 2006-09-18
  • 打赏
  • 举报
回复
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
binbin695 2006-09-18
  • 打赏
  • 举报
回复
高手呀!!
binbin695 2006-09-18
  • 打赏
  • 举报
回复
在线等待
binbin695 2006-09-18
  • 打赏
  • 举报
回复
两位高手能不能说清楚点呢!!
拜托!!!
muxrwc 2006-09-16
  • 打赏
  • 举报
回复
用正则将所有的HTML全部替换成空。
xing198101 2006-09-16
  • 打赏
  • 举报
回复
用replace()把不要的字符替换成空白好了
binbin695 2006-09-16
  • 打赏
  • 举报
回复
高手呀!!
救命呀!!!

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧