|
是个好东东啊，我稍改了一下，请作者见谅！
＜％
'斯日古楞 1.改成通用函数 2.增加了手动换行符号“｜”
function mWordsWrite(murLen,murCount,mWords)
ReDim mur(murCount)
toga=len(mWords)
usog=1
usog2=0
usog3=0
xunhuan=0
if toga<murLen then
Response.write(mWords)
else
for iii=0 to murCount
usog2=INSTRREV(mid(mWords,usog,murLen)," ")
usog3=INSTRREV(mid(mWords,usog,murLen),"|")
if usog3>0 then
mur(iii)=mid(mWords,usog,usog3-1)
else
mur(iii)=mid(mWords,usog,usog2)
end if
if mur(iii)="" then exit for
if usog3>0 then
usog=usog+usog3
toga=toga-usog3
else
usog=usog+usog2
toga=toga-usog2
end if
xunhuan=xunhuan+1
next
for iii=xunhuan to 0 step -1
Response.write(mur(iii)&"<br>")
next
end if
end function
％＞
＜％aaa=" | "
call mWordsWrite(90,50,aaa)％＞
|
|
