Public Function GetString (STR, Strlen)
DIM L, T, C, I
L = LEN (STR)
T = 0
For i = 1 to L
C = ABS (ASC (MID (STR, I, 1)))))
IF C> 255 Then 'characters are Chinese
T = T 2
Else
T = T 1
END IF
IF T> = Strlen Then
GetString = Left (STR, I) & "..."
EXIT for
Else
GetString = STR
END IF
NEXT
END FUNCTION
