显示左边的n个字符(自动识别汉字)函数

核心提示：rem 显示左边的n个字符(自动识别汉字)Function LeftTrue(str,n)If len(str)<=n/2 ThenLeftTrue=strElseDim TStrDim l,t,cDim il=len(str)t=lTStr=""t=0for i=1 to lc=asc(mi

rem 显示左边的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)
　　　　　　t=l
　　　　　　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