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

sumjor 2009-08-27 10:19:30
比如一篇新闻,显示以后是自动分段
...全文
463 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
顶上。。

28,409

社区成员

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

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