%Function LeftStr(byVal Str,byVal StrLen) Dim l,t,c,I l=Len(str) t=0 For I=1 To l c=AscW(Mid(str,I,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then LeftStr=left(Str,I)&"…" Exit For Else LeftStr=Str End If Next End Function %>
9 7 [1] [2] [3] [4] [5] 8 :