如何让显示出来的文章自动分段?

sumjor 2009-08-27 10:19:30
比如一篇新闻,显示以后是自动分段
...全文
304 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Y_Leopard 2009-08-28
up
  • 打赏
  • 举报
回复
chenjianyong94 2009-08-28
   Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "( |( )){2,}"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)

' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"<br>")
Next

  • 打赏
  • 举报
回复
number123456 2009-08-27

	Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "( |( )){2,}"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)

' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"<br>")
Next

试试这个
  • 打赏
  • 举报
回复
sumjor 2009-08-27
就是比较简单的 当两个字中间有多于或等于两个空格的时候分段
  • 打赏
  • 举报
回复
number123456 2009-08-27
在自动也是要有条件的,你这个自动分段是想要表达什么意思?
是达到一定字数就分段还是其它什么情况?
  • 打赏
  • 举报
回复
loveinet_168 2009-08-27
顶上。。
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2009-08-27 10:19
社区公告
暂无公告