两个控制显示格式的函数（自动换行、自动省略）

1)函数:rowscode()-----每行显示n个字母，自动换行

Function rowscode(str,n)

If len(str)<=n/2 Then

rowscode=str

Else

Dim TStr

Dim l,t,c

Dim i

l=len(str)

TStr=""

t=0

for i=1 to l

c=asc(mid(str,i,1))

If c<0 then c=c+65536

If c>255 then

t=t+2

Else

t=t+1

End If

TStr=TStr&(mid(str,i,1))

If t>n Then

TStr=TStr&"<br>"

t=0

End if

next

rowscode= TStr

End If

End Function

2)函数:lefttrue()-----如果字符串str的长度大于n，则显示左边的n个字符

Function LeftTrue(str,n)

If len(str)<=n/2 Then

LeftTrue=str

Else

Dim TStr

Dim l,t,c

Dim i

l=len(str)

TStr=""

t=0

for i=1 to l

c=asc(mid(str,i,1))

If c<0 then c=c+65536

If c>255 then

t=t+2

Else

t=t+1

End If

If t>n Then exit for

TStr=TStr&(mid(str,i,1))

next

LeftTrue = TStr & "…"

End If

End Function