长文章分页(指定的位置插入字符)

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:28:40
我想把长文章让程序自动分页
我只要求在适当的位置插入[nextpage]就行了，其它可以省略。

比如：每5000字节后插入[nextpage]

难点：要避开HTML标签，也就是NextPage不能放置在<table>NextPage</table>里面。
请不要在网上抄那些一搜一大篇的文章，没有意义（行的话我早用上了）。
一楼的兄弟，你的意思我明白，我现在难在怎么在一篇文章里避开HTML插入[nextpage],如果有[nextpage]了，我就不问了。欢迎大侠给点意见，我可以再加分。

Function AutoSplitPage(inContent,SplitPageStr,PerPageLen)
' on error resume next
Dim Inti,StrTrueinContent,iPageLen,DLocation,XLocation,CurrinContent,i,currlen
If inContent="" Or PerPageLen=0 Or Instr(1,inContent,SplitPageStr)>0 Then AutoSplitPage=inContent:Exit Function
Inti=inStr(1,inContent,"<"):i=0
If inti=0 then
do while i< Len(inContent)
i=i+1
dim c:c=Asc(Mid(inContent,i,1))
if Err.Number <> 0 Then Err.Clear:currlen=currlen+2 else currlen=currlen+1
if currlen>=PerPageLen and mid(inContent,i+1)<>"" then inContent=left(inContent,i)&SplitPageStr&mid(inContent,i+1):i=i+10:currlen=0
loop
AutoSplitPage=inContent:Exit Function
Else
StrTrueinContent=Left(inContent,Inti-1):iPageLen=Len(StrTrueinContent):inti=inti+1:iPageLen=0
do while instr(Inti,inContent,">")<>0
DLocation=instr(Inti,inContent,&qu