?
快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

利發娛樂官網平臺:對一篇很長的文章做到完美的分頁輸出(轉)

?

使用統計文章字數,然后達到必然字數就截斷輸出,然則分頁的內容就會在莫名其妙的地方截斷,不是很友好。

很簡單,在要截斷的地方相近找下面的符號:

;’”?。!;'".!

假如后面存在

就分頁。主如果要鉆研文章的款式。

0 then

content = Request.Form("text利發娛樂官網平臺area1")

PageLength = 1000'每頁字數

CLength = Len(content)

PageCo利發娛樂官網平臺unt = Int(Clength/Pag利發娛樂官網平臺eLength) + 1'謀略頁數

dim PageArray

redim PageArray(PageCount)

Seperator = Array(chr(13),chr(10),"。","!","?",";",",","”","’")'分隔符

PageArray(0) = 0

Pos = 0

for j=0 to ubound(Seperator)

Pos = instr(PageArray(i)+900,content,Seperator(j)) 'PageArray(i)+900 相近位置是100字,1-999可調

while Pos > 0 and Posi*PageLength

PageArray(i) = Pos

Pos = instr(Pos+PageLength,content,Seperator(j))

wend

if PageArray(i) > 0 then

Response.Write "0:i¦ "&PageArray(i)&"

"&j&":j"&Seperator(j)&"

"

j = j + ubound(Seperator) + 1

end if

next

for i=1 to PageCount-1

PageArray(i) = 0

Pos = 0

for j=0 to ubound(Se利發娛樂官網平臺perator)

Pos = instr(PageArray(i-1)+950,content,Seperator(j))

while Pos > 0 and Posi*PageLength

PageArray(i) = Pos

Pos = instr(Pos+PageLength,content,Seperator(j))

wend

if PageArray(i) > 0 then

Response.Write i&":i¦ "&PageArray(i)&"

"&j&":j"&Seperator(j)&"

"

j = j + ubound(Seperator) + 1

end if

next

next

output = mid(content,1,PageArray(0))

output = replace(output,chr(13),"

")

Response.Write "

第1段

"

Response.Write output

for i=1 to PageCount-2

output = mid(content,PageArray(i-1)+1,PageA利發娛樂官網平臺rray(i)-PageArray(i-1))

output = replace(output,chr(13),"

")

Response.Write "

第"&i+1&"段

"

Response.Write output

next

'著末一段的輸出就沒寫了

else

%>

免責聲明:以上內容源自網絡,版權歸原作者所有,如有侵犯您的原創版權請告知,我們將盡快刪除相關內容。

您可能還會對下面的文章感興趣:

浙江体彩20选5开奖号 黑龙江快乐10分开奖结果 上海篮球队 快乐十分走势图云南 江西新11选5走势 安徽快三基本走势图 nba连胜排名 玩幸运飞艇有什么技巧 3d今天开机号是多 环球策略 乐乐广西快乐十分 重庆百变王牌开奖公告 山东11选5组选走 股利多配资 正版长沙二五八麻将 七星彩中奖号码 象泰配资