[求助]静态分页

[复制链接]

满天星

电梯直达

1^#

发表于 2010-1-14 06:55:31 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

'#########################实现按行静态分页的函数###################
Function ReWriteContent(Text)
dim j
dim ContentArr()
const pageline=80 '每页显示行
linenum=split(Text,"<BR>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
AllPage=-int(-allline\pageline) '计算总页数
j=0
Redim ContentArr(AllPage)
for i=0 to AllPage
do while j<(i+1)*pageline
ContentArr(i)= ContentArr(i)&linenum(j)&"<br>"
j=j+1
if j>ubound(linenum) then exit do
loop
Next
ReWriteContent=ContentArr
End Function
'#########################实现按行静态分页的函数#####################
我不大懂这个的意思
有人帮我下吗

收藏0