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

[sumjor]

比如一篇新闻，显示以后是自动分段

[loveinet_168]

顶上。。

• 打赏
• 举报

回复 赞

[number123456]

在自动也是要有条件的，你这个自动分段是想要表达什么意思？
是达到一定字数就分段还是其它什么情况？

• 打赏
• 举报

回复 赞

[sumjor]

就是比较简单的 当两个字中间有多于或等于两个空格的时候分段

• 打赏
• 举报

回复 赞

[number123456]

	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 

试试这个

• 打赏
• 举报

回复 赞

[chenjianyong94]

   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 

• 打赏
• 举报

回复 赞

[Y_Leopard]

up

• 打赏
• 举报

回复 赞