打印本文 打印本文  关闭窗口 关闭窗口
显示左边的n个字符(自动识别汉字)函数
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 14:01:36
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



打印本文 打印本文  关闭窗口 关闭窗口