隔几个字符自动换行解决方法

分类: IT文章 • 2023-10-31 08:19:05

隔几个字符自动换行
有什么方法可实现每隔20个字符自动换行,且只显示5行,然后后面多余的文字不显示?

------解决方案--------------------
function ShowString(str)
if str = " " then exit function
temstr = " "
j = 1
for i = 1 to len(str)
if j > 3 then exit for
temstr = temstr & mid(str, i, 20) & " <br /> "
i = i + 20 - 1
j = j + 1
next
ShowString = temstr
end function