Two functions that control the display format (word wrap, auto omit)

1 function: Rowscode ()-----display n letters per line, wrapping automatically
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 function: lefttrue ()-----If the length of string Str is greater than n, display the n characters on the left
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